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ABSTRACT 



A worldwide genealogy data storage and retrieval system for 
implementation on the Internet is described, wherein genea- 
logical data from every source can be collected, reviewed, 
revised, extended, consolidated, summarized, indexed, lin- 
eage-linked, and displayed. Basic data on up to 10 billion 
people can be included. The invention further relates to a 
method and apparatus for cooperative publishing and dis- 
tribution of genealogical data. The invention allows owners 
of lineage-linked genealogical data to publish the data in any 
size increments and for buyers to select and retrieve any 
number of names and associated data. An integrated micro- 
payment system requires users of the data to make payments 
for each increment of data received, and royalties are paid to 
the ownexs of the data from these payments. 
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GENEALOGY REGISTRY SYSTEM 

CROSS-REFERENCE TO RELATED 
APPUCAHONS 

[0001] This appKcation claims the benefit of U.S. Provi- 
sional AppHcation No. 60/189,697, filed Mar. 15, 2000, 
which is hereby incorporated herein by reference. 

STATEMENT REGARDING FEDERALLY 
SPONSORED RESEARCH OR DEVELOPMENT 

[0002] Not applicable. 

BACKGROUND OF THE INVENTION 

[0003] This invention relates to processing of genealogical 
data. More particularly, this invention relates to a genealogy 
registry system for collecting, summarizing, indexing, lin- 
eage-linking, and displaying genealogical information. Fur- 
thermore, this invention also relates to electronic publishing 
applications using electronic networks. 

[0004] Today's worldwide genealogy data records envi- 
ronment can be summarized in general terms as comprising 
thousands of relatively largp public record sets in non- 
lineage-linked format, mostly on paper or microfilm, plus 
millions of small collections of lineage-linked names, 
mostly held by individual persons. Most of these small 
collections are in paper form, but increasingly are in per- 
sonal computer (PC) form. These family collections of 
relatives' names may be made up of family non-public 
records, plus extracts from any number of larger public 
record sets. 

[0005] There are huge national collections of records, such 
as the U.S. censuses, that may contain hundreds of millions 
of names. Other national records include military and immi- 
gration records. At the state level, there are the usual birth, 
marriage, death, and perhaps tax records. At the local or 
county level, one might find land, burial, and court records. 

[0006] For the serious genealogy hobbyist or professional, 
going beyond family records usually means learning to use 
and access many new sets of records, perhaps finding few, 
if any, relatives* names in any one record set. This means 
there is a huge individual learning curve and much raw 
record scanning for the small amount of actual data found 
and used. The learning curve becomes enormous when the 
researcher must learn a language to trace ancestors' lives in 
another country with records in another language. 

[0007] If the overall goal were to complete all the clerical 
records processing and name linking for a whole nation or 
for the entire world, the current process is extremely inef- 
ficient. The usual technique for solving this kind of problem 
is to use specialization to make the workers' efforts more 
eflBcienl. In the case of genealogy and the related records 
complexities, the efficiency improvement rales could be in 
the hundreds or even thousands of times. 

[0008] It appears that the most advanced system in the 
category of a potentially worldwide, lineage-linked system 
is the Ancestral File (AF) operated by The Church of Jesus 
Christ of Latter-day Saints. AF stores about 30 million 
names, most of them linked into famiUes and pedigrees, but 
only minimal data about each person are held there. Error 
rates have been estimated to be as high as 30% on names and 



linking relationships. AF has been available for a decade or 
more on CD-ROM at family history centers and a few other 
K ►cations sponsored by the church. Since April 1999, a 
limited version has been available on the Internet. Although 
theoretically it could contain data on anyone in the world, 
AF mostly pertains to the families of the some five million 
members of the church in the United States. Since it was 
designed and is intended to support church doctrine and 
programs, people outside the church are less likely to want 
to participate, even if it had many more features. A more 
neutral and sophisticated system is needed. 

[0009] Ancestral File accepts additions and corrections in 
paper or diskette form, but cannot be updated directly. A 
small group of people is responsible for updating the AF 
database. Due at least in part to these factors, the process is 
such that there is at least a two-year wait between submitting 
new data and being able to see the updated version on 
CD-ROM. Most computer users have come to expect imme- 
diate responses to their entries. Waiting two years to find out 
whether submitted information was accepted correctly by a 
genealogy system calls for more patience than most people 
are willing to give. The actual update process is done 
automatically, with no critical human review. Further, only 
one version of the data is kept. This means that donors can 
submit data, wait two years, and then find out that the data 
were entered incorrectly, were not entered at all, or some- 
body else's data were used instead. In the two-year waiting 
period, the data might have been entered, but later might 
have been replaced by other data before either version 
became accessible. This means that the highest quality data 
can be replaced by inferior data. Obviously, this is not a 
satisfactory system. It is almost impossible to have signifi- 
cant cooperation or synchronized specialization with such a 
system. 

[0010] The most basic needs of a good genealogy registry 
system are to be able to check whether others have already 
done the work one wishes to see or do, notify the world of 
one's work plans, submit data as they are collected, imme- 
diately check the results, and be certain that the data will 
remain in the database regardless of the activities of others. 
Following these steps it would also be desirable to be able 
to look for extensions to the data within work supplied by 
others and to link data from two or more contributors such 
that anyone could follow and examine the extensions. 

[0011] There are many other feahires of a genealogy 
registry system that would be very useful, but even the basic 
features are not currently available. For example, a system 
is needed that quickly assembles all existing genealogical 
data and then adds much more to it until all of the available 
records have been mined and the data integrated. A truly 
worldwide system would allow for use of multiple lan- 
guages, perhaps with transliteration and translation to 
English for universal access. Something as exotic as a 
three-dimensional virtual reality interface, to enhance the 
family history data viewing experience by showing all the 
three-dimensional network reality of famHy relationships, 
has never been attempted, perhaps because there is no data 
source today with the depth and quality required to drive 
such a feature. Even a much simpler form that displays all 
known family relationships for one person is not available. 
This would be a step toward a true three-dimensional 
network world, but could still be displayed in a more 
conventional two-dimensional format 
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[0012] Besides the lack of service and convenience to 
genealogy hobbyists and professionals, there is also the 
missed opportunity of planning to enhance the recently 
completed human genome project. An extensive b'neage- 
linked genealogy system would allow research projects and 
improvements to health that would be impractical without 
quick access to hundreds of thousands of family connec- 
tions. 

[0013] Id view of the foregoing, it will be appreciated that 
providing a genealogy registry system that meets these and 
many other deficiencies of current systems would be a 
significant advancement in the art. 

BRIEF SUMMARY OF THE INVENTION 

[0014] It is an object of the present invention to provide a 
genealogy registry system that permits quick assembly of all 
existing genealogical data. 

[0015] It is also an object of the invention to provide a 
genealogy registry system that permits use of multiple 
languages. 

[0016] It is another object of the invention to provide a 
genealogy registry system that contains a three-dimensional 
virtual reality interface for showing all the three-dimen- 
sional network reality of family relationships. 

[0017] It is still another object of the invention to provide 
a genealogy registry system that processes old records into 
a diirable digital format, thus preserving old and fragile 
records. 

[0018] It is yet another object of the invention to provide 
a genealogy registry system that permits participants to 
know the state of the system, especially showing what is not 
contained in the system such that such missing information 
can be found and added. 

[0019] It is another object of the system to provide a 
genealogy registry system that permits a specific user to 
obtain a summary of data that relate to such user. 

[0020] It is still another object of the invention to provide 
a genealogy registry system that permits two randomly 
selected individuals to discover if they have a common 
ancestor. 

[0021] It is yet another object of the invention to provide 
a genealogy registry system that provides for time-dating of 
place names and associating places with latimdinal and 
longitudinal data. 

[0022] It is a still further object of the invention to provide 
a genealogy registry system that permits associating names 
with standardized source record references. 

[0023] It is another object of the invention to provide a 
genealogy registry system that permits incorporation of 
existing large data collections. 

[0024] It is still another object of the invention to provide 
a genealogy registry system that permits the easy and 
automatic absorption and consolidation of large amounts of 
quality data that exist in Genealogical Data Communications 
(GEDCOM) format. 

[0025] It is yet another object of the invention to provide 
a pay-per-view micropayments system such that money is 



collected from users of the genealogy registry system and 
part of the collected money is paid to publishers of the data 
in the form of royalties. 

[0026] These and other objects can be addressed by pro- 
viding a genealogy registry system for collecting, summa- 
rizing, indexing, line age -linking, and displaying all of the 
world's genealogy records information on a computer com- 
prising: 

[0027] (a) a central server database comprising 

[0028] (i) a plurality of contributors* data spaces 
for storing genealogical data in Haeage-linked 
form, 

[0029] (ii) a submission link space coupled to the 
plurality of contributors' data spaces for making 
and storing links between genealogical data items 
in each of the plurality of contributors' data 
spaces, and 

[0030] (iii) a third-party link space coupled to the 
plurality of contributors' data spaces for making 
and storing links between genealogical data items 
between the plurality of contributors* data spaces; 

[0031] (b) a normal text and graphics interface 
coupled to the central server database; 

[0032] (c) a basic data display coupled to the normal 
text and graphics interface; 

[0033] (d) a data status and management mechanism 
coupled to the normal text and graphics interface for 
monitoring quantity and quality of data; 

[0034] (e) a manual keying interface coupled to the 
central server database for inputting and correction 
of data; and 

[0035] (f) a data conversion and automated input 
coupled to the central sender database for converting 
data into usable format and inputting large data files. 

[0036] In a preferred embodiment of the invention, the 
genealogy registry system further comprises (g) a worksta- 
tion functions interface coupled to the central server data- 
base for converting and consolidating data into usable 
format. Another preferred embodiment of the invention the 
basic data display comprises a mechanism for billing by 
segment of information displayed. Preferably, the plurality 
of contributors' data spaces has a capacity for storing the 
names and data on up to 10 billion people. Still further, the 
system preferably further comprises a plurality of interactive 
self-service internet terminals and central servers configured 
for accepting genealogical data from a plurality of publish- 
ers and displaying such genealogical data to a plurality of 
users. Preferably, the system is configured for internet 
transactions to allow updates and review by a plurality of 
selected persons. The central server database preferably 
comprises a structure for storing one or more data items 
selected from the group consisting of basic identifying data, 
explanatory text, biographical text, source references, pho- 
tographs, and images. 

[0037] In another preferred embodiment of the invention, 
the genealogy registry system further comprises a program 
permitting both minimal data display and update and full 
detail data display and update. The system also preferably 
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further comprises a program and data structure configured 
for storing latitude and longitude indicators for all major 
identifying events, including birth, death, marriage, and 
burial, such that tables, maps, and reports can be created for 
correlating such events with location. Moreover, the system 
preferably further comprises a program and data structure 
configured for storing place names by date and by latitude 
and longitude. Still further, the system preferably further 
comprises a program and data structure configured for 
storing medical, genetic, and health history data. Further yet, 
the system preferably further comprises a mechanism for 
permanent storage of assembled data. 

[0038] In still another preferred embodiment of the inven- 
tion, the genealogy registry system further comprises a 
program and data stmcture for storing and processing data in 
a plurality of languages using the language and characters of 
original records with transliteration and translation to 
English. 

[0039] In yet another preferred embodiment of the inven- 
tion, the genealogy registry system further comprises a 
program and data stracture for reserving and assigning to a 
single publisher creation and maintenance of a selected set 
of names based on at least one of time, place, surname, or 
record set, and indexes to such assigning for notifying others 
of current assignments. Preferably, the system further com- 
prises a program and data structure configured for permitting 
data submissions by a publisher to be stored independent of 
submissions by other publishers while being available for 
integration with other data submissions through a separate 
system of linking names that is accessible to such other 
publishers. Further, the system preferably further comprises 
a program and data structure for allowing a selected person 
to link names within or between one or more other publish- 
er's submissions without changing the underlying data. Still 
further, the system preferably further comprises a program 
and data structure configured for permitting an authorized 
person to create shadow 'dfe'lete' records wherein"duplicate 
names can be removed from search lists and duplicate data 
can be hidden from usees without being deleted &om the 
database. 

[0040] la still another preferred embodiment of the inven- 
tion, the genealogy registry system further comprises a 
program for providing summaries by surname and oldest 
birth date linked to a user or nearest relative thereof. 
Preferably, the genealogy registry system further comprises 
a program for identifying a closest common ancestor, if any, 
for two randomly selected people. Further, the system pref- 
erably further comprises a program for displaying all rela- 
tionships for a selected person. Moreover, the system pref- 
erably further comprises a read-only virtual reality user 
interface configured for permitting a user or group of users 
to receive immediate visual and aural access to the data in 
the database, wherein the data appear as objects in a three- 
dimensional world with which the user can interact. Still 
further, the system preferably further comprises a virtual 
reality user interface configured for permitting a user or 
group of users to receive immediate visual and aural access 
to the data in the database, wherein the data appear as objects 
in a three-dimensional world with which the user can 
interact, and whereby an authorized user can modify the 
database. 

[0041] Another preferred embodiment of the genealogy 
registry system further comprises a mechanism configured 



for allowing a publisher or other authorized person to 
examine the database for assessing completeness of cover- 
age of a selected time, place, surname, or record set such that 
the publisher can discover what data are in the database and 
what data are missing. The system also preferably further 
comprises first-level indexes to names and source records 
such that measures of population and record coverage can be 
estimated; second-level cross references between source 
records and names such that measures of accuracy and 
duplication can be applied to the data, and measures of 
completeness of coverage of a record set can be estimated, 
and cross indexing can be accomplished between multiple 
versions or copies of the same record set; and third-level 
cross references of source -to-dissimilar-source records such 
that the database can supply consolidated cross reference 
indexes among multiple record sources linked through spe- 
cific people. 

[0042] Still another preferred embodiment of the geneal- 
ogy registry system fuirther comprises a program for auto- 
matic conversion of a user's lineage-linked data into a 
format suitable for automatic update of the database over the 
Internet. The system preferably further comprises a program 
and data structure configured for capturing, converting, and 
consolidating lineage-linked genealogy data collections 
stored for public view on the Internet. Preferably, the lin- 
eage-linked data collections arc automatically analyzed aod 
divided into trees of interconnected names. 

[0043] Further, the genealogy registry system preferably 
further comprises a program configured for analyzing 
incoming lineage-linked data collections for consolidation 
with existing data, eliminating duplicates, and finding and 

displaying missing linkages in incomplete pedigrees. 

[0044] Still further, the system preferably further com- 
prises a program and data structure configured for support- 
ing automated mass consolidation of unlinked source 
records into multi-generation Uneage-lmked form. The* sys-** 
tem also preferably further comprises a program and data 
sUuclure configured for converting data from Ancestral File 
and International Genealogical Index into a format compat- 
ible with the present system and for online review and 
correcting of such data. Further, Che system preferably 
further comprises a program and data stmcture configured 
for automated comparison of overlapping lineage-linked 
genealogy files and removal of duplicates and mei^ing of 
data. Still further, the system preferably further comprises a 
program and data structure for coding of confidence levels 
or accuracy indicators on data elements selected from the 
group consisting of birth dates, birth places, and relationship 
hnks. 

[0045] Another preferred embodiment of the genealogy 
registry system further comprises a program and data struc- 
ture configured for accoimting of royalty payments to pub- 
lishers of data based on use of such data and charging user 
fees to users of such data. The parameters for royalty 
payments and user fees can preferably be varied according 
to user, publisher, name, and data element. Preferably, the 
system further comprises a program and data structure 
configured for allowing a user to separately select for 
viewing each item of data about a name. The system 
preferably further comprises a program and data strucUire 
configured for billing a user only once for each item of data 
viewed, regardless of the number of times the item is 
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viewed. Moreover, the system preferably further comprises 
a program aad data structure configured for controlling a 
number of names accessed per unit time. 

[0046] Id yet another preferred embodiment of the inven- 
lion, the genealogy registry system further comprises a 
program and data strucnire configured for producing a copy 
of the central server database wherein said copy is config- 
ured such that data quality parameters can be different than 
for the central server database. Preferably, users of the copy 
are billed at a different rate than are users of the central 
server database. 

[0047] Another preferred embodiment of the invention 
preferably further comprises a program and database struc* 
ture configured for producing a research coordination report 
for identifying areas of user interest based on user name 
selection and fee payment patterns and for facilitating 
research planning and contracting. 

[0048] Still another preferred embodiment of the geneal- 
ogy registry system further comprises a program and data 
structure configured for matching one or more publishers of 
research data with one or more users of such data. In such 
embodiment, one or more publishers can announce and 
register research plans and seek funding commitments, and 
one or more users can make such funding commitments. 

[0049] A method for c ollecting, summarizing, indexing , 
lineage- linking, and displaying genealogical recoros miol^ 
maiion comprises: 

[0050] (a) providing a genealogy registry system on 
a computer comprising: 

[0051] (i) a central server database comprising 

[0052] (1) a plurality of contributors' data 
spaces for storing genealogical data in lineage- 
linked form, 

[0053] (2) a submission link space coupled to 
the plurality of contributors* data spaces for 
making and storing links between genealogical 
data items in each of the plurality of contribu- 
tors' data spaces, and 

[0054] (3) a third-party link space coupled to the 
plurality of contributors' data spaces for mak- 
ing and storing links between genealogical data 
items between the plurality of contributors' data 
spaces, 

[0055] (ii) a normal text and graphics interface 
coupled to the central server database, 

[0056] (iii) a basic data display coupled to the 
normal text and graphics interface, 

[0057] (iv) a data status and management mecha- 
nism coupled to the normal text and graphics 
interface for monitoring quantity and quality of 
data, 

[0058] (v) a manual keying interface coupled to the 
central server database for inputting and correc- 
tion of data, and 

[0059] (vi) a dau conversion and automated input 
coupled to the central server database for convert- 
ing data into usable format and inputting large 



data files, and storing genealogical data on the 
central server database in lineage-linked form; 

[0060] (b) establishing links between genealogical 
data items; and 

[0061] (c) displaying genealogical data in response to 
a request for data and billing a user for data displayed 

in response to the request. 

[0062] A method for publishing lineage-linked genealogi- 
cal data using a computer comprises: 

[0063] (a) receiving and storing lineage-linked 
geEiealogical data &om a publisher; 

[0064] (b) inputting into the computer a payment 
identifier specifying a credit card account associated 
with a user; 

[0065] (c) permitting the user to access lineage- 
linked genealogical data stored in the computen 

[0066] (d) charging the credit card account on a 
pay-per-view basis according to lineage-linked 
genealogical data accessed by the user; and 

[0067] (e) crediting a royalty payment to the pub- 
lisher correlated with charges to the user for access- 
ing lineage-linked genealogical data received from 
the publisher. 

BRIEF DESCRIPTION OF THE SEVERAL 
VIEWS OF THE DRAWINGS 

[0068] FIG. 1 shows a block diagram of the genealogy 
registry system according to the present invention, including 
data sources, the main server database, and output options. 

[0069] FIG. 2 shows a block diagram for describing the 
main kinds of data stored in the central server database 
' accbrding'to the present invention. ' 

[0070] FIG. 3 shows an illustrative screen view of loca- 
tions on a map of North America according to the present 
invention. 

[0071] FIG. 4 shows an illustrative automatic research 
coordination report acoording to the present invention. 

[0072] FIG. 5 shows an illustrative screen view of output 
in a three-dimensional virtual reality format according to the 
present invention. 

[0073] FIG. 6 shows a flow chart of illustrative transac- 
tions that can be made by a publisher using the genealogy 
registry system of the present invention. 

[0074] FIG. 7 shows a flow chart of illustrative transac- 
tions that can be made by a user of the genealogy registry 
system of the present invention. 

DETAILED DESCRIPTION 

[0075] Before the present genealogy registry system is 
disclosed and described, it is to be understood that this 
invention is not limited to the particular configurations, 
process steps, and materials disclosed herein as such con- 
figurations, process steps, and materials may vary some- 
what. It is also to be understood that the terminology 
employed herein is used for the purpose of describing 
particular embodiments only and is not intended to be 
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limiting since the scope of the present invention will be 
limited only by the appended claims and equivalents thereof. 

[0076] The publications and other reference materials 
referred to herein to describe the background of the inven- 
tion and to provide additional detail regarding its practice 
are hereby incorporated by reference. The references dis- 
cussed herein are provided solely for their disclosure prior to 
the filing date of the present application. Nothing herein is 
to be construed as an admission that the inventors are not 
entitled to antedate such disclosure by virtue of prior inven- 
tion. 

[0077] It must be noted that, as used in this specification 
and the appended claims, the singular forms "a,"**an," and 
"the" include plural referents unless the context clearly 
dictates otherwise. Thus, for example, reference to a gene- 
alogy registry system containing "a program" includes ref- 
erence to two or more of such programs, reference to "a data 
structure" includes reference to one or more of such data 
structures, and reference to "a central server database" 
includes reference to two or more of such central server 
databases. 

[0078] Id describing and claiming the present invention, 
the following terminology will be used in accordance with 
the definitions set out below. 

[0079] As used herein, "comprising,""including,"**con- 
taining,""characterized by," and grammatical equivalents 
thereof are inclusive or open-ended terms that do not 
exclude additional, unrecited elements or method steps. 
^'Comprising'* is to be interpreted as including the more 
restrictive terms "consisting of* and "consisting essentially 
of." 

[0080] As used herein, "consisting of and grammatical 
equivalents thereof exclude any element, step, or ingredient 
not specified in the claim. 

[0081] As used herein, "consisting essentially of and 
grammatical equivalents thereof limit the scope of a claim to 
the specified materials or steps and those that do not mate- 
rially affect the basic aixl novel characteristic or character- 
istics of the claimed invention. 

[0082] As used herein, a "publisher'* or "contributor" is a 
person who submits genealogical data for inclusion in the 
genealogy registry system. 

[0083] As used herein, a "user" or "searcher'* is a person 
who obtains genealogical data from the genealogy registry 
system. 

[0084] Id its simplest, overview form, the system com- 
prises a large Internet site connected intermittently to many 
thousands or even millions of PC^ located anywhere in the 
world, plus local and remote connections to a smaller 
number of large and powerful PCs, which arc referred to 
here as data consolidation workstations. 

[0085] Id the first prototype version of the system there are 
about 200 Microsoft Visual Basic Script programs, other- 
wise known as Active Server Pages, which provide most of 
the logic at the central site. The operating system is 
Microsoft Windows NT Server. The database mechanism is 
Microsoft Access for development, and Microsoft SQL 
Server for production use. It shotdd be noted that there are 
other operating systems that also accept Active Server Page 



(ASP) code, and the database type used is relational, of 
which there are several competing versions. The full pro- 
duction version of the system might use one or more of these 
differing system software components. 

[0086] There are numerous HTML pages that contain 
menus of transactions, instructions on how to use the sys- 
tem, history of the project, and the like. 

[0087] A set of Microsoft Visual FoxPro programs and 
data tables, about 30 modules in all, are packaged for 
downloading from the central site to a participant's PC. 
These modules are used to convert lineage-linked data into 
HTML format and automatically update the central data- 
base. 

[0088] FIG. 1 shows a block diagram illustrating the 
major components of the genealogy registry system 10 
according to the present invention. It illustrates how the 
system interacts with the world. It shows numerous data 
input sources and processes, the central database structure, 
some internal processing categories, and numerous output 
categories. Different sets of transactions arc used by pub- 
lishers and users. Some user transactions are free, while 
some involve billing for data viewed. 

[0089] Input. FIG. 1 shows that there are four iUustrative 
examples of sources for lineage-linked data: Home PC Data 
12, Internet Data 14, Ancestral File (AF) 16, and Interna- 
tional Genealogical Index 18 (IGI; a large database operated 
by The Church of Jesus Christ of Latter-day Saints contain- 
ing some 300 million names and including limited linking 
data, such as parent-child and husband-wife). Wherc the 
home PC data set is large and is owned and maintained by 
a serious genealogist, the data may be uploaded to the 
central server database 20 using the downloaded Visual 
FoxPro programs, represented by the data conversion box 
22. Smaller files from less serious genealogists will be 
collected by file transfer or diskette to a consolidation 
• • workstation 24, where- such ^smaller files undergo various 
processes and are included in a much larger name collection 
to be sent on to the central server database 20. 

[0090] Another category of input data is described as Raw 
Source Records 26. These data may come ftom many 
different sources including direct transfer from other com- 
puters, or manual and automated record conversion from 
paper and microfilm. Such data require more extensive 
processing than data that are already lineage-linked. 

[0091] The Data Conversion and Consolidation Worksta- 
tion. The Data Conversion and Consolidation Workstation 
24 contains three kinds of programs: (1) for accepting many 
small lineage-linked data collections from individuals or 
fi^om locations on the Internet and process them into much 
larger consolidated collections; (2) for accepting large sets 
of raw data, such as a series of U.S. decennial censuses, and 
turn them into a set of lineage-linked families; and (3) for 
accepting large, specialized, machine-readable collections 
such as the International Genealogical Index (IGI) and 
Ancestral File (AF) and processing them into a lineage- 
finked format suitable for adding to the central server 
database 20. All of these functions can go on in the central 
Internet site, but central site performance will be improved 
by executing these specialized and computer-intensive 
operations on separate computers where possible. 

[0092] Internal and Maintenance Programs and Processes. 
Some of the programs, called the manual keying interface 
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28, allow manual updates to the data and links after they 
have been added to the iDain database. Programs referred to 
as central database maintenance and librarian functions 30 
handle general administrative functions such as updating fee 
schedules and devising formats for entering new types of 
source reference data. 

[0093] Another program 32 is configured for accepting 
money transfers from users, through credit cards or other 
electronic means. Other programs 34 handle the internal user 
pay-per-view and micro-payment processes. Another set 36 
issues periodic royalty payments to publishers. 

[0094] Output. Still referring to FIG. 1, the area 38 below 
the main database shows the main outputs of the system. The 
normal text and graphics interface 40 uses different pro> 
grams 42 to display name data in one of two modes, an 
''express" view that shows the minimum identifying data 
about a person and his or her links to all family members, or 
a selectable mode that can show anything from the minimum 
data up to the full data stored for that person. User billing is 
executed by an integrated set of programs that charge by 
data segment viewed, based on user preference, from the 
minimum segment up to the full set of segments available 
for that name. Another set of programs meters the outflow of 
data, and may limit the flow of data or change billing rates 
based on flow rates. 

[0095] Besides the basic data display mechanism, there 
are also programs 44 to allow users to see siunmaries of data 
presented in table, graph, or map form. 

[0096] Metadata program functions 46 are available to 
show database status and various database management 
reports so users can all participate in database improvement. 
Through these programs users can learn what is in the 
database and what is not, allowing them to better manage 
their time and efforts. Programs also produce reports for 
automated coordination of research. 

[0097] Another set of programs '48" produce" 
reality world view of the database contents using user- 
supplied parameters to determine the size of the virtual 
world. It can portray the entire database as a large building 
containing a network of spheres interconnected with rods, 
representing individuals and their family relationships. One 
can swing or slide through the spheres, going along rela- 
tionship "rods" in any direction to find the relevant contents 
and limits of the current database. Touchiag any sphere wUl 
cause it to reveal information in addition to the name, birth 
date, and birth place. A menu of items available will appear. 

[0098] Main Database. The central server database 20 is 
also represented in a simplified form in FIG. 1 and in greater 
detail in FIG. 2. IWo or more sections 50, 52 (labeled 
"Publisher Submission — Basic Data on Individuals") pro- 
vide space to store the main tables of information about 
individuals. Shadow Delete Records 54 provide a way to 
remove duplicate names from the normal search and view- 
ing process to minimize the efforts users must expend to find 
the desired data. Submission Lineage-Linking Space 56 
represents storage of the submission internal name-linking 
records. These records comprise a person-identifying num- 
ber, a code showing his or her relationship to another person, 
and the number of that otber person. There is one record for 
each relationship between one person and another. 

[0099] A Third-Party Lineage-Linking Space 58 repre- 
sents programs that allow any interested party to add links 



between database names without making any changes to the 
submission data. The link records contain the same data as 
the internal link records, but also contain the identifying 
number of the person who submits the link record. 

[0100] Main Database Data Types. There are many other 
kinds of data that must be stored in the database. The data 
types listed below generally do not correspond to actual 
database tables in the database. Each category may represent 
several physical tables or only a part of one or more tables. 
Publisher Submission — Basic Data on Individuals 50, 52 
store lineage-linked or ''finished" names in large nimibers — 
an estimated 500 million names for the United States, 500 
million for Europe, and, later, data firom all parts of the 
globe, up to a total of about 10 billion linked names. The 
Submission lineage-Linking Space 56, as described above, 
stores the submission internal name-Unking records. The 
Third-Party Lineage-Linking Space 58, also described 
above, allows any interested party to add links between 
database names without making any changes to the submis- 
sion data. Publisher Submissions 60 is for storing a variety 
of information on names stored in the central server data- 
base, such as source references, biography, photos, source 
record images, audio and video clips, and the like. Buyer 
Registration, Data Ownership, Interest patterns, and Billing 
Data 62 is for keeping track of buyers of genealogical data, 
owners of data stored in the database, interest patterns of 
buyers, and billing data with respect to buyers of data. 
Publisher Registration 64 is for recording the data assign- 
ments of publishers, ownership of data by the publi^ers, 
and royalty payments to the publishers. Data assignments 
help coordinate efficient database construction. Data Statis- 
tics and Control data 66 helps publishers determine what 
data are or ought to be in the database. This information 
includes expected counts by area and time, "trees" of 
interconnected sets of names, and the like. First, Second, and 
Third level indexes and Cross-references 68 are for indexing 
and cross-referencing siniilar'an^ dissimilar source record'*'' "' 
of data. Data Confidence or accuracy indicators 70 assists in 
user evaluation of data and in central site pricing of data. 
World Language Data 72 is a Unicode representation of 
original Cyrilfic, Kanji, and other characters with translit- 
eration and translation to English for general access. Lati- 
tude and Longitude data 74 is for geographical location of 
individual events and places: birth, marriage, death, burial, 
and so forth. These latitude and longitude data are useful in 
graphing locations^ migrations, and checking place names. 
Historical Place Name Table linked to latitude and longitude 
76 allows tracking place name changes over time and 
checking data submission accuracy. Fee Table 78 is for 
assigning fees for data and variatu)ns based on data quality, 
contracts, and the like. Health, medical, and genetic data 80 
are useful for individual tracking or checking of health or 
relationship concerns. These data are also useful for more 
general statistical studies. The Online Auction Data 82 
automates much of the notification and negotiation process 
for matching one or more users (i.e., buyers) and one or 
more publishers (i.e., sellers) for specific genealogy research 



[0101] Envision is made according to the present inven- 
tion for periodic permanent archiving 84 of the database 
contents to microfiche or some more compact and equally 
durable medium. New technologies will allow i^ to 600- 
to-1 reduction for analog viewable formats. 
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[0102] A separate version of the database will be estab- 
lished with different cost and quality constraints, suitable for 
use by beginning publishers and users for training and data 
preparation. It wiU also be used for other low volume, less 
disciplined, more freeform uses, such as leaving an "I was 
here" or "We were here" messagp to the world or a lime- 
capsule faoiily message to future generations. 

[0103] The database will store data about the people who 
interact with the system, such as the publishers and users. 
This information includes contact data and billing or royalty 
payment data, and pricing rates and rules. 

[0104] The thousands of the people using the site will be 
able to prepare genealogical data to be transferred to the 
Internet site to be "published," as that term is used herein. A 
much larger number of people called "users" or "searchers" 
herein, will search through the central site for data that relate 
to their famUy, paying small amounts as they view new 
matenal. 

[0105] The searchers are mostly people with a hobbyist's 
interest in genealogy. The publishers include some of that 
amateur group, but will also include professional and semi- 
professional workers who make their first or second incomes 
in this activity. 

[0106] The people working at their home, office, or library 
convert the many private and public record sets that make up 
the world's genealogical data into lineage-linked format to 
add to the genealogy registry database of the present inven- 
tion. There wiU also be some special situations where the 
central site is connected to devices that are involved in the 
direct conversion of paper or microfilm records to a com- 
puter usable format, including scanners of various kinds. 

[0107] There are many web sites that store large amounts 
of raw unlinked genealogy data in machine-readable form. 
.(•■In most cases it would not be •neoessary-^to- duplicate those 
resources, but data from these sites can be reorganized on the 
genealogy registry ate of the present invention. There will 
be cases where it is convenient to collect and store unlinked 
data that do not appear on other sites. The main web site and 
workstation facilities of the present invention can help turn 
this new raw material into finished lineage-linked form. 

[0108] Operation of the Genealogy Registry System 

[0109] The main functions of the system of the present 
invention are to (1) collect from publishers sets of names 
linked into families, preferably in descendant form, (2) 
allow updates and further linking with other collections of 
names submitted by other publishers, (3) charge small fees 
to buyers for names, links, and other individual and family 
data viewed, and (4) remit these fees as royalties to the 
publishers, after deducting the cost of site operation. Data 
interfaces will include the normal text and images in a 
Graphic User Interface, plus a Virtual Reality version as 
well. 

[0110] Most large collections of genealogy data are simply 
huge lists of raw or unconnected names. Changing the 
paradigm so that each name stored and each sub-component 
of data about the name are separately displayed and billed, 
represents a huge increase in the level of computing detail 
that must be handled. This is one of the more important 
contributions of this system. 



[0111] Collecting Data — Main Source. The main source of 
quality data is firom skilled genealogists who are willing to 
publish their data in return for royalties. Data &om publ^h- 
ers possessing significant quantities of genealogy data can 
be sent in directly from a home PC after automated conver- 
sion from a GEDCOM file. It can also be entered directly 
into the central database by keying data into the "express" or 
short-form screens or by keying it into the full data screens. 
It can also be mailed or sent by file transfer to a central 
processing site. 

[0112] The descendant form of data organization is pre- 
ferred because it simplifies describing boundaries between 
publishers' work, and it also minimizes the labor needed to 
ftirther interlink the many publishers* submissions. This 
descendant form is sometimes referred to herein as a "cone" 
because the earliest ancestor in the pedigree forms the point 
of the cone with each succeeding generation broadening the 
base of the cone. 

[0113] Collecting Data— Other Options. Smaller linked 
GEDCOM files can be collected into one central location 
where a special data consolidation workstation can help to 
match and join these names into much larger collections. 
These data might be chosen from among the data collections 
already on the Intemet. 

[0114] Large sets of records, such as census, land, birth, 
death, and the like can be prepared. Special computer 
assistance would then be used to create linked files out of 
these mostly unlinked files. 

[0115] Large existing files that contain some name linking, 
such as the Ancestral File (AF) and International Genea- 
logical Index (IGI), can be converted into a suitable lineage- 
linked form with adequate quality controls. 

[0116] Improving Quality and Linking. An important 
function, that still remains to be done after the large descen- 
dant "cones'* of linked data have been^ collected; «is to- further-^* <^ i * . ^ t >.» .-.4 i r.-^ 
link names together among those cones. Typically, a descen- 
dant cone of data will comprise about one-half of the names 
all having the same surname, the other half being the wives 
and husbands who married into the *'clan." Many of these 
imported spouses will at first not yet be connected lo their 
parents in another surname descendant collection. When 
these family connections are discovered in the database, a 
separate set of links can be created to complete those ties 
between all descendant collections. The workstation and 
Add Link programs illustrate the algorithms used in this 
important process. 

[0117] Sales of Pay-Per-View Data. Those seeking to find 
family data on the site will register, pay a small startup fee, 
and then begin the search process. Actually, before paying 
any fees, they can search far enough into the database to 
discover if it contains any data on their family line. After 
they have found the first name that is a close family member 
such as a father or grandfather, they can move around in the 
database, along links that exist. As each new name is chosen, 
along with the types of data to be revealed about that name, 
the buyer is charged a small fee and is shown the data. 

[0118] After a person has selected and paid for a name and 
accompanying data, a record will be made so that he will not 
be charged again if he views that name and data again. If he 
elects to see more data about the person, he will be charged 
only for the new data. 
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[0119] There will be a temptation for some people or 
compaDies to try to take large numbers of names off the 
database to be displayed in private or commercial databases, 
on or off the Interact. To avoid such abuses of the system, 
there will be a limit on the number of names per day allowed 
to downloaded. At each session logon, the number of names 
already viewed for that day is computed. The new name 
allowance will be the maximimi daily limit minus those 
names already viewed. This limitation will allow users to 
satisfy their interests within a few days, while keeping the 
rate low enough to discourage drawing off large numbers of 
names for other purposes. 

[0120] Optional Display of Data Through Virtual Reality 
Interface. The Virtual Reality interface allows a user to view 
large amounts of family data in 3-D network form, without 
the constraints of having to make constant keyboard entries 
to control the navigation and viewing in two dimensions of 
a 3-D network of names. This convenience and enhanced 
experience will require the users to pay an operating pre- 
mium for the names seen, plus it will require that they have 
access to a faster Internet link, and a powerful PC with a 
large monitor. Even more sophisticated virtual reality equ^- 
ment could be used with the same data to give the impres- 
sion of a room-sized or movie-sized screen, with direct 
partidpant involvement. 

[0121] Function and Module Lists. In the next section the 
function menus as they appear in the website are described, 
with an explanation of what each operation does. For the 
next lowest level of detail, see the Site Module Map (Appen- 
dix) which lists all modules and their functions and rela- 
tionships. The lowest level of detail is the program listings 
themselves that demonstrate in complete detail bow each 
function is accomplished. 

[0122] Publishing. This system creates an alternative place 
for publishing genealogy data. When data are published in a 
book, inany people will never even realize that the book 
'mi^Tliave some^^^ to th'emVsince only tfie title ' 

is likely to be hsted, and the title usually only includes a 
single person's name or a single surname. The book sales 
may be quite low because people usually only want a small 
segment of the book. When all the names are published and 
indexed on the Internet, then there should be more sales, 
because people can find, select, and pay for just the data they 
want. There will likely be sales of fewer data to any 
particular person, but there will be sales to many more 
people. Publishing routines can be added to the system for 
facilitating publishing of do-it-yourself books. The user can 
specify the data, to be in ascending or descending form, and 
let the system collect and print it all. Editorial support can 
also be available. 

[0123] Overcoming Duplication and Loss. Up to now the 
genealogy procedures the world has used comprise paper 
systems or relatively small accumulations of names in linked 
electronic form on a home PC. Online internet sources are 
mostly limited to copies of the PC format data or large lists 
of raw data such as births, deaths, and the like. Nobody has 
attempted the onliirc accumulation and comparison of data 
from midtiple sources with the goal of accurate linking, and 
to allow for multiple data interpretations so that a solution or 
compromise could finally be reached without loss of any 
contributed data. 

[0124] Today there is massive duplication of effort by 
earnest people lacking the best tools. The current system is 



the needle-in-the-haysiack approach to genealogy. Nearly 
every new name or family sought can require going to a new 
set of records, and each new set of records may require a 
whole new set of skills and perhaps even a new language. It 
is believed that enough energy is expended in one year to 
complete the entire system and database described herein. 

[0125] Social Benefits. The system will first help hobby- 
ists and roots searchers to quickly learn of their past kindred. 
This can have the effect of strengthening the family and the 
nation as other genealogists have commented. But it can also 
have many other benefits. It will help make the study of 
genetic diseases many times easier than today. As a com- 
panion to the Human Genome project spoiKored by the 
National Institutes of Health, which recently published a 
first draft of the sequence of the human genome, the present 
invention could provide the data needed to quickly trace 
genetic histories so that sophisticated theories of genetic 
transmission could be examined. 

[0126] Efficiencies. The main efficiency of the system is 
the ability if provides for tens of thousands of people to 
share, evaluate, correct, update, and link data in near-real- 
time. This gets more people involved and will save millions 
of man-years of effort over the next ten years. Moreover, 
"macro-genealogy," the process of studying and joining 
separate units of genealogical data as might typically be in 
GEDCOM units, can reduce the linking workload factor at 
least 30 times. 

[0127] Operation — PC Data. Large amounts of high qual- 
ity data in GEDCOM format found on home PCs or else- 
where can be converted to HTML by downloaded Microsoft 
Visual FoxPro programs, and then uploaded to the main 
database automatically or semi-automatically, without re- 
keying. Alternatively, for smaller collections of names or 
those of lower data quality, the GEDCOM or similar data 
can be sent to a workstation where it is matched and merged 
' with' other small GEDCOM (data' sets b'efdie being' moved" ' 
the main database in bulk, perhaps in groups of one million 
names. 

[0128] Data Sources — Manual Entry. The system will 
support the direct entry and correction of all data to the full 
set of data fields that will be supported. For smaller collec- 
tions of data, or for corrections, this manual entry will be the 
preferred way to enter the data. A set of "Express" screens 
will also albw publishers to enter efficiently just the mini- 
mum identifying data about each person and his or her 
relationships. 

[0129] Data Improvement and Database Maintenance 
Operations. Besides the main process of entering of new 
data, there will be thousands of participants locating and 
linking names together, as where a link can be found to a 
person's parents in another publisher's area. It will also be 
necessary to have a few skilled operators using specialized 
transactions to monitor operations and occasionally correct 
and move data within the main database, as when a set of 
names is transferred to a new person for maintenance, or 
some error of registration or billing occurs. 

[0130] Data Consolidation Workstation. This set of func- 
tions can run on a specially equipped PC or on the central 
server. In the separate PC version, the programs accept and 
analyze a large number of small files, converting them to a 
common database format, almost identical to the main 



04/30/2004, EAST Version: 1.4.1 



us 2002/0032687 Al 



9 



Man 14, 2002 



database. A series of operations then joins them together 
where possible, eliminating duplicates, resulting in large 
completed collections of perhaps one million names each, 
suitable for loading into the main database. More specifi- 
cally the programs: (1) gather statistics on incoming data 
concerning such things as surname distribution (see discus- 
sion of "cones'*), time and place of data, and the like; (2) 
analyze newly received data to determine its level of dupli- 
cation with the existing database; (3) analyze incoming data 
to determine the number of separate "trees" or linked sets of 
names that are contained in the data collection, and provide 
a way to separate out those linked segments for treatment; 
(4) compute levels of possible extension to the existing 
database by comparing the number of missing-parent and 
missing-spouse names in incoming data with the data that 
could provide the parents (or vice versa) and thus extend the 
connections; and (S) for incoming missing-parent and miss- 
ing-spouse names, actually make the various levels of exact 
or near comparisons with the new and existing database and 
show the candidate links to an operator for verification or 
probability judgement. At that point a code may be entered 
to indicate the level of proof or level of confidenoe for data 
and links. 

[0131] Input Data to Data Consolidation Workstation 
Function. Many types of genealogical data exist in the 
world, and there must be facilities to place all such types into 
a common format. Some of the major categories of such data 
include: (1) Lineage-linked names found on home PCs. 
Small collections of names in various formats including 
GEDCOM formats, could be sent to a workstation where it 
would be matched and merged with other small data files 
before being moved the main database in bulk, perhaps in 
groups of one million names. (2) Lineage-linked data found 
^ jin the, Internet Such data , are ^Qy^oaded. from 
and converted to a form acceptable to the workstation, 
usually GEDCOM, if not in that form already. (3) Source 
record to lineage -linked records. A major conversion process 
is involved here before sending the data to the workstation 
function. The most well-documented way to create lineage 
linked records is to start with the source records, and, in a 
top-down, oldest to youngest fashion, construct the pedi- 
gree, usually in a descendant form. When a segment is 
completed it can be added to the main database after being 
consolidated. (4) International Genealogical Index (IGI) 
data. This huge file can be placed on a specialized large 
workstation and converted into lineage linked format, with 
removal of massive duplicates. It may still be short of the 
level of quality needed to enter into the main database. A 
comparison with paper records may be necessary. It might 
be done in segments and then added to the workstation for 
cleanup and linking. Even in its converted form, it may only 
be useful as a model or guide for linking of other versions 
of the same name, date and place data. (5) Ancestral File 
(AF) data. Convert this file into a suitable addition to the 
main database, or like the IGI, just use it as a guide while 
putting together other sources of the same name coverage. 
This could also be done in segments, and placed in the 
workstation for ooosolidation. (6) There are many other data 
sources and formats, but solving the above problems should 
take care of most situations with small variations. 



[0132] Central Server Main Relational Database Structure 
and Use 

[0133] The design for the central database is extremely 
important to allow for all the needed functions to go on 
simultaneously. The publishers, i.e., the people who prepare 
the names for entry into the system, will each be assigned a 
block of numbers as the place to enter their data. The number 
is made up of a sequential publisher identification number, 
plus an extension of up to six digits for up to one million 
names or larger depending on the expected contribution of 
the publisher. That set of numbers can be viewed by others 
but cannot be modified. Publishers will enter in the various 
kinds of data records associated with each person, and will 
specify the relationship links between them. 

[0134] There is an area set^aside for third parties to specify 
links between people. These third party entries can include 
a new name, plus a series of finks to coimect that name with 
people in other areas of the database or they might just add 
links between existing people. 

[0135] The main table in the database is called Person_T. 
It contains the identifjring number assigned to that person, 
which number is a combination of the publisher's ntunber 
(nine digits at this point), pluis a five or six digit sequential 
number, allowing up to 999,999 names in a particular 
submission by that publisher. The table also contains the 
name, the basic identifying data such as birth date, chris- 
tening date, death date, or burial date, plus any comments 
about those basic identifying items. 

[0136] Other tables containing data about the person are 
Text_T to hold textual biographical data, Photo_T which 
holds references to photo images stored about that person, 
and Image T to hold references to images of source records 
stored about that person. Other similar tables can be added 
as other data types are added, such as audio or video cb'ps. 

..-.c: [Q137] .,.The.Links_,T table is .used,tq.,link4,oget^^^^^ 

name records in fanoily or any other relationships, ifcontains 
just the number of the focus person, the number of the 
person to whom he or she is related, and the nature of the 
relationship. So, for example, a man with number 1 might 
have a wife with niunber 2, and the link record would have 
his number, her number and an indicator that the relationship 
is spouse-wife. 

[0138] This Ltnks_T table can be used separately firom the 
Person_T name data record to do such things as trace one's 
pedigree up, down, or sideways. When the basic linking data 
have been gathered, the Person_T table can be used to 
supply the actual names for a report. The TR* (trace) 
temporary table is used in the search process to store the 
residts before the report is sent to the user's screen. 

[0139] The Links_T table can similarly be used to com- 
pute which names of a bulk submission are actually linked 
together in some way, so that the submission can be divided 
into "trees" for processing. In that case the WSTl * and 
WST2* (workstation temporary 1 and 2) tables are used as 
temporary work tables and the Tree_T table is used to store 
the final results. 

[0140] The Marriage_T table holds the basic data about 
the marriage event and any modifying comments about the 
marriage. The table contains the identifying numbers of both 
of the people, so that the record can be found using either 
number. 
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[0141] The Links_T2 table is available for publishers to 
record links between people in any of the submission spaces, 
as they find new connections. This link record is the same as 
the Links_T record except that it also includes the publisher 
number of the person creating the link record. 

[0142] The publishers must register before they can enter 
data, and they receive an identifying number at that time. 
They record their contact information, and their password. 
The table Publisher_t contains this information. It also keeps 
track of the next sequential number to be used when new 
person data are to be added to the data space for that 
publisher. It also contains their royalty status, that is, the 
amount earned and due to them. 

[0143] Th& buyers of data must also register before they 
can enter data, and they receive an identifying number at that 
time. They record their contact information, and their pass- 
word. The table Buyer_t contains this information. It also 
contains their billing information such as their credit card 
number, and their current balaaoe and total usage. 

[0144] Another table BuylogJT records all of a buyer's 
activity, including the names he has viewed and the data 
items he has selected. This can allow statistical review of 
buyer activity. 

[0145] A related table Paid_t is a summary of the Buylog^t 
information. It is used to determine whether a buyer has ever 
paid for a particular name and related data sub-elements 
before, so that he or she will not be charged again for the 
same infonnation. 

[0146] The Fee_Set_T table contains the fees currently 
being charged for the different elements of data stored about 
a person. It is used both to charge the users and to assign 
royalties to the publishers. 

[0147] The Mast_Buyer__Num table supplies the next 

.„ sequential number to be assigned a new buyer.that registers. , 

[0148] The Mast_Pub_Num table supplies the next 
sequential number to be assigned a new publisher that 

registers 

[0149] The HMast_Hob_Num table suppUes the next 
sequential number to be assigned a new hobbyist that 
registers. Other tables beginning with an "H" serve the same 
purposes as the tables just described for the main database. 

[0150] The MTl* (matching temporary table 1) provides 
workspace for the workstation matching program, as it 
examines missing parent, missing spouse, and missing child 
conditions. 

[0151] TTie Register_cones table allows a publisher to 
indicate his interest and intent as to data to be added to the 
database. It can then serve as a place to coordinate work and 
avoid imintended duplication. 

[0152] The Gedcom_t table is used to register and control 
GEDCOM projects and page inputs by publishers through 
the client-side HTML interface, 

[0153] Shadow Deletes to Reduce Duplication. This topic 
is more complex than others related to data updates^ so a 
separate discussion is provided here. The competing design 
goals of retaining all submissions intact while also providing 
maximum links between them and minimum duplication 
among them requires some creative database work. The 



shadow update method is the main technique for accom- 
plishing this objective. This shadow method means there are 
two or more layers of data that must be read by any search 
transaction, and the result interpreted and displayed to the 
user 

[0154] One of the important design goals of this system is 
to allow any qualified person to make a data submission and 
to keep that submission intact. However, this aknost ensures 
that there will be overlapping submissions and the resulting 
duphcate entries. With multiple occurrences of the same 
name, the normal consequence is that the various search 
screens used to gain access to the data will list all those 
occurrences. A user would thus have to guess which version 
to try, or be faced with the need to check them all out. There 
are anecdotal reports of one case where a request was 
submitted to a genealogy search engine and 20,000 hits were 
obtained. It would be very inefficient to check all 20,000 of 
these hits. 

[0155] In prior genealogical databases, each name on the 
search list allows entry into a different pedigree structure 
that can be navigated and examined. For each of those 
names one could request an ancestor summary report and 
thus know which one might contain the most data and so be 
most interesting to examine. But that could lead to huge 
amounts of confusion and endless duplication of effort by all 
users interested in any particular set of people. It would be 
better to consolidate the data and minimize the number of 
names one needs to examine. In effect, the computer and 
professional participants would do most of this work before 
the users even looked at the data. 

[0156] The solution implemented herein is to allow all the 
submitted data to remain in place, but to allow for any 
interested person to put in a transaction to remove any 
particular name from the search list, a special form of a 
delete, 

"•[0157] ' . When there is- more than one -submission - that 
contains relationship data for any one person, it would be 
ideal if the best of all that data were retained for use, but the 
redundant data were hidden from view, but remain available 
for review, if needed. The redundant data might later be 
completely deleted, but that step is not important except for 
internal database tidiness. 

[0158] When submissions overlap, duplicate names 
should have the benefit of connections to data in both 
submissions. So, when someone "deletes" a duplicate name, 
that person would also have the responsibility to see that all 
the right connections firom the remaining name were made 
into the other submission that he was partially deleting. 

[0159] It should be noted that the process beiag discussed 
is the third-party ADD LINK process that connects related 
submissions together, plus another step that removes the 
excess, duplicate names from any search lists to avoid 
confusion and wasted effort, and then diecks the reason- 
ableness of that "delete" before allowing it. In the ADD 
LINK scenario there are no deletes. When there are over- 
lapping submissions, the shorter pedigree is "deleted" but 
links from the shorter pedigree are added to the longer 
pedigree. In this way, anyone who entered his pedigree 
structure through the search list would have the benefit of all 
that is known about that name. 

[0160] This is a good techm'cal solution, because it maxi- 
mizes the atimber of links between names, although it still 
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leaves too many routes into the data for some names. It also, 
unfortunately, minimizes the economic incentives for people 
to make these connections, since they normally get no extra 
income from having made those connections. 

[0161] Both or all submitting parties could make all these 
same kinds of connections, and thus have all the paths 
available into the data, which paths may be nearly equiva- 
lent. But the troublesome duplication still remains to con- 
fuse the users. 

[0162] As a means of increasing the economic incentive to 
mim'mize duplication, publishers could make the links 
needed and then through "deletes" make their names the 
only ones that show up in the search lists for that area of the 
database. 

[0163] The process is cumulative. First the submitters 
make the connections from the shorter pedigree to the longer 
pedigree. Then they enter delete transactions to make the 
duplicate names disappear from search lists. 

[0164] The computer support that can be given to this 
splicing/hiding process is as follows. The delete transaction 
contains the number of the name to be deleted, the number 
of the replacement name, and the user number of the person 
submitting the transaction. To make sure that the deleting 
person has done his homework (and keeps it current in the 
future), the delete record will have an indicator that must be 
set on to put and keep the transaction in effect. Before the 
record is stored in the database and the indicator is set on, 
the computer first counts the connections of the old name to 
be deleted. It then counts the connections of the name to 
replace it. The new name must have at least as many links 
backward (plus spouse and children — sideways and for- 
ward) as does the old name. This check is not conclusive, but 
it ensures that the person making the deletion has done his 
homework. To limit search time, the search on the new name 
need only go back far enough to show that it is equal to or 
' greater then the old riame.'Otfierwise no svatcti is^t onV a^^ 
the apparent duplication continues to appear. 

[0165] It would be possible to have a transaction that 
automatically establishes all the needed links for the new 
name into the old name*s submission data. But that will not 
be made available until after further study. Typically, there 
should only be two links needed to tie a person to his parents 
in one or two other submissions. So the burden is probably 
best left on the user to make both, lest the machine-made 
connection just add to the confusion, or prevent the study 
that is needed to do it properly. 

[0166] It is believed that the care and thoughtfulness of a 
hand link done by a professional will always be preferred to 
any automatic process. Such an automatic process has been 
used in the Ancestral File and has not proved very accurate. 
Mistakes that would be obvious to a human examiner are 
allowed by the computer algorithms. It is believed there is 
time available to do it all manually, this careful knitting 
together of the submission data. Once thousands of people 
can work together at one time, most of the barriers to 
completing the process are removed. 

[0167] Having once taken care of the fiist-line names, i.e., 
the first point of intersection of submissions meaning those 
farthest back in time in one submission, the question then 
moves to all the other names further forward in the pedigree, 
the rest of the overlap area. The process is just the same. 



except that in the check-search, the search can stop one line 
of its search once it hits a "deleted" record in one of its 
branches. This should cut down the machine time needed to 
validate a proposed delete transaction. 

[0168] Setting up these delete transactions to lower dupli- 
cation could be a lot of work, but it will bring a good result. 
In most cases, the data will be quite stable. However, there 
is one case where the arrangement may not be too stable. 
This is where the data of both submissions cover exactly the 
same data to exactly the same depth. In that case it is not 
obvious who should act to delete the other's data. If one 
participant deletes all the other participant's data in this way, 
and then if the person whose data were deleted adds one 
generation back to his data, and the other submission admin- 
istrator docs not immediately add the appropriate extra links 
to bis version of the data, suddenly the original delete 
transaction would not be valid on a periodic re-compute. In 
fact, the hiding of a whole surname line might be imdone, 
the series of deletes might "collapse'* as the most ancient 
delete was invalidated and then other more recent deletes 
further down in the submission overlay area were also 
invalidated. 

[0169] This is good and bad — it makes the data seem 
unstable in some rare cases, but it also puts the onus on the 
party making the deletion to keep extending the data so that 
his data are not deleted by another. There is a financial 
incentive to avoid having one's data deleted in that income 
is lost to another person if one's data are deleted and the 
other person's data are used. 

[0170] Indexing and Cross-Reference. One valuable ser- 
vice the central genealogy system will provide is the index- 
ing and cross indexing of the mass of data that exists on 
genealogy topics. As names are entered into the Genealogy 
Registry system and their source references are added, the 
participants will be constructing an index, whether or not the 
""oifigirial' record set had' its' owh'lndexT'As'Milti^^^ source ' 
references are added for each person, suddenly new record- 
set interrelationships become possible, for automatic or 
manual construction and use. This concentration of data 
around historical individuals also makes possible studies 
that would not be feasible otherwise. 

[0171] A social history methodology known as "records 
stripping" has been used to index and analyze all available 
historical records from an area to obtain a picture of life at 
a certain place and time, a technique used to good effect in 
early American history in Virginia, Maryland, Massachu- 
setts, and so forth. If many researchers put many source 
references into the Genealogy Registry system for each 
person, from many different record types, a land of "records 
snipping" social history database on a national scale would 
be produced. The researchers could be anywhere in the 
world where they might have access to the records, instead 
of having to have a group of students or data entry people 
oiganized just for that purpose for a specific area. With all 
those kinds of records pivoted on or itKiexed to one person, 
you would also then automatically have cross-references 
among all the kinds of records so indexed. That might 
include cross-references between records of the same type 
but with different cataloguing because at a different archive 
location, or between records of different types. Having 
found one person with a link into the records you might be 
interested in, you could use that link to help find other 
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related persons mentioDed in those tl cords, such as children, 
wives, parents, neighbors, and ihc iike. 

[0172] Similarly, working from ihc opposite direction, 
there might be indexed records thai have the same source 
reference notation, such as two census records entries, or 
two land record entries, perhaps pui in by different people, 
where both references point to the same person or to related 
people (on a common page). These matching references 
could then be checked to see whai people they point to. If 
they point to the same person, you might not have any new 
information, but just a confirmation. Or if they point to two 
different numbered people with the same name, a duplicate 
situation that needs attention may have been found. It is 
simple to reverse cross-references, and it is quite remarkable 
what they can do to point out errors, duplicates, and omis- 
sions. 

[0173] If the people pointed to are different but related, 
their names should be added to the database if they are not 
already there, and the new references could be added or 
linked, as appropriate, to the individuals involved, thus more 
nearly completing the "records stripping** process for a few 
more people. 

[0174] All the above processes provide incremental 
"puzzle solution" methods of going from the known to the 
unknown as steps in completing all links and all possible 
source documentation for each and every person. When the 
process reaches its logical conclusion, there will be a 
"records stripping*' result for the entire nation or world — 
integrated indexes from and to all people and records. This 
completed database would provide a window into the lives 
and times of all these people. 

[0175] Researchers who wish to integrate the informatioQ 
from all the indexed sources might have to go to each of 
those referenced record sources to get the data they need. 
Hpw;cvcr,. in. the., perfect., case,, all , the. -records . would .be 
available online in image or text form so that a researcher 
could quickly compile all the data on any particular person 
or group. 

[0176] There will often be some more esoteric benefits 
from having alt these records indexed to one person. Higher 
level cross-references can be constructed from these data, 
either automatically or manually, depending on record 
counts and structure. At a minimum, having seen the con- 
stellation of record references that relate to one person, there 
might be some logical leaps to other useful related data. 

[0177] One notable and practical study of this type 
focused on the differing tobacco raising and marketing 
techniques of Virginia versus Maryland over a two hundred 
year period. It comprised mostly commercial data that were 
historically recorded and survived for use in the study. If 
data of other types survived, there could be many other more 
personal possibilities. The key, of course, would be to begin 
by askiiig useful questions that the combined data can 
answer. Could court records for a particular area be used to 
show what landowners were more contentious than others? 
Did this indicate a feud of some sort? Cbuld the travels of 
a relative who was a census taker or tax collector be 
reconstructed from land records and the census and tax data 
that were recorded? Could the building of a family dynasty 
be traced through marriage and land acquisition? Land and 
marriage records might tell this story. Health and mortality 



records could indicate that an area of the county was more 
or less healthy than some other area, perhaps because of 
mosquitoes, cholera, snakes, and the like. 

[0178] The regular features of the database would make 
possible what has been mentioned above. The basic first and 
second level indexes are already part of the system. How 
might the more esoteric indexes or cross-references, once 
created, be stored for general use? Presumably they would 
each be fairly small, since they would typically cover only 
a small geographic area. 

[0179] Theoretically, dozens of cross-reference indexes 
could be built using the "records stripping*' data all indexed 
on single names. Twelve record sets taken two at a time 
would comprise 66 cross-references. But all might not be 
useful combinations. It would be possible to create tempo- 
rary subsets of these derivative cross-references as needed 
by selecting on an area, time, or the Uke. The underlying data 
would be changing all the time, so a permanent index could 
cause problems by not staying current. 

[0180] Although the exact process is not described in 
minute detail, it is assumed that the "records stripping" 
process used by others was done by someone entering all the 
names they could find in various source documents, then 
copying all the records on paper or microfilm to transport to 
an office for detailed study. The indexes could then be used 
to examine all the data. In many cases the source records 
were entered completely in machine-readable format so that 
the data could be quickly consolidated for any particular 
person or family. Also, family structures could be 
assembled. 

[0181] Some cross-references would be of fairly general 
use. For example, a census-name-to-land-ownership-record 
cross-reference coidd be constructed mostly automatically, 
as a spin-off from the "records-stripping" activity described 
above. It could be very large and might be entitled to have 
Vpericnanent place of its own' " ^-f-^- . 

[0182] Other created cross-references could be stored 
using techniques found in the old CICS MantisA^SAM 
mainframe methods. Two generic cross-reference fields 
would be provided and indexed. A cross-reference type 
identifying nimiber would be assigned to each record. A title 
file would record what kinds of indexes/data were available 
and the number of the index to be used to access it. 

[0183] Returning now to the index facilities provided by 
the basic Genealogy Registry system, the aoss-reference 
record has just two fields— the person number and the 
source record reference. Sorting it by the person nimiber 
shows what source records were entered for one person. 
Sorting it by the source record reference shows what people 
may be covered by one reference, such as many people on 
a single census page. If all the people on the page do not 
show up, then someone has not entered them all or has not 
added the source references to their entries. 

[0184] Record Counts. The data processing consequences 
of such record stripping processes will now be briefly 
discussed. If it is assumed there are 12,000 people to be 
studied and 20 available entries for each person in a lifetime, 
then there are 240,000 index entries to be made. That might 
include 200,000 document pages, assuming there are mul- 
tiple names per document page in some cases. At 300 pages 
per inch, that is 700 inches, or about 60 feet of shelf space, 
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or about 10 filing cabinets fiill. Those 2(i entries per indi- 
vidual might be about 20 pages of data for each person. For 
example, there might be 5 census eniries in 50 yeais, 1 
cemetery entry, 1 birth entry, 1 death entry, 1 marriage entry, 
1 jail entry, 1 probate entry, 2 and entries, and so forth. 

[0185] These rather large record counts could make the 
data entry process rather expensive. However, if the work 
can be widely distributed among participants, it becomes 
more feasible, especially if there are miiny descendants of 
the studied group who might be willing to contribute some 
time and effort through a central mechanism. 

[0186] The programs that are detailed above are sufficient 
to run the basic version of the system and do what is 
necessary to be successful. However, there are several 
important enhancements that may be added to increase the 
versatility and power of the system. 

[0187] Source Records to Linked Records Processing. 
This is a feature that could be the source of huge amounts of 
quality data for the site. For example, all of the decennial 
census records for 1790 through 1960 for an entire state, or 
a smaller area if a full state proves impractical, can be taken. 
It may even be better if done regionally, using portions of the 
state or even portions of cites. That would allow the data 
workers to get to know the whole city or area and be able to 
make the right connections. 

[0188] Many people could enter the raw data, or assemble 
it from existing sources. A smaller number of people could 
then put it together. It would be important to provide the 
maximum computer support to encourage work in this area. 

[0189] The data would be viewed as layers of data to be 
combined about the same people. Having so much data all 
at once should allow nearly all ambiguities and possible 
solutions to be matched at onc&— e.g. all the local John 
Smith's would be together, so one could sort them all out, or 
at-least identify all the questionable -ones. • .. . 

[0190] It would be similar to the problem of linking the 
family fragments found in the IGI, but the census records 
may actually contain more data useful for linking genera- 
tions. The best possible accuracy should be obtained since 
the data comes directly from source records. 

[0191] As with the IGI and other data, the workstation 
programs would be used, which provide "missing parent, 
""missing spouse," and missing child" logic for linking. 

[0192] Maps Showing Locations of Ancestors' Births, 
Marriages. Deaths, Burials, or Other Data. There are at least 
three ways to solve this, and two of them have been used in 
a prototype of the genealogy registry system. A set of maps, 
with the latitude/longitude ranges pertaining to them, and a 
full X/Y overlay to plot points, put all together as an 
HTML/GIF set, and handed to the server to return to the user 
is one way of handing this. The map is just a normal 
HTML/GIF page of the US, Europe, and so forth, and then 
a transparent GIF overlay is created with the plotted point 
data. This was the method used to create the sample screen 
print shown in FIG. 3. 

[0193] Another way to handle this question is to pass data 
and parameters to Microsoft Excel and have it send back a 
map in HTML/GIF format and then make that page avail- 
able to the user. The data would be collected and summa- 
rized using SQL from the main database and then passed in 



tabular form to the map subroutines (classes). A demonstra- 
tion of this procedure has been carried out by manually 
creating an Excel map using test data (not shown). 

[0194] A more sophisticated mapping service could be 
constructed using such resources as the U.S. Geological 
Survey maps and aerial photos available at http://mappio- 

g.usgs.gov. 

[0195] Conversion of International Genealogical Index 
(IGI) to Genealogy Registry Database. 

[0196] The IGI is a huge database of about 300 million 
names. It mostly contains family fragments, such as two 
people being married, and two people having a child. This 
mass of data would be sorted into potential family form, 
using the three person parent-child records to construct the 
family with the ^11 set of children, and then use the marriage 
records to confirm the couple's marriage. 

[0197] However, more research and a small test case 
would need to be done to make sure this is feasible. It is 
believed that it is possible to get a person's birth date by 
using the proper three-person record. But since many of the 
dates in the IGI are dates with no relationship to the real birth 
dates or marriage dates of the people involved, it may be 
very diflBcult to get the basic data needed on the people. 
Moreover, there is also massive duplication throughout the 
database as many descendants have recorded events for the 
same set of ancestors. 

[0198] If this data source is used, it would first be reduced 
to a tentative family form as described above, and then made 
available to seasoned genealogists to compare to other 
records, such as the family group sheets that were often the 
basis for the events recorded in the IGI. If the quality 
problems prove too difficult, other source records would be 
used instead. 
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[0199] The routines developed and tested for the data 
consolidation workstation function, which measure inter- 
connectedness and duplication, wotUd be modified to start 
with the consolidated fragments of families, and apply the 
same link-seeking logic used for GEDCOM input. The next 
processing steps could be carried out using the standard 
system features. 

[0200] Conversion of Ancestral File (AF) to Genealogy 
Registry Database. It might be helpfiil to get a copy of this 
30 million name lineage-linked database and try to add it 
directly to the main system. However, the quality problems 
are formidable and it may be that this database will not in 
fact be useful. Most of the data were submitted long ago by 
people who were just beginning geneabgy hobbyists per- 
forming a church assignment, and there are likely to be 
many errors. There are likely to be few, if any, source record 
references. It may be that the only way to use this database 
is to have more careful genealogists take the data, check it, 
add source record references and submit it piecemeal. 

[0201] From a programming standpoint, this is really just 
a simple conversion problem. The existing GEDCOM rou- 
tines could probably be used without modification. No really 
new development would be necessary. The data would be 
added to the Genealogy Registry database, and the normal 
correction and linking processes could be used until it 
reached a satisfactory quality level. 
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[0202] Automatic Coordinaiinn of Research Report — 
Compute High Interest Areas of I database Based on User 
Data Requests. People who use the system will, in essence, 
be voting with their user fees for ihe areas of the database 
they want to see extended. After many users have examined 
and used the database, areas of high interest will be com- 
puted based on their cumulative choices. The process will 
involve scanning all names that arc at the end of a surname 
line, where the next set of parents is missing, and determin- 
ing whether those last names in the surname hne have been 
purchased by one or more buyers. Such purchases will 
indicate a likely interest in knowing the next generation 
back. The report will especially focus on those names which 
have large numbers of buyers, indicating many interested 
descendants. These names and database areas should be of 
special interest to researchers. 'Tht report will be available 
online to researchers to help them plan their work. The 
system will also allow for a name reservation system for 
researchers to use to prevent duplication of research in these 
new areas. 

[0203] An illustrative automatic research coordination 
report is shown in FIG. 4. This illustrative report shows a 
list of surnames for which no parents are linked to the 
earliest person in pedigree. The birth year and identification 
ntmiber of such person are also provided in the report. In 
addition, the number of database users likely to be interested 
in data that would extend the database to an earlier time in 
a pedigree is also provided. Such a report shows high 
interest areas, which should spur and focus research plans. 
As a separate but related feature, the system allows pub- 
lishers to express their intent to do a particular research task, 
which will help in avoiding duplication of efforts. Other 
publishers or researchers may propose cooperation, if appro- 
priate. Publishers can also use this feature for finding a user 
or group of users that may want to fund the project. 
Similarly, users can also describe a task to be done and then 
I seek both assistance in funding. ii from other ;users>and 
estimates and proposals fi-om interested publishers or 
researchers. These task definitions and reservations are 
intended to be at a much smaller and more detailed level 
than the broader ones the publishers use to define their 
general domain of responsibility. These task definitions and 
reservations may be limited to just one or a few names on a 
particular surname line. The present system automates much 
of the advertising and negotiation process to find and match 
buyer groups and seller groups for specific tasks. 

[0204] The next logical enhancement would be to add an 
"auction" system which would enable either database users 
or researchers to propose specific research projects and 
agree to contract terms among themselves. Finally, the 
feature set could be broadened to prepare similar statistics 
on possible lists of expected, but missing, spouses and 
children. 

[0205] Virtual Reality Interface. This feature has been 
briefly described above, and the basic software to construct 
such an interface exists and has been used to create and 
display a valid and working prototype. The prototype V^ual 
Reality Modeling Languagp (VRML) world model of a 
family tree uses VRML code generated at the server for each 
data request, and the Cosmo Player browser plug-in is used 
at the user PC level to di^lay and manipulate it. The virtual 
reality feature uses exactly the same data as the normal 
interface, and the overwhelming thrust and priority of this 



eflfort is to gel the data into the best possible format and 
condition. In the virtual reahty presentation, the data will be 
presented in a different way, making much larger amounts of 
data visible at one time, or at least seem to, with quick 
zooming and panning as the user follows his interests in the 
database. It will require a faster- than-normal internet con- 
nection, and either a larger-than-normal monitor or special 
virtual reality attachments. The faster speed connections are 
becoming more common, so use of this feature may soon 
merely depend on having the correct equipment at the user's 
location. Either a virtual reality headset or a 21 -inch monitor 
may be needed to get the intended experience, but it may be 
possible to use a normal 15-inch monitor and have a more 
restricted experience. The first version woukl be read-only. 
Later versions could have limited update capabilities. 

[0206] The normal pedigree charts present only a very 
limited two-dimensional view of reality, instead of the 3-D 
network world in which we live. A running system to 
assemble the data in the correct format to get the full result 
envisioned has been created. There are virtual reality plug- 
ins available for browsers that can do the very thing needed. 
The virmal reality phig-ins accept shape descriptions that 
can then be displayed in 3-D, and then those shapes can be 
manipulated. All these concepts were tested in creating the 
demonstration version of the virtual reality interface, sudi as 
is illustrated in FIG. 5. 

[0207] From the parameters given to the virtual reality 
interface, the system would choose the size of the building 
to show (the set of names to be displayed), and would also 
know which names to be shown first. The user could then 
decide which names to see next as the name structures were 
navigated. 

[0208] The first version will be for a large monitor, but 
there is also more sophisticated software and hardware 
available that can be used for a true 3-D version. For 
--.example, .the recently, available - inexpensive. .ELSA.3-.D.. 
stereo gaming glasses allow multiple people to share the 
same view as though moving together as a group, which 
would constitute the ultimate genealogy data reviewing 
experience. 

[0209] To drive the virtual reality interface, the server 
would have to take in the selected data finom the database on 
individuals and links and create the syntax, language, and 
the parameters that describe the proper shapes, the spheres 
and rods, to the browser plug-in. It would also have to check 
the database to see what other data items were available for 
each person and construct menus for each to allow the 
virmal reality user to request those data. The menus would 
have finks back to the available data. When selected, the 
text, image, or video segment would be brought in with its 
appropriate player. At the end, the focus would return to the 
3-D network screen. 

[0210] The virtual reality user would have to indicate the 
first name to begin with. The server would then select all the 
related names for perhaps three generations in any direction, 
that is, the focus person plus two generations or levels in any 
direction. For example, his wife and her parents and siblings 
would be shown, his grandparents and his parent's siblings 
would be shown, and his children and grandchildren would 
be shown. The names could go out a larger number of 
generations, but it might just crowd the screen and overload 
the server without much benefit to the user. 
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[0211] As the user moved off from the starting focus 
person, the system could adapt in one of several ways. At 
every move of one person in any direction, the entire set of 
three generations could be reconstructed so that there was 
always two more to go in any direction. Another possibility 
would be to not trigger a reload until the focus moved two 
or three steps or reaches tbe edge of the current displayed 
network of names. A third possibility would avoid database 
access and re-compute time by sending most of the param- 
eters bade to the server in the output stream, to be refor- 
matted and sent back, with only the necessary new data 
added. 

[0212] The look-ahead feature might be compared to a 
similar featuire on a fast CPU chip, which requests data and 
prepares ahead for either possibility of a branch based on a 
comparison. Since the interface must show many more 
people than may acmally be used, there is a need for high 
bandwidth to keep tbe performance at a satisfactory rate. 

[0213] The 2-D all-relationship form, with just 2 levels of 
generational relationships, usually shows about 8 people — 
the focus person, the parents, the spouse, and the children. 
With 3 levels of relationship in each direction, the number 
of people would typically jump to about 50. One might 
experiment with more than 3 levels or generations in all 
directions to sec the performance and usability effects. The 
new 3-D gaming glasses with a fast Internet connection and 
a powerful PC and video card could probably extend the 
view significantly. 

[0214] Online "Auction" or "Bulletin Board" Facility. 
This ^dlity automates much of the notification and nego- 
tiation process to find and match a buyer or groups of buyers 
with a seller or groups of sellers to accomplish specific 
genealogy research tasks. 

[0215] The Automatic Research and Coordination Report 
(e.g., FIG. 4) reveals high interest areas of the database to 
spur and focus research plarisrAs a separate but related anS** 
more general feature, the system allows publishers to 
express their intent to do a particular research task so that 
others will know to avoid duplicating it. Alternatively, others 
may propose cooperation in accomplishing the research 
task, if that is appropriate. Publishers could use this feature 



to try to find a user or group of users to individually or 
collectively fund the project. Similarly, users cotild also 
describe a task to be done and then seek both assistance in 
funding it from other users and estimates and proposals from 
interested publishers. 

[0216] These task definitions and reservations are at a 
much smaller or more detailed level than the broader ones 
the publishers use to define their general domain of respon- 
sibility. They may be limited to just one or a few names on 
a particular surname line. 

[0217] Publisher and User Processing 

[0218] FIG. 6 summarizes the transactions that a pub- 
lisher can make with the genealogy registry system of the 
present invention. The publisher starts 100 any transactions 
with the system by logging on to the system 102. After 
successful logon, the publisher can transact any of the 
following: make reservations 104 by indicating future data 
entry plans in the reservation file, add new names and 
relationship links 106, add extra data 108 for names already 
in the database and/or make corrections to data, improve 
integration through adding Hnks 110, reduce dupUcation by 
hiding redundant data 112, participate in an auction 114 by 
proposing research or accepting a research assignment, 
review the publisher's royalty account 116, plan future work 
118 through use of database content reports including cal- 
culated high interest areas, make bulk updates from GED- 
COM files 120, and preprocess data 122 such as special 
projects using existing public data. The publisher can end 
124 the session at any time. 

[0219] FIG. 7 summarizes the transactions that a user can 
make using the genealogy registry system of the present 
invention. The user starts 140 any transactions with the 
system by logging on to the system 142. After successful 
logon, the publisher can transact any of the following: 
conducr'a 'feV search' 'r44 such as ^exploring ttie' geheraF' 
contents of the database, add money to the user's account 
146, conduct a pay-per-view search 148 including receive 
and optional data, and participate in an auction 150 such as 
formulating requests for fumre research. The user can pend 
152 the session at any time. 
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Gciteilogy Reglstnr Site Mo<hjle Map 

c:Unel(WbVwwwiocrt\welccmie3,lum Site ci3Jiypoim-FA<7sJink to action scrtens or policy screens 

e:\hutpiiIA\mwioot\ProjecO.LocaRweIooi^ Main menu - choose add daia or search data, donate* G0xilBct3» database iastcuc1ion$» GEDOOM 
" iostnictions, image gaiiety, fixe options - Ancestor summaiy. oousin search, birtlq)]aoe map, 

database statistics 

mennidul .a^ R£S£ARCH£RyBUYER main mcna - The Name Stoic 
buyaddOl Create n^stiaiioii record for new buyer 
meiniidai.a^ 

logbyO \ .asp LOGON SCREEN-RESEARCHEIVBUYER 
logbyOLasp 
menuidul.asp 

dbsTcl 70.a6p RESEARCHERS PEDIGREE VIEW - SHORT FORM - start search 

db$tcl71.aflp PEDIGREE NAME DATA BROWSE - SHORT fOBM ***Lacks billing subtotttine*** - Sec 
dbsxc041.asp anddb8ic045.asp for code samptes - include chaige02.inc module. 

memiidul.a^ 

dbsre038^ PAY-PER-VIEW PEDIGREE -LONG FORM -start scar* 

dbsrc040.asp PAY-PER-VIEW PEDIGREE - Choose Relationships lo View (Fee for Next Screen) 
db6ic04 1 .a^ PAY-PER-VIEW PEDIGREE - Select Specific Names Ibr More Data 
dbstc04S.asp PAY-PER-VIEW PEDIGREE - Show Individual Details 

menuidul.asp 
insti003Jitm 

buygedl .asp Download purdbased names in GEDCOM farnssi (Under Constmction) 
buyphotl JBp Download purchased photos (Under 0>nstn]ct]fin). 
huyimagl .asp Dowcdoad purdiased document images (Under CtHutn^oa) 
Buyershandbookl.him The Buyerls Handbook 5/22/99 (P2) 

menuidul.aq) 
policy 1. htm 

WdcomcZ.asp 
X I .asp INDEXER/PUBLISHER MENU 
logidxO 1 .asp INDEXER/PUBUSHER LCKiON SCREEN 
menuidxl.asp 

tdxaddOl. a^ Create registration record for new publisherfindexer 
mcnuidxl.a^ 

dbsicl 60.asp INDEXERS PEDICjREE VIEW AND UPDATE - short form 

dbsicl61 asp PAY-PER-VIEW PEDIGREE ADDS - SHORT FORM 
dbsicl63 asp PEDIGREE NAME DATA CHANGES - SHORT FORM 
dbsrci65.asp PEDIGREE NAME DELEIE LINKS - SHORT FORM 
dbsn:l(>7.asp PEDKjREE NAME DELETES - SHORT FORM 
dbsicl69.asp PEDKSREE NAME DATA BROWSE - SHORT FORM 
inenttidxl.aq» 
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dbsrcl55.asp INDEXER- ADD FIRST FAMILY -NAMES. BIRTHDATE, LOCATION 

menuidxl.a^ 

dbsrcl383Sp PUBLISHERS DETAILED PEDIGREE UPDATE - select focus name 

dbsrcl40.a5p PUBUSHERS DETAILED PEDIGREE UPDATE - select related names 

dbsroULasp DETAILED PEDIGREE UPDATE - select name and data type to update 

dbsrcl45.asp PUBLISHERS DETAE-ED PEDIGREE UPD ATE-dlsplay daui for changing 
dbsrcl46.asp UPDATE INDIVIDUAU DETAILED 
dbsicl47.asp PUBUSHER - ADD INDIVIDUAL. DETAILED 

QKmiidxl.asp 
wdcome2.asp 
welcomes, htm 

dbpub038.asp PUBUSHER VIEW PEDIGREE - Start Scan* 

dbpub040.aq> PUBUSHER VIEW PEDIGREE - Choose Relationships to View 

dbsicMl^ PUBUSHER VIEW PEDIGREE - Sclca Specific Names for More Data 
dbsrc045.asp PUBLISHER VIEW PEDIGREE - Show Individual DetaUs 

ixisti003.htnL 
menuidxLasp 

regisOl .asp Register Data Entry Plans 

gedcomOLasp Request next Project ID number (optional) 

gedoomOlasp Register (HDOOM input prqjea 

igedoomLhtro GEDCGtA Processing Instfuctions 

insti002.btm 

welcomc2.asp 
instiOO I .htm Database Instructions 
igcdcoml.htm GEDCOM Processing Instructions 
insti002.htm FieW-lcvel processing notes 

dbsrcO 18.asp ANCESTCffi. PEDIGREE SUMMARY - Stait Search (Free) 
dbsto020.asp SEARCH PEDIGREE AND SUMMARIZE 
wdcome2.asp 

iiisti003.htm Ancestor and cousin search instructions 

db8ro022 asp COUSIN SEARCH PERSON I - Start Search (Ftce) 

dbsro023.asp COUSIN GAME PERSON 2 - Start Search (Free) 

dbsrc024.a5p "COUSINS* SEARCH PEDIGREE AND REPORT 

welooine2.asp 

images, gif (P3)Show map of Ancestors Birthplaces (demo) 
statsOOLasp CP3)MAIN DATABASE STATISTICS 
policy 1 .htm (P2)Histoiy , Policy and Technical informatian 
buydonm.htm "Buy to Donate" - use Internet mall to contribute income, 
donatein.btm Donate directly to project 

contactl .htm Contact addresses, phone numbers^ fex numbers, email addresses, etc (P2) 
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Welcomes, htm 

imagcOOliitin (P2) Image Gallery - Experimenial 

c:\inetpubVwwim)ot\Project2_LocaI\poUc^ 1 .him 

CONCEPTLhim Concept Presentation to LDS Church, January 1999 

ooncptOi.htm Pyramid of Gcoealcgical Data - Adding the Capstone 

coacpt02.h]m Benefits to the Chmdi of tbc Proposed System 

ooiicpl03.blm Brief System Description (Rait of previoiis "Benefit^ pafic) - not used 

Goiiq)t04.htni Dia^nm of Genealogy Environment, Cuxrent and Future 

conq)l05.htm Possible Church Goals for Genealogy and Temples 

concptoe.htra Possible Genealogy Processing Systems 

ooncptO? .htm Genealogy Registry System Diagram 

CQncpt08.htm Genealogy Registiy System Description 
Prictagl liim PRICING POLICY AND TECHNICAL INFO 

feafiibOL.htm THE NEXT LOGICAL STEP INTHE USE OF OOMPUTERSINGENEALOaY WORK- 1991 
feasib02.htm A World-Wide Tamily Otguiizati<m" for Genealogicat Research Woidc A Coopeiatlve Program To bctcase 
Efficiency - 1994 

feasib03.hlm Concept Paper and Ptoposa! for a large Humanitarian Assistanoe Project In Moscow, Russia - 1996 
990908StaiePopByYear 1790- 1960 V3.htm Siaie Population by Year. 1790 to 1960 

c:\ine^}ub\wwwroot\cominon - INCLUDE modules 
diarge02 .inc billing routine 

Workstation programs 

ws003.a!i> Search for "Hrccs" in new GEDCOM 

wsO 10.aq> Search fbr parents for "missing parent" conditkins in new QEDCQM file 

ws015.asp Calculate duplication statistics in new GEI>OOM 

ws020.asp Search for spouse for 'missing spouse" conditioos in new GEDCOM file 

ws025.asp Search for child ft>r "missing child" conditions in new C^DCOM file 

IHUabase update features 

inpul69BJitm Sample GEDCOM input going to server 

inputO00.htm Shows psgeOOO 1 - sample index page of pages to be sent 

inputOOLhtm Get next Page number - calls inputOlO.asp 

inputO 10.a5p Get Next Page number to send to server 
inputOl 2.asp Get Next Projea number - prepare for sending in GEDCOM data 
input020.asp Accept HTML formatted data ftom PC's over the bdetneL 

wd>apfi.exe Visual F(»fro modules -Download to PCs. Ftepares dam to be uploaded to main database in ffTMLroniL 
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c:Viiietpid)\wwwroo1\Project2Jx>^ 

hobanOLS asp HOBBY ANCESTOR PEDIGREE SUMMARY - Start Search (Free) 

lioban020^ SEARCH HOBBY PEDIGREE AND SUMMARIZE 
meiuihob 1 .asp The Hobbyist*s Corner (Hobbyist main menu) 
loghobOl.asp HOBBYISTS LOGON SCREEN 
hobaddO 1 ^sp ADD HOBBYIST registration record 
dbsrc220.asp UPGRADE/UPDATE HOTB YIST - go from free to pay status 
dbsrc258.asp HOBBY PEDIGREE UPDATE 

dbsrc260.asp HOBBY PEDIGREE UPDATE - rclaiive name count 
dbsrc26 l.asp HOBBY PEDIGREE UPDATE • relative Ust 

dbsrc265.asp HOBBY PEDK^EE UPDATE - display data 

dbsrc266.asp HOBBY PEDIGREE UPDATE - update data 
db8ro267.a^ HOBBY PEDIGREE UPDATE - create new record 
dbsiC238.asp HOBBY VIEW PEDIGREE - Stait Seairh 

dbsrc240.asp HOBBY VIEW PEDIGREE - Choose Relationships to View 

dbsrc24I.asp HOBBY REDIGREE - Select Specific Names for More Data 
dbsrc245.asp HOBBY PEDIGREE - Show Individual Details 
addindhl.asp HOBBY - ADD FIRST INDIVIDUAL 
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Lnage Gallery - ExperimentaJ Art for Genealogy Registry (P2) 

geii24cut.jpg Genealogy Regisuy - Word An 

tombc.jpg Use GenReg for even b^er long term storage of family data 

gentreeS jpg Are You and Yours in the People Web? (network image) 

newcross.gif Evetybody in the World - Genealogy Registry crossword puzzle 

cTosstgif Everybody in the World - Genealogy Registry 

tomb.jpg Possible icon, but may give wrong in^ression. A cheerful tombstone? 

trlO0bwl.gif Snow Family Tree 

scrollj4.jpg Pap>Tus scroll Genealogy registry sign-in (small) 

scrollj3.jpg Papyrus scroll Genealogy tegistty sign-in "For Everyone" (large) 



Other images 

jonathnl.gif Sample photo (P3) 

apexv2 jpg Sample source record image (P3) 

conesktl .gif Cone illustration for FAQs (P3) 



MISC 

instrOlO-delete rules.txt Tables personj and linkj record delete rules 
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Strvtr Databue Tables 

buyerj Bayer R^stiation data, passwonh, acoouni halaiKc 

Buylog^T fi*ct>ids all of bnjw activity -nse to anal)^aal support bill 
FEE^SETjr Fee schedule for various data increments for a name 

Preiitninary fee tabic, one fee per code. Replaced by FEE SET_T 
HIrnage_^T Stoies link to sooice record iniagc for a namo- lK)bly database 
HLu}ks_T StoiesliidabemxcaaU names si^ittcdt^puUisber-lu)^ 
HUiiks_T2 Stores thinl-imtyUnkB between oaiMb database -holAydal^^ 
HMarriage_T Stores fnaniage data, widi links to boUl parties- bobby daUbase 
HMast_Hob_iiuin Supplies next monba Jbr bobbyisi legiAatian. 
Hobbyifit.T Hobbyist Regutxation data, posswords 
HPeison_T Names submitted by hobbyists 
HPhoto_T Stores link to photo for a name- hobby database 
HTcxr^T Stores biogra|diical data for a name - hobby database 
Image^T Stores link to sooicc record image for a name 

liiiksj Stores links between all names submitted by publisho- 

Links_t2 Stores third-paity links between name In database 

J^SLT Prciiminarj buyer activity log - replaced by buylog^T and paU t 

Mftrriage_T Stores maniage data, with tiida to both parties 
Mast,Buyer_Nuni Supplies next number Ibr buyer registration 
Mast^yabjfam Supplies next nBatber ftr pnMidwr icgisDatiaa 

MTlOOOOOOOOl Woric table used in worimaitoa program to locale sad pmass all n»^wwt f^ditioBi. 

^d.T Records buyers pald-for selecdoos -avoids double payment 

I^n.T Names stibmHied by imbliibeis 

Photojr Stores link to lAotoftr a name 

puUisberj Publisher Registraikm data, pesswofds, account balance 

states.cm Experimemal woit table used to send data to map-prndiieing nmpanic f »i?t ji>.^ fry gtatfl 
Tca_T Stores biographical data tor a cane 

liOOOOOOOO I00004aa Work 'traoe" table for tmcrciag the pedigree links to create summaries, find cousins^ etc. 

U57 Work "trace' taWe for traversing the pedigree links to create summaries, finder 

Tree^T Stores lowest mimbcrcri name and records cxxait for each tree submitted by oublishej 

WST100000(X»I Work table in tree^racing process (personl) 

WST200000000I Work table in tree-tracing prooea (person2) 

Gedcomj I^wandoootiol (BDCCMrfpfojectoandpasoiivulsbypi^^ 

R^ister^cooes Register descendaat and pedigree <fatacollectiona by pohlisfaets 

CLUNT^IDE PROGIUMS IN ORDER OP USE - Sent along with run-time Foxpni dowidoad modules 

PARTIJRG TOsrmiaaU the programs and setup for the aEIXX)M conversion w to tile part U 

stops before the HTML pages are created. 
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IND1VI.PR0 

FAMIJR G 

NOTEEJCn.PRG 



STATS001.PRG 
BLDKEYDl PRC 
STATS002PRG 

PART2.PRG 

BLOHTMLtPRO 

BLDHTML2PRG 

BROWSER PRO 



DATABASE TABLES 
FAM1.DBF 
FCROSREF.DBF 
GED00M2.DBF 
ICROSREF.DBF 
INDIVI DBF 
NOTEfiXri DBF 
KOTESI DBF 
STATSOOl DBF 

DATABASE TABLES - 

FAM2J)BF 

INDrV2 DBF 

TESn.DBF 

TBST2.DBF 

TESrilDBF 

TESn2J>BF 

TEST13.DBF 



G«t the daa needed tor reser^ name spacer etc. 

TJispiDgram creates the HTML pages, the last proccsjing step 

CSeate HTML pages for input 10 GEhJREG server 

Cnale ffTML page of HTML page nmnbeis - use to cxcaitc data mpitf 

- PR£DEFIN£I> 

Result of «mvming CEDCOM to dbaseflte Ibnnat- Just the famUy/duld part of ^COM 

R«wlt of convwii« ASai text GEDCOM to Xbase fonnai 

fiidmdaai cnMsie&nsce file -used in re-mimbcring the individual file. 

Resiih of oonveitiog CffiDCOM to dbase fiJe fomiat - Just the individiail ant of GEDmiw 

Ston INDEPEKDENT NOTES OF BOTO TYPES, MANd7^^ ^ of GEDCOM 

Store nomud GEDOOM notes. 

Results of nnmiag siats002.pr8 

CREATED IN^TREAM 
Cicaicd in stauOOLps 
Created in staisOOI.iJi^ 
Created in bidkeyOI.prg 
Created in bldkcyOLprg 
aesiedtnbldkeyOl.pig 
Created in MdkqDl.pig 
Created in bldk^l.prg 
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#VRML V2.0 utf8 
Worldlnfo { 

title "GenDemo" 

info "VRML model of family tree." 

} 

Viewpoint {position 0 0 10} 

Group { 
children [ 

DEF ANl Anchor { #1 
url ["male 01. htm"] 

description "Individual menu of all data" 
children [ 
Transform { 

translation 0 0 0 
children [ 

DEF MALE Shape { 

appearance Appearance { material Material { } } 

geometry Box { size 1 1 1 } 

} 

] 

) 

] 

> 

Transform { #2 
translation 0 3 0 
children [ 

DEF FEMALE Shape { 

appearance Appearance { material Material { } } 

geometry Sphere { radius 0.65 } 

} 

1 

} 

Transform { #1 

translation -.5 .2 .6 
children [ 
Shape { 

geometry Text { 

string ["Focus Person Name" 

"Birth July 10, 1941"] 
font Style FontStyle { 
size 0.2 
family "SERIF" 
style "BOLD" 

) 

) 

) 

] 

> 



Transform { #1-2 
translation 0 1.5 0 
children [ 

DEF CHILD Shape { 
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appearance Appearance { 
material Material { 
diffuseColor 0 0 1 
shininess . 5 

} 

> 

geometry Cylinder { 
radius .25 
height 3 
top FALSE 
bottom FALSE 

} 

} 

) 

} 

Transform { f^2-3 

translation -1.5 3 0 
rotation 0 0 1 1.57 
children [ 

DEF MARRIAGE Shape { 

appearance Appearance { 
material Material { 
diffuseColor 10 0 
shininess . 5 

) 

} 

geometry Cylinder { 
radius .25 
height 3 
top FALSE 
bottom E7\LSE 

} 

) 

] 

} 

Transform { #3 

translation -3 3 0 
children ( 
USE MALE 

] 

) 

Transform { #4 
tremslation -3 6 0 
children ( 
USE FEMALE 

J 

) 

Transform ( #6-8 

translation -9 -1.5 0 
children [ 
USE CHILD 

3 

) 

Transform { #3-4 

translation -3 4.5 0 
# rotation 0 0 1 1.57 
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children [ 
USE CHILD 

] 

} 

Transform { #5 
translation -6 6 0 
chiidren [ 
USE MALE 

] 

} 

Transform { #4-5 

translation -4.5 6 0 
rotation 0 0 1 1.57 
chiidren [ 
USE MARRIAGE 

] 

} 

Transform { #6 

translation -9 0 0 
children [ 
USE FEMALE 

J 

Transform { #1-6 
translation -1,5 0 0 
rotation 0 0 1 1.57 
children [ 

USE MARRIAGE 

] 

} 

Transform { #1-6 

translation -4.5 0 0 
rotation 0 0 1 1,57 
children [ 
USE MARRIAGE 

) 

} 

Transform { #1-6 

translation -7.5 0 0 
rotation 0 0 1 1.57 

children [ 
USE MARRIAGE 

] 



Transform { #7 

translation -11 -3 0 
children [ 
USE FEMALE 

] 

> 

Transform { #8 

translation -9 -3 0 
children ( 
USE FEMALE 

] 



05/05/2004, EAST Version: 1.4.1 



us 2002/0032687 Al Mar. 14, 2002 

26 



} 

Transform { #9 

translation -7 -3 0 
children [ 
aSE FEMALE 

1 

} 

Transform ( #6-8 

translation -9 -1.5 0 
#rotation 0 0 1 -.785 
children [ 

USE CHILD 

1 

} 

Transform { #6-7 

translation -10 -1.5 0 
rotation 0 0 1 -.7 8.785 
children [ 
USE CHILD 

] 

) 

- Transform { *6-9 

translation -8 -1.5 0 
fi3 rotation 0 0 1 .7 

O children [ 

USE CHILD 

^ I 



Transform { #10 
translation -9 0 -3 
children [ 
USE FEMALE 



» 

0 

W J 

» 

III Transform { #6-10 

□ translation -9 0 -1,5 

|dk rotation 1 0 0 1.57 

children [ 
USE CHILD 

] 

) 

Transform { #28 

translation -12 0 -3 
children [ 
USE MALE 

) 

) 

Transform { #10-28 

translation -10.5 0 -3 
rotation 0 0 1 1.57 
children ( 
USE MARRIAGE 

3 

> 

Transform { #10-11 
translation -9 1.5 -3 
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#rotation 0 0 1 1.57 
children [ 
OSE CHILD 

] 

} 

Transform { #11 

translation -9 3 -3 
children [ 
USE FEMALE 

3 

) 

Transform { #12 

translation -12 3 -3 
children [ 
aSE MALE 

3 

} 

Transform { #11-12 
translation -10,5 3 - 
rotation 0 0 1 1.57 
children [ 
OSE MARRIAGE 

] 

} 

Transform { #13 
translation 3 0 0 

children I 
USE FEMALE 

3 

} 

Transform { #17 
translation 1-3 0 
children [ 
USE FEMALE 

3 

} 

Transform { #14 
translation 3 0-3 
children [ 
USE FEMALE 

3 

} 

Transform { #15 
translation 3 3-3 
children [ 
USE FEMALE 

] 

} 

Transform { #16 
translation 0 3-3 
children [ 
USE MALE 

3 

} 

Transform { #18 
translation 3-3 0 
children [ 
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USE MALE 

] 

} 

Transform { #1-13 
translation 1.5 0 0 
rotation 0 0 1 1.57 
children [ 
USE MARRIAGE 

] 

} 

Transform { #13-17 
translation 2 -1.5 0 
rotation 0 0 1 -,7 
children [ 
USE CHILD 

] 

} 

Transform { #13-18 
translation 3 -1.5 0 
#rotation 0 0 1 1.57 
children [ 
USE CHILD 

] 

} 

Transform { #13-14 
translation 3 0 -1.5 
rotation 1 0 0 1.57 
children [ 
USE CHILD 

] 

} 

Transform { #14-15 
translation 3 1.5 -3 
#rotation 0 0 1 1.57 
children [ 
USE CHILD 

] 

} 

Transform { #15-16 
translation 1.53-3 
rotation 0 0 1 1.57 
children [ 
USE MARRIAGE 

] 



05/05/2004, EAST Version: 1.4.1 



us 2002/0032687 Al Mar. 14, 2002 

29 



C rXpatentMiodul eiVcharq«02 . 1 nc 



'CNMGCOZ.XNC 

|m(flf1ad to allow scptr&ct pricing of psrson data type* 

Sub Chtckanddura* (Non^dt Buytr_Id, ChirgO^tlt) 

DIM pub^ld, SQLfitft 

DIN SQLbuy«r. rssuyer, rsFtts 

OXN S(U,Riib11sh, rsPubHsh 

OXM SQLloo. rsLog, rsbuyleg 

DIM FEESCiO). k. charges 

DIM r*r**t. SQLp«*t. e«sOcve1s, nequ«sO«v«1 

om ctiadotaca, nnufec. n«f«Lput^l«viTs, palOvcordjitluIng 

set rsFees a Scrver.CreateObiectC"ADOOB.Recordiet^) 

SOLfvess'Select • from feeL^etJT where fc«^t ■ '01'" 

riPMS.O0«n SQLfeai, cnS«areh 

fee »tl>r«F«e« ("f eeOJLwiiie" ) 

feet C25er»Feeif-f«e02J)as1 c") 

f ee sHparsFees ("f e«03_cl te$ "5 

fee »C41 -rs Fu s f "f eaCM.text" p 

fee»fSl-rsFecsf''fee05_plioto ) 

fe*$i6)«rtFe€sf''fee06 cltOmages") 

feesC7i»riFe#«t''fee07 ) 

f«esc9}«rsFtes(''f««0S") 

feesW"r$Fee*("fe<09"j 

feesC10)-p»Fee$Cfe«10') 

rsFcet.dote 

•sQLfee*-" Select * frm feejr where fttjtypt • '03'" 

'rsFees.Opcn SQLfees^ cnSeardi 

' f ee_patel2«r*F««s ("■fet_r*te") 

' rsF«*s .cTota 

; bt/yer,id-" 0O0OOO01" 

set rtPascc5ePv«r.creiteob1ecc(''AOooe. Recordset") 
SOt45a«t«"Se1ect • from paid_t ' «!_ 
"where pa1d_buy«r » •** lbuyer_1d 4_ 
"end peid^ameuid lna»e_id 4"'" 

•"order by buylosubuyer. buy1oft.nane.1d, buy1og.feeL.leve1 desc" 

r>Past.(^en SQLPast, cnSaarch 

if rsPest.eOF and rsPest.EOF then 

pasOevel sa'OOODOOOOOO" 

neuLpast_1 «v«1 t-'OOOOOOOOOO" 

pti d.reeordjnf ee1ng«"V" 

e1»c 

pasOtvtl »*r»Past("pa1d_r€e_lewel i") 
rw«^&st-1 cvcl i^ast_1 ev«l s ' 

rtPast. Close 

total _f«a*0 
For xal to 10 



If midCpasOevels.x.l) < ^1dCc^a^aOev«li.x,l3 tDo 
Mw^astJlavals . 1eKCn«\«Lj>ast_Tevels.x-i)iin1dC«hj 



dCcharsO aval s.x.l3fiHght<rMicpasO aval ft.lO>)0 



totel_fee - total_fee + feesCx) 
-1 If 



' 'tesponse.wri te "past-''Afi4st:_1aveU''currant-"tcurrant_1aya1 

check_*t*te-current_leval - pasOaval 'eonvert to all numrie reeult 
If totS^jSo'tSn'' current Is 1e» than or equal to pa»t, stop. 

••ReJSMl!wHt2 -iill'mr'^ •P*'*^*"* «Qiial1ty wsn't equal - needed conversion 

exit sub ' ahgrt cut the subroutine 
and If 

] PtespcMise.wri t« "didn't exit tub" 

'UKREMOfr coi/irr of new names viewcd today 
If in1dCpasOevels,l.l)«'*0' then 

«Jsjjn<"buyer_oaaet_u$ed")=sBt»1onC'*buyarjiamesjj*«d")4l 

^ "^^^ WL-nPLE TINES AT DSFFCftENT FAVKKNT LtVEU) 
PI X THIS BY SIM4ARIZIKG ALL EVEirS FOR ORE PERSON USUIG SQL 

eha rge s-to ta1_f ee 

'For iKf)astL.lav«l<*>l to curranclevel 
^ chargessctiargcM-feesCO 
next 

pub_id-l«ft(Hana_1d,») • was 10 
^lUsponsc.wrlcc "p«*_1ds-ftpMb.1d 

'btiyer_1d»l - see above 

'we need to update thre. file* at this polnti tlia bvyart, th« Mllera and th« log fbr our statistical 

SQUbuyere*'$a1ect • from buyer^t «#»ere buyer.id » *-<buyer Id 4"'" 
Set rsfiuyer . Server .CreateObTect("ADOOB'Record*af) ' " 
rsBuyer.Ooen SQLbuyer, cns«arch.adap«nDyn«n1c,adLoel(0pt1arist1c 

rs&uyer.UBdats 
rsftuyer. Close 

Irencmber to Inltlellce all conputatlonal fields in the database 

^iI!(^^i*^L' «•'^^^.creata0bjact^AD0D8.ReS;;^•t-) * 
rsPti>11sh.0pcn SQLpubllsh. cnSearch.adopenOynanric.adLockOptlmlstlc 

'Response .Write "p«bjBn«me-''&rsPubH sh("pubji««M") 
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rsPiibl 1 «hC* Pu»J-.»»1 • »-toda t e ">rs PubH sh (" PUbuiil eiwtodttfi"). 
♦<harfl«t*ptPubH thCpub.Ml e«_pfcrcent") 

'rcsponM.wHta "chargesfB'Achargesf 

* Response .wH te "pub.unpal d.acct«''ftrdpub1Ssh(*pubjunpai(LiBCct'') 

rsPubllsh. Update 
rsPubllsh.Close 



SOLlOffx^select ♦ from buylo9_t " 

Set rsBuyLog - Sarver.CreateObj act ("ADOM. Recordset") 
rsBuylog.Open SQLlog, cn$e«rch, adop<ni>/nBnr1c,adLockOptiiirist1c 

rsBuyLoflf^buylogJjuyer") • buyer.ld 

rtBuyljooC''buy1og_nwnOd") ■ name^id 'name^ld includes the publ'isher nunber. 
rcBuyLo9C'*buy1og_f^«u. 'eve 1 "p-charfldevel s ' currenOaval 
rsBu/Log C" buy 1 09.1 ncone" ) -<ha rges 

reSuyLogCbuyl og^datc^^sftM 
' rsBuyLogCbuylog^tlnie >sr1me 
rsBuytog. update 
rsBuyLog .close 



if paid.recordLmisaing-'V THEM 
SQLpast^-Sel cct * fron pa1d_t " 

rsPast.Open SQLPast, enSttarch,adopenOynamic,adLoclcOpt1m1stic 
rsPast.addnew 

psPa«tr "paid-buyer") =buyer«1 d 

r$ Pas t ( " pai djiarae^l fl " } =najfie_1 d 

r»Pasti'*pa1d_fee_l€vei s")=ne«iL^asdeve1 s 

r»Past(" P8^<Ldate")«i«>w 

rspast. Update 

rtPast. Close 

else 

SQLpast-" select * from paid^t " &_ 
"Miere paid-buyer « " «ibuyer_1d 
"and paid.jiame_id 4#iame_id &"*" 

rsPast.Open SOLPast, cnsearch, adopenDynamlc.adijOckOpdtDistic 

rsPastf "paldLfeOevel s*'>snew_pa9t_1 evel s 

rsPastC "pal dLdate^^Bnow 

rs Past. Update 

rsPa St. Close 

end if 

'SQL1 0931" select ♦ from loQ-t ** 

'Set rsLoQ ' Server. CreateObjectCADODB. Recordset") 
>slo0.open SQLlog. cnsearch.adopenoynamlCiai&ockOptlmlstlc 

'rsLog.Addncw 

*rsLogC'*log^uyer") = buyer_id 

•r»Logc"log_^ame_id") = name.id *nanie_id Includes the publisher ninbar. 

* rsLogC"! oft.f cO eve 1 ")-currenO eval 

* rsLogC"1og.incaree''}«0)arges 

' rsLogC1o(Mtett")^K>tiv 

* rst09C1o9.t1ine'')Bri me 
>sLog. Update 
'rsLog.Ciose 

End sub 
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<aGQpt1on Explicit 

^«sponie.fiuff«r^nj« %>■ , ^ ^ , . 
<!-- #1nc1ude y1rcu*1"**coB«wn/*dovbt.1nc" — > 

<<Kn<L> 

<<HEAI>> 

<MErA »MMe«'*fiEHEftATOft'' Contcntw'NlcnpMft Visual Studio $.0''> 

^nTLE>WBLXSHER VIEW FC0XGRE6 - SUrt SurcllV1TTLE> 
<HS>MBUSMeK VlfW PtOJOtU, - Sttrt se«rchVHS>> 

<X 

'TM« program l«ts a v1ew«r choos« and pay for names. 

•The firat tlna this pa«« la ratrlavtd.^and any time It 1$ 
•submitted without being oowplotaTy filled out. the fon» 
Ms displayed. If It If submitted^ and coovletaly filled out, 
'the fonn 1* proccaaed In the Else clause. 
Dim start^trson^lnane, start_personjfMme, startj>ersafu^ffiaiiie 
Dim »tart-^»rsonJbye»r, start_persoiUld 

'LMOM check"" 

If sesslonC'Indexer logged on'')o*'index«r locoed on" thcm 
r«s^nae.p«dir«ctC1tt0^dxOl.asp"} 'see p» 137 of prog guide 



'If RequeitC'*«^rt4>«rwn_ln«n»")«"" or Requ«$tC*»tart_perso#i_fn«ii€")»"" _ 
* or requ€st<"»tartj>erfanjk»y»«r'*)»"** and rtauaitCatart-perion-ld")*" then 
If Requestc'*»tart_pcrton_1niiDe**5a'"* AND requ«ft\''»tart_per*oru1 «!")=»'"' then 
%> 

Enter the last name, and then add one or morm of the following Fields - first 
nime, nrlddle name, birch year - as extra criteria to describe the person ndtere 

you would Ilka to start tfte PAY*PER-view pedigree search. <l-*(Nottt: only the last nme Is used for test1ng.)"> 
<BFl>or, if you already have the person's Geneelogy Registry 
ID. please use it to go direct end save tlse. 
4R>Seardi nay be 

United to nines In « recent tlaie range, such as these bom in this century. The 

pedlgree-fbllowlng process Is used after that. <a hrefkiVproJect2_locaV1nstr003.hta">Znstruct1onaV«xp> 

<F0itM MCTHOOsMSST ACnoii-''dbpubO}S.a«p" Idsfbraa nMe«fonn2> 
starting/F6cus Person :<br> 



Last 

<ZHPur TYPCv'TEXr" NAME*" starts rsorulnm** SIZ&il4> 
F1 rst 

<infVT TYPEo'TEXr" NAME»*'starcperseiufname" slZE-a4> 
Middle 

<IHPUT TirpE»*'T6Xr" IIAM&i"start.persoruBnaBie'' 5IZE«X4xpy 
Birth vear 

<tUPVT TYPE-''TCXr" KAMC^'ttarX^ersonJiyaar" STZEs4wp> 
Person's Refpstry ZD 

<tNPUT TYPC^'TEXr* HAME^'Start^erson.ld" SI2U14> 

SilPirr TYPe-'subnit- va1tte«''starc search" 1<»>subm1tl na»e«subni1tl> 

<dCelM3C> 

'Dim strsaLTemp, tab1e»;Mine. owner.id 

* creace temporary table for cookie processing 

Din cnSearch, rssearch 
Din «istart^r*o<u1d, x 
Dl« strSQLp 

9lm firstrec, lastrec. strx. I1nc_cnt 
dm strSQLfields, maXwBllowed 
max.allowed-100 

set ensearch - s«rver.creatoOb)actCA00DB.Cdnn«etion'') 
cnSeareh.opcn **dbl* 

Sat rsSearch » server.CreateObjectCAOOOB.Recordsef*} 

'eistart^erscn-id e HohtCstr1ng«.'*0'')AreauestC'*startJ»erson.1d''},12) 

'froo the opening screen 

'Response .write atstart^araonL.1d 

"Vhere persaf\.1name >■ Anstart^erSOtUid 

'construct SQL for multiple search criteria 
If request C"start»p«rionl1d">^*"* then 
strS(^>'' SELECT pcrson.ia, persoiulnane, parsorufname, "It. 



If request C"start»p«rionLid">^*"* then 
StrS(^>'' SELECT pcrson.ia, persoiulnane _ 
'persoruanane. 

■birth_^oar, bIrtTLnonch, birth-day, bi rth-couitry, 
•b1rth_8tate, birtjvjcounty, birth^ity 
"from persoiut 

"where pertoruid « *" trrequestCstart.persoa.ld") 4_ 

" ORDER ftV PgRSOHJUMME. perflonL.fVvaRia, p«rson_fnnane, birth_yaar" 

else 

str$QLf1e1di°'* sirtk-Year > '1900' and " 
If request("itart»perton.,lnaiie-)o"'' then 

^trtQlfleldi-atrSQCfielda A" person-Inane • &requescC'*stanLpercon.1nMe") A"' 

If raquest(''start.^arion,1^uie'')o"*' then 

strSQLfields^trSQLfieicb tr and 
end if 

if requaatC»tart-p«rson_nmme**>o"" than 
strSQLfieldsoStrSQLfleTds f and 



perwn_fnane m ftrequastCstart.person.fnane'O V" 
- than 

persorumame • "* fcncqueatCatart.^iersonjmana") Ir"" 
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ct\oatent\wod«1 c>VpbpubOM »»sp 



end If 
if rtqt 
«trS< 
end if 



if requestCstarOertonJbyeer")^"" then 
str9QLfi<1ds«9trSQLfie1di *" end birttuyear » *" 4rcquestCst«rt_person.bye»r*'> 



strSQipat^sELCcT persofuld, persor\.1naine, ptnonjfnunti "6^ 
"ptrsonjnnama, "lu 

. "blrttuyear, bi rcfuaontti, blrttuday. b1rth.«nintry, "tu 
"birth.Atite, birdLcounty. blrthjcity "4L 
"from p»r«on^t "lu 
"where " 4strtQtfield» «<_ 

" ORDER BY PERSOH_LNAME. person_fhane. peraofUBnane, b1rt»uyear* 
end If * end of SQL create 1«9lc 

•RtUtlonal (<, >, >-) - ntOM HSON I- OPERATOR, COMPARTXSON OPERATORS 

If rsSeerch.itate ■ edStateOpcn then rsSearch.clost 

research. Open strSQLp. cnSearch. edependynamlc. adLockOptlalstlc 



VsSe&reh.open strSQLp, cnSearch 



'use input screen like dbsrchlO 
*de search 



<K>RM WETHOD.BOST ACTlOMa"dbp«b04O.a£p" Idsfonal nunes>fonil> 
Select 4 »t»rrin9 focus per.on fpo« the fwllonHna Hit by checking a tingle box. 
<SR>The person's relatives mil be counted and tne resulting counts will be shown 
to you on the nejtt. screen. <aR>Vou will be asked to choose which groups 
of relatives you «nsh tx> see. * ^ 

<X 

*1f rssearch.eof - skip 



do while not rsSearch.eOP end x < rnx^l lowed *<26 
strX-ri ghtCOOOCto , 4) 

response .wHCe <-<brxtN?irr tvpeschcckbox name^H(''«»trx *" VALUE=1> 
response .write C'<1HPVT typeatext nanee- & "aricLlnwe" & strX * " 
response .wHte r<INPlir type-teut niine-" S, "grfd-fnarae" & strX * 
respfinse.wHce C^NPur type-text naine*' & -gridjnnarae- & itrx 
response .write r<lNPIir type-text name*" 9t "grid.byear" & strx 
response .wrtte r<lliPUr type-teMC name-" 4 "grid_id- A strx 

Mf wbI tSim^r St recsreseerch. bookmark 

loop 

'Response. write X-1 

reaponet.wHte <"<INPUT type-hidden namo-line^cnt value-- Ax A" sir«-4>-) 
X ■ X o nax^el 1 owed tlien 

end*??*""*^^** "'^^^^ meetinfl your cHcer1e</hJ>" 

If x>0 then 

end*iP"****^** "<*»3>-ax &- Names were found neeting your cHterie</h3>- 
If X-O then 

^Jes^nse.nHte "<h3>» Nsnes were found oeeting your cHt«ria<Ai3>'' 



' Ustrecarssearch.bookmrk 

'tan sufaerlt buttons that go fonrard or back 

^g«5^TVPB^*s*nif v«1ue«-SMCIf REUTJVC COWfTS" 1d-sufanrit2 n«ne>subni c2> 
<Xend ifX> 

2*i5-Sl!5l!"''!?^S^*^'*^"**»'"'^ ** Indexer/Publisher Main Menu Va></p> 
<a hrefWdbpub038.asp>Retum to Name searcii screen. </axp>4nhsp;</p> 




VHTHl> 
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Ci\Datent\ModuT «>\obpub040.asp 



<dE9 L4nau&«e«vaseHpt X> 
4(OQt\on Explicit %> 

<1— ^Hnclude rlrtirti" coor>on/4dovbs.1nc — > 

<HTNL> 

<HEAi>> 

<MCTA NAMEa'cstEKATOR' Oontent*:'*Mlcrosofc vtsual studio 6.0'*> 

^rrL£>PUBUSH£R VIEW PEDIGREE - dwose Relationships to vini<A>TLe> 
<H3>PUBU6HEfl view PiOXGUtt • Choose Relationships to Vie«K/H9> 



• Response . wri te " q ri <Ll d01»**Ptques t ("flrt 4_1 dOl") 
'ctme from dbsrchiO.aso 

'This progran lets a viewer choose and pay for n«RiBs. 

*The first time this page Is retrieved, and any tim« it is 
'subntitted without being co(»p1ec«1y filled out, the fom 
*is displayed. If it is submittad and eoapletely filled out, 
'the fonn is processed in the Else clause. 
'Response .Write "XXX" 

• Response .wH te REQUEST("UMt-Orr") 
•Response. write -YVV 

• Response .Wri te R6QyE$TrGR10_I00ri 

If requestC'Hne..cntr>«I then *^f only one name cones In, take ic without a checkbox being set. 

START.PtRSOHJtO=REQUEST("GRIO_I000Ol") 
else 

FOR Xml TO requBstClin^jrnt") '25 

STIUC=ftIGMT<**0OO(>"diX , 4i 

IF REQUESrC''Oar«STKX)al THEN 

STMTJPCR$0ICXO»RfQUESTC'CllI0.JD''ft;T]U0 
EXIT F0« 
END IF 
NEXT 

end if 



'<«els« 

'-A 

'Dim strSQLTesip, table^ame, owner.id 

• craitt temporary table for cookie processing 



'tab'}e_nane-"trace''liriaht<stringCft, "0")*reqiieatC''owner_id") ,8> 
• table_naine»" trace"&l ertCreques t C" stertj»er»on-i d") ,8) 

Din cnsearch, rsSe&rch, rsSearchF, rsSearchu, rsSearehC. rsSearchS 
Dim m$cart_person_ld, x» STRX, start_personj[D 
Dim StrSQLp. strSQLiF, StrSQLlM, scrSQJ.lC, SCrSQt.lS 



Dim rsPay, rstinkp, rsdnkM. rsLinkC, rsLinkS, rsLlnkP, rsUinkMar 
Dim lina_cnt, father.id. enther.ld 
Din chlloLcnt, •pouse.cnt, parenCjcnt, narriagejcnt 



Dlia XXX 

*XXKr77 

*xx*ll 

set cnsearch - s« r/er. Cre«teObjcctC''AOOOe.Conn«ction'*> 
cnSearch.Open "dbl** 

Set rsPay - S«rv«r.CfeateofaJect("AO(H)B. Recordset") 

Set rsSfearch = Server .CreateobjeccC'AOOOB. Recordset") 
'set rsSearchF - Serve r.Cr«4teCbiect<"AD0DB.Recordset") 
Set rssearchH • server. crvateobjcctC'AOOOB.Rteordset**) 
'$«t rsLlnkF » Server.createobiectf "AOOOe.Recordset") 
'S«t rsLinkH - S«rver.Cr*at«QbjectC''A£)O0B. Recordset") 
set rskinkF - server. CreattObiectrADOOB.Reeordsat') 
Set rsLlnkC - server.createobjectrADOOe. Recordset") 
Sat rsLinks = servcr.CreateOblectrAOOOB.Racordsct") 
set rsLlnkMar • Server .CreateObjaetCAOOOB .Recordset") 



'mstart-person-id - right(ttHngr8,''0*')<rrequest(''start-persofv_id'').12) 

mstartLpersonJid » start-0«rsoa.id 

Sa ssion C*s tart-per8on_1 dr) "S tart_persoru1 d 

'from th« opening screen 

*Rasponse.wHte ■■startj>ersoru1d 

*x*l * temporary dttbwg 
*Oo Mhlle x<S *2o3 

StrSQLp«"SELCCr p«rson-id, parsonJIname. person_fhame. 
"pcrsorumnamc, persorusex, Al. 

•■birth_year, b1 rthjionth, blrtiuday, b1rtK.country, "dL 
"birthjitate, birth^unty, b1rth_city "ft. 
"from persofut "Cu 

"where person_1d - *" toftartj>«rson.id ft"*" 



& ** and <RelatB UKE 'XFX'or Relate like y 
StrSQLiP- SELECT p«rson_id, persorulnifM, perfQn..fnan!e, 
rsoojnnamei persorusex, ft_ 

rtluyear, parsonl, relate, 'OOOOOOOOOO' as owner "ft. 



"pel 
-Ml 

"from uinKB_^, pvrwr^K AC. 

"where person2«bersor\_1d *'&. 
"and personls ' *inscartjerson_td ft""* ft;. 
" and relate Like *PX' HL 
"union " ft_ 

"SELECT persofuld. person^lnsffle, perseiuf^tuie, "ft. 
"peraorvjnnana, person_stx, 
"b1rth«Y«ar, pcrsonl, relate, owner "ft_ 
"f poei U«k»_t* , person-t 
"whart parsona-porscnJd ' 



tart parson2*p«rscn_Ti 
personle *** ftnstar 
rreittft tm 



"and personle *** ftnstart^rson.i d ft"** ft« 

" MO r"-^ — " 
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•strSQLlCts "select ♦ from Llnks^t where personl • *'_ 

* «m»tart_p«r«oi\_<d . 

* A * and KeUtfl UKE ^OC'" 

' '« •* and Relate UKE '%c3f" 

strSQLlCB''SELECT per9on.id, perMn.lMme» pcr»o(ufn«fliei "iu 
"person_faname, person_sex, "4L 

"birth_yc«r, personl, r«1«t«, '0000000000* as owner "4_ 

"from Links_t. persorut 

"where personZKpersoiuld *&_ 

"and personl* ftnstftrt^«rsen_1d ft"*" 4. 

- and relate Like 'CX* *TL 

"uMon " 4_ 

"SELECT per»oru^d, pcrsorv-lnenw, persorv.fname , "t. 

"per«an_iiname, persofusex» "d(_ 

"blrth^ear, personl, r«1ate, owner '*ti^ 

"frcm L1nk$_t2, pcrsorut "«t. 

"wttene person2>flersofL.1d •**u 

•and personlB '* Amstart-persoruld ft"*" «L 

" end relate tike 'Ot* " 

* etrsQLlSs "Select • from Llnks^t where personl » 
' ft""' ftn9tart_per»oiv1d ft"'" . 

* ft " and Relate tJKE^sX*" 

"ft " and (Relate UKE 'SMX* OR Relate UKE X/K'y 
StrSOLlSs'sCLEcr perserv^ldt pcrsoiulname* person_fname, "ft. 
"persofLjaname. pcrsoi\.seXi "ft., 

"birthlyear, personl, reUte. '0000000000' as owner "ft. 

"fr«n L1nkaL.t. per»on_t '*ft„ 

"where person2sperson_id "ft_ 

"and personl> *" ftRistart^ersen.14 ft'"" ft„ 

" and relate Like 'SJC' " iL 

"union ■ ft_ 

"SELECT persor\.1d» person.lnane, person_fnaBie, **ft. 

"persofumname, persoo^sex. "ft_ 

"birth^year, personl, relate, owner "ft. 

"from L\nks_t2, person^t "4u 

"where person2«persoa.1d "ft. 

"and personlo &nstart-pBrson.1d ft""* ft, 

" and relate Like 'IX' " 

scrSQLMars "select ♦ from Marr1ageL.t where inarrjius.no ■ 
ft"*" ftastart.pcr9on_1d ft"*" . 

ft " or Barr_jir1fejx> = " _ 

ft"'" ftnst«rt^erson-1d ft"'" 
'Response .write strsqip 'MsgboxCstrSQLf) 

'Sub t«BtlC«x) 

'XXXBXX 

'End Sub 

*testl 123 
'testl 4S6 
'Response.wri ta xxx 

If rssearch . state = adStateOpen then rsse&rch. Close 

'rsScareh.Open strS^p, cnsaarch adopendynanic, adLockopclml trie 

research, (^«n strSQLp, cnsearch 
'rsLlnkF.Open strSQLiF, cnSearch 
'rsLlnkM.Open strSQLlM. cnsearch 
rsLlnkP.Open strSQLlP, cnsearch 
rsLlnkc.Open strSQLlC. cnSearch 
rsLlnks.Open strSQLlS. cnSearch 

If rsLlnkC.BOF and rati nkC. EOF then 
Ch11d.cn«i0 



*'g, 



until rsLlnkC.EOF 
ch11d.cnt>ch1 1 d.cnt^l 
rsLlnkc.HoveNext 
loop 
end If 

rsLlnkc. close 

If rsLlnks.BOF and rsLlnkS.COF then 
s^8e_€nt-0 

do until rsLlnks.EOF 
spou6e.cn tBSpouseucnt<*>l 
rsLlnkS.HoveNext 
loop 
end if 

rsLlnks .close 

If rtLlnkF.aOP and riLlnkP.EOF then 

pArent.cnM> 

else 

do until rsLlnkP.COF 
p arant^jcnt^arentjcnt-t-l 
rsLinleP.Movellext 

loop 
end IF 

rsLlnkP. close 

rsLlnkMar.open strSQLMar. cnSearch 

If rsLlnlMar.BOF and rsLlnkMar.COP then 

narriagejcnCBO 

else 

do until rsLlnkMar.eoF 
oarrlaoe^ntMnarii lOC-cnt-M 
rsLi nkMar .MoveNext 

loop 
end If 

rati niMer .close 
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m>tart_p>rftork_4d • rtLlnkPC*P«rson2**) 
'fattier.ld ■ r8LlnkFCper«on2"> 

* Response. iMrice ''f»th«r_1d"*f«th«r.1d 

'scrSQUFs'SELCcr i>drton_1d. perMOrum, pirsonjfnant. "4. 
"*p«rsor\jimm*» pftrtorx.i*x. ^ 

•"birtluyw, birthjnonth, b1rth.d«y, birtlueountry, 
'"blrth^tatt. blrttucounty, blrtfudty "at- 
•"frem parson^t 

"yhtrt per»pn_1«l «• 4father„<d 4"'* 

*rtSe«rchP.op«n strSQLF, cnScarch 

* mstarc^erM»ii_1d • rsLlrtb4C"p«r$on2") 
-Mtlwr.id B rsLlnkMC'personZ") 

'Kcsponic .writs mstart^ertofuld 

*Strsqu4-'*SELECr p«rson_1d, psrsoiOnKM, perconjAum. "ft. 

*"p«rsoa.Dnane, per«on_sex, NL_ 

'"birt*v_y««r, Mrth-nonth, birth_d«y, bIrtKxountry, 

'*'b<rth»«t*te, bi rtrucounty. birth.city "«u 

•"from pcrsofut 

"'fdiere pemncid « *" &aothcr_1d **"•* 

*rs5earchM«open strSQLN, cnscarch 

'fiELOW WAS GOING TO 0&SRCH21.ASP, th«n redir02.a$p 

KFORM MrrH0O=P0ST ACn0W=-dbpub04l,«sp" idm^ma name-f o m2> 

Sttrting P«r BOfv<^ 
ftatn: L«»t 

-aNPVT TYPE^nrEXT" NAH&e-$tart_1niiae" SIZEalS value«''<JfaraSMrchrpersoi\_lnaTje'')>S>-> 
Pint 

jajPUT TTPEs'TEXT" ll«««"start»fnamc" SIZE-IS value." <«-rssMrchC*per$on_fnane-)X>''> 
<3N?tiT TYPEs"TEXT" N^WEp'sartjBnmi*' slze^lS v«lu«»"<X-r<SMrdi(*'pcr»orumam'>9b^''> 
eirtht v«ar 

<XNPUT TYPE«'*TCX)r MME-">tarC^1rtluyc«r'* SI2E-4 v«1uc«**^rsSearchC''b1rth^ar'')&.-> 
Reglfttryf 

•awPVT TYPB.-TCXr »tart-ptPforu1d" SI2C-14 va1ue-''<S£prsSearch(-p.rwn_id")5(>"> 

^R>ftuid on your choices ^herc. on the next »cr«en you vrtll see Tisti of naaes of relatives 
for each catagory choson (and b« charged a small fee for earh naiae). 

•<Sft>Ybu nay select any or all of those nunes to see more detailed data (for marc email fees). 

coaT*'" y«"n"y change the startlno/focui person, and use thli method to move chrough the pwHgrac. 

Parents of starting Person <8R> 

Data contains <S6sparent_cnta&- parent recordCs) .<br> 

-ONPUT TYPt-"chectbox" MAK6«"partnt" VALU£«*V chockedvShoM Parent Nane<s) 



»<6R> 



Spous« of Starting Person <BIU 
Oata contains 'dUapouse.cntX^ spouse record(t).'4r> 
<INP(rr TYF&i"checkbox'* nmEb" spouse" value»*V checked>show spouse NameCs} 

.^gH^j -^^^ r m 



Marriages of starting Person <BR> 
Oata rantalns ^baarrlage^cntS^ narrlage record Cs> .-<br> 

<IHPVT TVPf«"chaclcbox- fbMe«"*iarHag«- VALUE--V* checked>5how Marriage EventCs) 



children of starti na Person <8R> 

Data contains <SB>ch1 1 ducntib^ child rcoord(s),<br> 

<INPVT TYF6«"checlcbox" NAMes'*ch11d" VAtUEa'V checked>Show Child NBme($)<br> 

<lHm we-" submit" VBlue«"StE names POfc GROUPS SeLKTCO" 1d-subnit2 n«ne-subn>1t2> 

</FOKH> 

<P>Anbspi</P> 

<pxa hre^1nenu1dka..asp**>Aetum to Publisher Main Menu </a></p> 
^xa hr«fi-%«1oome2.«ap''>Aetum to Main Menu </^</p> 
<pxa hrafi«"..AfalconM3.ht»">Retum to Welcone Page</«><7p> 

</Hni> 
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^ Languag<«vsscr1pt X> 
'dajptfon explicit 3& 

<l— iinclud« vHrtua1w''eaiB»n/«4>vbs,1nc*' --> 

<HTHL> 

<HEAO> 

<META NAMEc'CENERATOR" content>"Mlcrosoft Visual studio €.0'> 

<rZTLE>PUSaSHER via* PEOIQKeE - S«1«ct specific Names fcr More Data </nTLE> 

<H3>PUBUSHER VIEW PEDZQREE • S«1cct Specific Names for Mora Data </h3> 

</HEAO> 

<BOCn> 

<MA> 

<!—<-« 

* Response .Wri te " LIMTT/USCD"*! essi on<"buY« r_nain^1 imi t'')«V"4sess1 onC'buyer^anws.used") 
If sess1on("buyer_naine_1im1t'*) - fteiSlon(''buYar^afflas_useir')< 1 chtn 
■e3sion^'*buyer.1opflecL.on*')«"b«y«p looged off 
5E5SIONC*'buyeOogjMssage**)s*K«achtd n«im Limit for one da/" 



<!— <FORM METHOOaPOST ACTION-* logbyOl. a sp" id-form3 name>fonn3> 
<lHtVT TYPE«*TEXr (MMEs'IjOGl/IESSAGE'' SCZEsOO values-Reached Name Llrait for one day"> 

<XNPUT TYPES- sufamft" vBlue«"EX]T FOR TOMV 1d«submc3 name«»iitainiti> 

«-X ELSE X— > 

<fom METH0tM>OST ACTZONe"dbpub045. asp" Idsfornl n»iwsfonnl> 

srartlng R3cus Persor><p> 
Nana: Last 

<IHPUr TYPE="TEXr" NAM&i"stepOiwme" SIZE-IS valuea**<JSBrequest("start_lnaBie")3K>V 
Fi Pit 

<I«wr TyPEa'Texr* IMMEs''»tartjfiume" SIZC»1S value»"^pe9uest<"»tart_fna)iie-)%>-->. 
Middle 

<TMPOT TYPC.-TDcr iMM&."startjwwBe" $I2Ci>lS v«1ua-''^ra4ussc("stirtjnname''))^''> 

<8R> 

Bipth! mp 

<IWPUT TYPE-TEXT" ii««B"st»PtJ»lPth_year- siZEs4 value-'^requeitC •start_fairth_year)a^"> 

Registry^f 

<r «pi/r TYPEo'TE xr* names" start^ersoruld* siZE-14 valuea'^requestc "staPC_pcrson.1d")S&>''> 

<IIIPOr TYPEe-hldden" NAME>~spouse" sXZEvi value-"'dkreque5tr spouse* >JJ>-> 

^HPur TYPE»":.idden" •«ME»"par«nt" sizcitl TOlue--«-reqii«5t?* parent* $a5>"> 

<tllPUr TYFE-^friddefi" iMiE-'chnd" EXZE^ v»lue--^r«qu«strchnd")au"> 

tflNPtn- TYPE-^IiI dden" NMIE-'MAftUASr* SZZE«1 va1ue^<d^equest<"niarn«sc")9i>*'> 

<SR> 

Select Person Cs> below fortxbrv 

<I«Pin" typee" radio" name-sel jiode valg^"0ATA" checked> 

1 «Ant te Display Data (choose any number of names)<br> 
<XNnn' type*" radio" n«me*Ml.jnoda values'* PERSON" > 

Z want to Oiatige "Focus person" Cchoosa only one narae)<p> 

<l— If Display Data Is chosen, <SR> 

•<1MPUT typea" radio" n«inessel_NAMC value="AU" checked> 

2 want to Select All N«nes<eR> 

<IMPUT type=" radio" nanie=sel_ji«ffle value-"saME" > 
I want to select only sone of the nanies<p> 

Choose levels of data to dliplay. <»*-<MOTe-For Beta testing, cwnuUtwe pHcing used, net selective ppldng. — >«R> 
<1NFVT type^^radio naine=rev_>oethod valoea"a*i" checkedXUnulatlve selection i-ri^^mB. 7«k> 

<ZNPVT type-" radio" name-rev jnethod value-"IN0">Ind1v1dus1 Selection 
<BR>Curuut1ve selections 

<ZNPUT types" radio" nemespev^ll va1uee2>Bas1c Data 
<INPirr typeai"padio" neme-rcv^U va1ue-3>Cites 
<INPirr types- pa<t1o" naoiespcv.al I value«4>T«xt 
<INPUT types" red^o" nainea»pev.al 1 va1uesS>Phote 
<lNPtfT cype-"pad1o" naine-rev^ll value-6 ch«ckad>cite : 
«R>lnd1v1du&1 selections 

^iSSS S^^H^'fli***! ""^^JSI walue.-v- checlcc<l>Bas1c Data 
^NPVT types checkbox" name-sel03 va1uc-"\r" checked^Cites 
4NPUT types" checkbox" namessel04 values'y" checke<^Tcxt 
4NPUT typas"checkbex" naaesselOS velues"r" checkedyphoto 
^NPtfT types"checkfaafx" naae-ae106 value-"/" checke^clte Diase<br> 

oin cnsearch, rsSeaPch *. rsSearchF. rssearctw 
01 n nstapt.^ersoru1d 

Oin strSQLC, strSQUC, strSQLS. strSQtP strsoLC 
Oin X, strX, buyep.ld 
buyer.ld-sessi on("buyer_1d") 
'Oitt rsPav, rsLlnkP, rsLlnkN, rsPees 
'DIM fee^teU. fea.rateu2 
'DIM father^l^ faother.ld 
Dim nane.cnt 

'nameucnt-O 

Set cnsearch » Seryer.createObiectC'ADOOB.Connecrfon") 
cnSearch.Opcn dbl" 

$« research « ServerXreatcObj act ("Aoooe. Recordset") 
*Set rsSuyer « S<rvep,createob3ectc**ADODB.Recepdset''> 
■start-persoa.1d-requestC''start^ersofu1d"> 
dwcUnddtarge requestr»tartj)er»on.1d"5. "OOOOQOOOOr, 1 
*Cheekandcharge requestrstart.person.ld"}. buyer.ld. "lOOOOOOOOO" 

sirsQuea'SELECT persofuld, persoOnaBe, perwiufhaine, "^ 
"personjwiaiM. parsorueex. "A- 
'blrch^ear, persofa. relate^lL 
•from Llnks_t. persofuV"*- 
"wfiera person2-peraoa_,1d ***_ 
"and penonls taatart^epseOd V" 

'Pteua Person 



05/05/2004, EAST Version: 1.4.1 



us 2002/0032687 Al Mar. 14, 2002 

37 



Ci\D« tentVModul ««\I»PU8041 .ASP 



^rxXHPtfr typevCheckbox rwmtaffKus VAUJEsl>Ourrent Focus Person - show data datafU 



<tt>— List— — Pi r$t iriddU 81 rth— Regi Stry Li nk Owner 

<BR>— Man* Nama Hum Vtar Huii>er Miinber</tt> 



* Response .wHte '*niatar«>"&nstart-P*raoi^1d 
'Request. write "s<)oui«9''<rrequesrC>poi»e'') 
ntmeucnt-O 

If requestCapouse'*} then 
■ tessi onCtpouM.se I act'Oo-Y* 

*StrS<)tS»ttrSQLX A ** and relata Likt *SX' " * thould b« S, WAS "Xluft' 
StrSOLSa'SELECr persoruld. parso(V.1naRie, p«rson.fnane, 
'parcoojanaina, parsorua*3(» &^ 

"Mrth^ar, peraonl, relate, *" tlaftOMtart^arton^ld.lO) Ir*' as owner "iu 
"f ron L1nk».t, p«r$on_t "fL 
"whera per»on2«parsofuio "4- 

" and relate Llkt 'SK* 

"un-ion " <u 

SELECT personal d. persorulnam, per soo_f name, 



"paraonjnnarae. parson^sex, "iu 
"blrth^year, personl, relate, owner 
"from Link»_t2. p«rEorv_t 
"where per»on2*«erso(i_ia 



'and personlp Inaiart^ttrson.1d tt^ 
and rtlace Mke 'SX' " 

* retponse.wri tft strsqiB 
rcSMrch.Open strS<y.S, cnS«arch 
%> 

<BR>spouses 

'parent* spouse, ffiarHsge, child 

do while not research. eoF and x<99 
s trXsH flht( "OOOCAx , 2) 

response .in-ite f''<br><IMPUT type«dieckbox nairaeSchk"&strX A" valuEs1>") 

response.wrf te t"<INPUT type=text names" & "Slnanie" & atrX * " va')ufr«''ArsStarch(''p«r«on_lnain«")&" iiz»«10>") 

. .. . - . ... . _ _ 



r«»pon»«.wr-it« C"<1MPUT type«text name*" ti "Sfhirae" & strX & " values"&rsSearchC"persocufnajne*'5&'* 5izc=10>'*, 

response .«ir1ce C"<input typeatext name-" * "amarae" & itrx & *' v»lue»"4rsseapch('*p«rsonjiina«e**5A'*4(nbsp;"*" sizeslO>''> 

rasponse.MHte c''<INPin' type=text name-" & "Sbyear" & strx & ** value="4rs5earch(''birth.y«ar")if'^ 3ire«5>"5 

response .iMTite C*<IMPl/T ryp*»taxt nvne^" & "sld" & strX & - v«lue='*&rsSearch(''per»on_1d*')&'* $l2e»14>"5 

response.wrlte (•<rNPin' typeatext name*" & "Sowner" & strx <r " value- -4rssaarch("ownBr*)&** size=10>*') 



'CheckandCharge rsSaarchCperson.ld") , buyar.ld. "1000000000" '<»>n*ss 
research .tnovenext 

'if x>l then f1rstrec«rsfrearch.boelan&rk 

xnx-H 
loop 

rssearch. close 
nane-cn rename^cn c-t-x - 1 
end if 

»€ s si on C" spous«.cn t" ) -name..cn t 
naffia.cn tiO 

If request CPARC"^) -"V*' then 

StrSQLP** SELECT personal d, person.1name« person_fhane. *&_ 
**persof\jBrMBiie, person_aex« du 

"birth^vear. personl, relate, &1eftCnstBrt^rson_id,10> 4'" as owner 
from Links^t, paraon.t "4_ 
"where person2«per8on_1<i "*t_ 
"and personlv &nstart^erflon.1d «_ 
" and relate Like *f%' *" lu 
"union *• dt_ 

"SCLfiCT person.1d, personal name, pcrson^fnane, 
**per9oajnnaroe, pcrson.aex, 



"b1rth^«ar, personl, relate, owner "4_ 
"froni Ltnks.t2, persorv_t 
"where person^epersofuTd 



and personla <mstartj>erson.1d 4- 
and reUte Like 'PK' 

*Str«qLPk.«trSQUC « " and re1«te Like 'pX'" 
**strtQ|.PwstrSQLX A " and Crelate Like 'XW* or relate like 

rcsaarch.Open strs<)LP» cnSeareh 

<BR> Pa rents 

'parent, spouse, tBarriaQc, child 
x*l 

do while not rsSeerch.EOF and x<99 
at rx^ rl flhcCOOOCto , 2 ) 

recponie. write f"<brxiNPirT typescheckfaox naffle»Pchk''&strX ft" valuE"1>") 
response.wrlte t*<IHPVT type-text name-" A "Plnime" ft strx ft " v«lu«s"4rsSeirch 
response.wrlte f"<IiiP(/T typestext names" ft •pfhame" ft strX ft " v«1ue»"ft>rsSeBrch< 
responae.wHte f"<XNPirr typestcxt name-i" ft "rtwame" ft strx ft " value- "ftrtSearchi 
response.wrlte f"<WiPin- type«text nime-" ft "Pfcy««r" ft »trx ft " valut-'ftrssearch 
response.wrlte C<imjT type»t«xt nanie< ft "Pld" ft strx ft " valu«="ftrssear^hi 
response.wHte (^iNPi/r typestext namea" A "Powner" ft strX ft " value-'ftrsSearchi 

'CheckandCharge rssearchCparsoruld") , buyer.ld, "lOOOOOOOOO" 
rssa a rch .tio venext 

•If xbI then f1rstrec«rssearch. bookmark 

X-X-fl 

loop 

rssearch. dose 

nafflOucn t=n wne^n t-f X -1 

e nd If 

session C paren t^nt" )«name.cnt 

naae,jcnt!<iO 

If requestCchlld-) -"Y* then 



;"person.lnane*')ft'' s1zealO>'*) 
"per»on»fnaiie" jft* si ze-lO^") 

eersonjnnane'*)ft''ftnb$p;"ft" s1zeBlO>'*) 
, 1rttuyo*r">ft'' ii2B»S>"J 
" personal d")*" s1ie-l4>") 
; a««r")ft" s1zie»10>") 
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•StrSQUWtrsQLX 4 " and relate Like «* , , . 

•strSQL^tpSQLX « " m4 reUte Like 'M* - ^ 'OOOOOOOOOO* &s owner 

strsoLO'SEiea person.1d, perseiulname, per8on.rn«iM, 

"persofunnBine, p«rson.$«x, ^. ^ ^ . . .^^ ... 

"birthLyear, perjonl, Ptlatc, *" AleftOnsterCpersofuld.lO) at ow«r "*u 

"from Link9L.t, pcrson_t 'tu 

*'iMhere person2cbcr»OfV.1d "4. 

"and perconS* ** <nsurtL^«rson.id «r"* *_ 

" en/relete Like 'OS* "4. 

"union " tu . . 

*SELCCT p«rson.1d, perftorulname. peraon_fitanie, 4. 

"person_fnn«M, pcrson^sex, 

"blrth^ear, personl, relate, owner "fiL 

"from Links_t2, person_t "4. 

'*tMhere pcr9on2>p«rsor\.1d "4. 

"and personlo &nstarc_p«rson.1 d A"'" 4_ 

" and relate Like " 

rtSearch.open strSQLC, cnsearch 
%> 

<BR>CM1dren 

'parent, spouse, marriage, child 

do whil« not r»S«arch.EOP and x<99 
strtferl ghtr00O0"to , 2) 

response .write f"<br><IMPUT type-checkbox n«m«oCchk"£strX A" valu&i1>''} 

response .write c'<lKPur typeatexc names" Si "Clname" & strx & " value="4rsScarch(**per»oru1nainc'*)&" size-10>") 
response .write C'*<IHPVT type«texc nane^" & "Cfname" 4 strX & " va}ue»''&rsS€arch(*'persoft_fname"54" $1ze=lO>") 
response .write c-kINPUT cypeatext namea** & "Onname* 4 »trx & " value«:'*&r5Search(*'person_nname")&"^b>p;*'4" s-ize^Kb^") 
response .write f"<INPUT cypeatext nawe*" & "CbyeaK* 4 strX 4 - va1ue="4r$Searchc"b1rth.year-)4* sizes>>") 
response .write C*<I«PUT typentext name»** 4 "Cid" 4 strx 4 • value*"4rsSearch("persoa.id**)4'* s{zesl4>"3 
response. write ("<IMPUT type»text name-" « "confer" & itrx ft " v«lue»"4rsSearch ("owner' s1ze«10>") 
*ChecfcandCharge rsSearchCpersofUld'}. buyer.ld, "lOOOOOOOOO" 
rsSearch.aovenext 

'if xai then firstrecsrasearch. bookmark 

loop 

rsSe&rch.clos'* 
naffle_cnt>i4iafflejcnt+>x-l 
end if 

sessionCchi 1 iLcnt")RnMe.cnt 
%> 

<1""WNCUJDC VIRTUAL-'COMMOII/CMARCCOJ .INC" 

<l= 



<IUPirr TYPE*" submit" V«luea''SHQir details fox names selected" 1d-subnic2 nafK«subin1t2> 

</FORM> 
<p>4nbsp;</P> 

<pxa href •"«enuid)(l.asp*'>lte turn xo Publisher Main Menu </i></p> 

<p><A hrefa"vifeleonie2.asp**>AeCurn to Main Menu </ax/p> 

<p><a hrefv". ./Wei corM).htn/'>iieturn to Welcome Pege</a></p> 

•dCEND IF 'This is to skip the whole thing If the name quota is reached %> 

-</HTML> 
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■an Ltngingc-VBScript %> 
<3KOpt1on Explicit %> 

<I" rlnclude vlrtuala'coamon/Adovbs.Inc" --> 



xHTMU 
<HEAO> 

•d4CTA MME^''ceNERATaR'* Goncant-''Mlcrosoft visual studio 6.0'*> 

<riTLE>PuaLlSniJi VIEW PEOICREC - Show Znd1vidu«1 Detail s</TTn.E> 
<H]>PUSLISH£R VZCN PEOXCREE - Shaw Individual OatalU </H3> 
</¥EAD> 



<l- 

<X *b«g1n person-»w1tch routint 
Dia X, ftnc, chk_person_1d, llne^cnc 
Oia cn3carch 

Din aNanewaschackad CHCCiCANKMARae 
oiui start^ertoruid 
aN ameWftsChecfceds^N*' 

star t^arson.1 darequescC " starts rson_i d*) 
*narr_hu«.jio - ftart^arson.1d 
'marrjrlft^ « rane^d 

If request('*seljnode")«*'PERSON" Then 'DATA 1» default 
•1ine«cnt«0 

FOR TO session C"spoiJS«_cnt") '2$ 

STRX-R1€KT<"0000"&X, 2) 

IF REQUEST C*SCMK"*STW0-1 THEN 

CKtCPCR SON^OcREQU ESTC" SI D"&STRX3 

aNameWaaChecked*" y " 

X> 

<FCMt METHOOsPOST ACTIO»=''dbpub040.asp" 1d«forra2 najne»fonn2> 
The screens wHl contlnua with th« new focus name chosen. 
<brxlNPVT typescheckbox namcBChkOOOI valu&bI ch«cked> 
Rcf 1 stry# 

<ZNPUT m»Esi'*rEXT* »IAH£»"grid.1d0001" 5IZE»14 value-" ^chJu>er*on_id3C>"> 

<iMPiJT TYp&="T6XT- iiAM£--Tlne_cnt" sizw valu«»l> 

•tfNPUT Tn>^"subi8lt'' v«1ui-''00*inNUE" Idsuifanit? na»«isubari t2> 

END IP 
NEXT 

FOR XbI to seasion<"parent-cnO '25 

STRXsfllCKTf "OOOO'aX, 2) 

IF REQUEST(**PCKK*'ftSTR>0«X THEN 

CNK_PeKSON^ C^REQUEST C PI0"&3TRX) 

aNamcWasdteckeds-'r* 

%> 

<FORM METHODS*^ ACnot<="dbpub040.asp" 1d-fonn2 nme«fenn2> 
Itia ac raana »«111 continue with the naw focus name chosen. 
<br><3NPLrr typeschecMiox noneachkOOOl VALUE-l chacked> 
Regl stry# 

^HPVT TVPt-'^TEXT- N*ME*"ar1 cLIdOOOl" SI2E»14 value»"<3t»chk_person idX>"> 

<lNPtfT TYPU'TW" NA»46-'*Tine_cnt" SI2E»2 valua-l> 

^rNPin* TVPt«**tubRilt'* valucB-coNnMUE** 1d»sti»lt2 nuiie-subiilt2> 

END IF 
NEXr 

FOR TO »ess1on("chfld»ent") *3S 

STRXMUGHT COOOC&X , 2) 

' Response .Vrite STRX 

* chknanaa'*ehk**&stnc 

IF REQgESTC"CCHK-«rSTRX)-a THEN 

CHIU'ERS0ILZDsllEQUEST('*CII>''«5nU0 
aManeW&sChecked-''V" 

%> 

<FORM WETHOOaPOST AmOte"dbpub040.asp" 1d«f6nn2 nsun««tbnn2> 
The screens will condnua wrfch the now focus nan* chosan. 
<brxIHPtn' typeecheckbox namesK^kOOOl VALWE-l checked> 
Reiplstryf 

ciNPUT TYPec"TExr* NAME8-or1d.1d0001" siZE-14 valuc.-<%-chk_pars«n_1d*>"». 

<IWPUr TYPEaTEXT" NAME-"l1ne_Cnr SI2E^2 valu€=l> 

<INPUr TYPE-'tubffllt** v«lua>*''COimNUE" 1dBSufani1t2 namcssuboii t2> 

</FORM> 

<X 

END IF 
NEXT 

•If It here, there aas no box checked, so re-use start person id. 

If eNaReWBSChecfced«'*N*' tfien 

X> 

<FORH METHOO-POST ACTlON-*'dbpub040.asp*' 1d»fi»m2 namesfomi2> 

V^u nsde no selection of a new focus none, lo screens tdll continue Mith original nana. 

^rxmPin' typevchecfcbox naneachkOOOl value^I checked> 

Raglatryf 

<IMPl/r ryPE-'*TEJa-* NAME-"qr1<t.1d0OOl" size-14 walu«-"<«Taque»tC' starts* rsen 1d")«>"> 
<1HPUT WPEe-TEXr- NAXEa-Tlne^nt- SiZErf value-l> ^ ^ ^ " ^ 

<IHPUr TYP£«"sufaRi1t'' value* "COimNUE* IdssubmltZ namessubmit2> 



e nd if 

ELSE 'end of person switch sect1on%> 

<FORM METMOCk:mT ACTXOll«''dbpiib041.asp" 1d«fbnal name«fbr«l> 

Starting Person<far> 
Nne: Ust 

•aHPVT TVFe»-r8xr* NAlCE>i**start.1naine'* SIZE-IS value-"«-requestC"starc.lnaBn-3J&."> 
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Snpot TVPEs'TEXT' HAM.m'iXnrxjfrmm'' SIZ£rf.S value-" <SUrequestC'itart_fnam«-)X>"> 

KlNPUr TYPE«i"TOCr* NAMEa'star^jmam*" SIZE«1$ v«1iJ«ai'*<Sfarequ«$c(*'scart-raaBne")S8>"> 
<BR> 

<INPuf TYPC*"TeXT" NAME»"»tArt.b<rth-ytar" $IZE*4 v«lue-"aUrequ*fitC'uart3irtK.^«ar'*)X>''> 
«eo1«try# ^ 
<iNfvr TYPt-'TSXT'* »iAMEa"»tartj)er»oiu'»<r SI2Eb14 valu«» ^reQuestC'starc_p«r*on.1d^)%> > 



<lNPUr TVPCe''Mdden*' names" spouse" SZZEsl values'<4lBrequestC*'5pouse")x>"> 
<ZNPUT TVP6«'*Mdd6n" NAMEp^partnt" SXZM valu^*<<XBriqu«Btraarcnt">X>"> 

4NPUr TVPE«"M(ldan" NAMEs'VnarHaQe*' S12E»1 v&lue«*^rtquest<''ffiarr1age'')X>-'> 

<8R> 
<X 

'create f««.rtqu«sc 
Din fe<urcqti«st. rev^i I 

rev^l 1 s rcqu e 1 1( " pev^l 1 *•> 
f ccrw^ua B^-0000000000- 
1f peque»t<"revjiiethod")-"CW then 
for xm2 to rev^ll 

fe«_r»que»tBleft(fee_requ««t,x-l}&"l"4n[ght(feft.r«quett,10-x) 
n«xt 
«U« 

if requestr»cl02")-'V th«n 

f ee.request-1 ef tCf ee^request, l)4''l"4r1 ght(f e cheques t , 10-2) 
«nd if 

If r«qu«»tC-»el03")«'V then 

f te^rtqueatBleftCf«e«request , 2)«f''a-*rtghtCf ee^request , 10-3) 
end if 

If rcque»trsel04">«i"v" than 

f ««.requ«sts1 tftCf««.request , 3)4"l"ftri ghtCf ee-request , 10>4) 
end If 

if requeatC«el05")«"Y" then 

fsiurcquestHleft<faa.r«quast.4)4"l"&rightCfe««,requast,10-S) 
end If 

<f raquaft(-*el(K")«"V" then 

f ee.reques^1 ef tCf ■a.raquaat, $)ft''l**4iH ghtCf«a.raquesi:, 
end If 
end if 

'Response .Write *'fee^equesta''4fee.request 



Sec cnsearch « Server. CreateObjectCAOOOS.Conncctlon") 
cnSearch.Open "dbl" 

If rmtuestCfocus")*! then 

CHlcnEKSOiOD-RCQuesT(''start_par«on.id"} 

DispUyNime CHK_PERSO«LID, 
CND IF 

fSTx^Wt) sessiM)(**spouselcnt"> 

STWMlIGHr C"0000"fiX , 2) 

'Response .Write STRX 

• chknane*"chk"totrx 

IF REQUESTCsaiC'&STIUOBl THEM 

CH)ePERS0H.JDeRCQueST("SIO"&ffnU) 

DisplayNune CHK_PERSON_JO, "S" 

'Response .write "chk^&strx 

'ResponM.WHte REQUESTC'chk^Astnc) 
* Response.wri te requestC'gricL1d"AstnO 
*Response.%rrite STARr_PERSONJCD 
•EXIT FOR 
CMD IF 



FOR X»l TO s««sion("PAREIIT.j«t") 

STRXcRICKTCOOOtf 'AX. 2) 

'Response.wri te STRX 

' chkna»e-''chk''&strx 

IF ReQUESTC''PCHK"4STRX)»l THEN 

CHK.PERSOK.IIMtEQUESTC'' PID"4$TRX) 

DlspUyNMe <MKJ>eRSO»iUO» **P" 
EMO IF 
NEXT 

FOR x-1 TO sei»1ooC"chnd.cntr> 

snuMuarrC^oooc&x. 2) 

'Response .write strx 

* chknanes**chlc"Astrx 

IF ftEqME$TC'*OCHK''«CTR)0-*t THEN 

aaCPERsa»ciOBReQU£STC*aD''«TR)0 
OlsptayName CHK^ERSOICZD, "C 
END IF 

<SR>«ag f in m . i 

KlMPin- TYPE-- submit" VBlue»-t00P to display more NWIES** fd-subBnc2 nvne»»ubmit2> 
<^PORNt> 

-cKENO 1f ' end of main program 



'If pequest<"se1j<AME")-"ALL*' 



•if requestrscUWME"5a"SOI1E" 
'2. Basic Data 3. dees 4.Text S.dte image C. Photo. 

sub PitplayMm <NaRte.id« relationship) 

Dim research rsSaarchF, rsSearchM 

Dim StrSQLp StrSQLlF, StrSQLlM. SQLfies 

am person_sex, marrjius^» iiarr_iiir1fe^ 
m rsvarr. StrSQLM 
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oiia StrSQLText, rtJext, llnejwld 
Oin StrSqLIi>uifi«» ri&naat 
Oin ScrSQtPteto, rsPtvto, feOeveU 
Dim 1TIL.T, T 

ree.lev«ls»'*OlOOOOOQOO" *ft1i*ay» charge here for Wv«1 2 (of 10). level 1 mi charged In ppn dbsrc041 
' ether chArget art added bcloM. if rtqutstad and data Is available 
Set rsSeerch « Server.Creat»Ob]«ctC"AOOO».IUcordMt") 

StrSQLps-SCLECT • 
"from peraorut 

"where p«rson.1d - *" &n«n«.1d 

nSearch.open strSQLpi cnSearch 
persorusex - i iSflarchrpersofusex") 

Father of Starting Pcrton <fiR> 
'If r«que«t('*r«v_iiTl'*>>l then 
if relarlonahlp-V than 
Response. Wr1t« C " 

If r«1«tSoosh1p-"S" than 

Response .write <"<ait> Spouaa Nana ") 

•nd If 

If re1at1on5h1p-"P" then 

Response. write (-<8R> P arent Name " ) 

if relationships^C then .c hild N ") 

and if 

Response .write ("<SR>NBmet Last") 

response.wHte ("<INPlfT cype»t«xt values"*" '"ftrs^earchCperson-l name '*)4"*"*''4nb5p; "4" siie-lS >") 
Reaponae.Vrite rFlrst") 

response.wrlte c"<input type>taiit value«"*"'"ar8S«areh("p€rson_fni«e")A***"4"4nb«p;"A" size«lS >") 
Response.wri te ("Middle") 

response.wrlte ("-CNPUT type^text va1ueB**A''"'ftrsSearch("personjiinanie'' li' ^VAnbsprft" s1zc«lS >") 
Response.wrlte ("Third Given") 

risponsa. write ("^INPUT type«taxt valueB'**"'*'&rsSearchC*par3on_}Attne'')4 A^ "^ aiza«l$ id-textl name«textl>**) 
Response .write ("Titla") 

response .wrice ("•aNPUT type^ext va1uea*'&"*''&rsScarch('*person_t1tlc'')ft"*"4"linbsp;"4'' sizo^lS idi^axtl n«nestextl>") 
Raaponsa»wrica (*'4R>Sex''j 

response.wrlte ("•^NPUT type-text va1ua«*'4rs5earchC''persDn_sex")4"Anbsp;*'4'' sUcel 
Racponie.Wrica ("Ragiatryf") 

response .write ("<ZNPUT type«text velua-i'*t''*'*ArsSe«rcl)("person_id")£ &*'4nbsp;"A'' s1zeeI4 >") 
Response.wHte r'<BR>Blrth: Year") 

response.wrlte t"<INPllT type«text value-^trssaarchCbi rth_y«*r")4("irkbip;"&'* sizt^>") 
Response .Write ritonth") 

response .write r'<IMPUT type>te)ct value»-4rsSearchC'*birth_m>nth">*-4nt>sp:"*'' s1zes2>'') 
Response.wrlte ("Day") 

response.wrlte c"<INPVT type*text va1ues''4rsSearchC*'birthjday*')4'anbap;**&" size»2>") 
Response.wrlte ("Accuracy ) 

response.wrlte ("<iHPaT type«text va1ues'*4rsSearchC''birth_yr_aecur")4''4nbspt"&'* size-4>"> 
Response.wrlte rcCDCOM date") 

response.wHte r<IHPUT torp«»text valuea''lirsSearehC'*birttvJ5E0Ldate'')&''4nbsp:"«r size«)0 Idatfxd name«texcl>") 
Response.wrlte ( Year vaHance ) 

response.wHte C<IMPUT typeatext value«''4rsSearch(''b1rth_yr_var")«"&nt>sp;"&" s1ze=3 Sd^textl n«nieBtextl>*') 



Response.wHte 
response .wH te 
Response.wHte 
response.wHte 
Response.wrlte 
response.wHte 
Response.wHte 
response.wHte 



<BR>Place: Country (or level 1>") 

<INPUT typestext value*"*"' "irssearchCblrth-COuniry")* tru\bip,"b' size3»30>") 

State (or level 2)'*^ 

<ZNPUT typi 

<SR>Place: 
. ^INPI/r tyi 
-City (or ' , 

'''<INPUT type«taxc value«"«r'"*rssearch(-b1rtlucity"}&'*'"«"anbspj"*' size-30 >") 



^typestext value*"*"' "irssearchCblrth-COuniry")* &"««Ybsp;"*" size3»30>": 
(or level 2)'*) 

typestext valuea"ft''"**rssearch(*'birtK_state">*-"'*'**nbsp:"*** sixe«30>") 
ace: Cointy Cor level 3)") 

; type-cexc value«*'**^'"*rBSeareh(*'birdLjcounty")*''*''&**nbsp;"A" size»30 >"* 
or level 4)') 



Response.wHte C"<BR>Latiuide") 

response.wHte C"<1NPUT typestext value»"4rssearch("b1rth_lat")*"4nbsp;"4'* s1ze"lO>*') 
Response.wHte ("Longitude**) 

response.wHte r<lNPt/T typestext value«*'*rsSearch("birth.,long")&''4nbsp:"*" size-10 >") 
Response.wrlte ("Accuracy*) v ^ r / 

response.wHte ("kInput tvpe-text v«lua»*'*rsSeerchC''b1rth.^.aeeur")t"*nbsp:*'*' size«l>'*) 

'i I c h ristening below 

Response.wHte (''<SR>chr-lstening: Year") 

response. write ("<iNPor type-text valu»»"<rr8Search("chHs.yeir'')&'4mbsp; "A" s1zes4 idstextl neineotextl> ") 



Response.wHte ("Plonth") 
response.wHte ("<IHP0T r 



- type-text value*" 4rsSearchC"chH» jnonth")*"&nbsp »1zcb2 idatextl nameatexCU") 

Response.wHte ("Day") 

response .wHte C'*<IKPirr typestext valoa="*r»5earchC"chHs.d«y")*" "A" size-2 id-textl nanie«textl>') 

Response.wHte ("Accuracy ) 

response.wHte ("<IWPVT type-text value- "*niSearchC''chrfs^r.^ccur">*" "*" sizeal i(^textl nMestextly") 

Response.wHte ("GEDCOH date") 

response.wHte C<IHWT type-text valuee**rsSearchC"chHa_GEftjdate")&"ftnbsp:''*" s1ze«30 Id-ccxa nane-textl^*) 

Response.wrlte ("Year variance") 

response.wHte C-CHPinr typestext valueB"4rsSearchC*chHs_yr.vBr")&"«ob»p;"4" i1ze-3 id-textl name-text 1>") 

Response. wH ce 
response .wH te 
Response .WH te 
response .wH te 
Response.wHte 
response .wH te 
Response .wH te 
response .wHCe 

Response.wHte r'<SR>Lat1tude") 

response.wHte r<rMPyT type»text valueB"&r$Search("chH5_lat")ft"«nb$p;"«" size-10 1d«textl niin^extl>"> 
Response.wHte ("Lonsitgde'') 

response.wrlte ("<IHPVT tvoestext va1ue-"*rsSearchC'chHs_1ong')C"*nDsp;"*'' slze-lO id-textl narneKtextU") 
Rai^onse.wHte ( Accuracy ) 

response .wHce ("<IHPVT type-text value-''*rsSearchC'*chHs..«eo.accur")*'' "*" slzesl 1d«textl nine«cextl>") 



'<6R>Place: Country (or level 1)") 

;<lRPi;r typeatext value-"4*''"trsse8rch("chrls_country";*-'''&'*dnbsp;"«" sizeaJO id-textl naine.textl>") 
'State Cor level 2)") ' 
,;;<rKPUT type-text value-"*"'"trsSearchC"chrU_»tatt-)A"*-4"«nbsp;"*^ alze.30 id-textl name-textly") 
"<&R>Placc: county (or level J)") 

;'<Xm'lST type-taxt value-"*- •"*rsSearchC'chr1$jcounty )&"'-*"anbsp;"4" s1re-30 Id-textl nwe-textl>") 



typeetext V*1ue«"*^'"*rsSearchCchris.city-)*-' '»-anbsp!"«" ai«-50 id-textt n«iie-textJ>'') 



-ecdeath below 



Response.wHte ("^R>Oeath; Year") 

response.wrlte ("<INPUT typestext values"*rsSearchC"deeth^ear")*"«nbsp;''*" size-4 >") 

Response.wHte ("Month") 

response.wHte r<XMPgT type-text value-"»rsSearchrdeathjnonth"5»''*nbspr*" ciie-2 >") 

Response.wHte ("Day") 

reaponsa.wri to ("xlliPur typestext values-*rsSearchCdeatti.day*')*''*nbsp:"ft" size-2 >") 
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Ci\p>Unt\M0Ai1 et\i»PUB04;.ASP 



iUsponic .write 
re sponie .write 
Response .write 
response .write 
Response .«tfrit« 
response .write 

Response.Wri t* 
response .write 
Riiponse .Write 
response.wH te 
Response .write 
respons* .wri te 
Response .Write 
response .write 

Response .write 
response .write 
Response .write 
response .wH te 
Response. write 
response .write 





'"Accuricy**) 

'"kINPUT typestext value="arr$searchCdeattuyr_accur")4'' *'*" s1resl>''> 
GEDOON dete") 

["OKIVT t^pe=l»t v*lue3'&rsSearchC"death_CE0_date")4"««b«p5"A" s1iea30 idatextl n«ne^e){tl>") 
["<lNPtfT type>text v«lu«»"*r»5e4rchCds»th«yr.var')6''Anbsp;"&" sizes} 1d=tejftl n«iiie*texcl>''> 



country (or level 13"] 
'"<lNpirr"typeit«xt'va?u«='"*' ' "ArsSearch("death.statc")«"'**&"&nbsp siie*30 >•) 



'"*rsSeareh<"death_country'*)4'""'4"inb$p;"*" $1zes30 >") 



.<BR>PUeei , 

, '<INPin' type=text value*'**"' 
-State (or level 2)-) 
"xlNPUT type«taxc vali* 

<BR>PlaceJ county (or levtl 3)"> ^ , ^ «... ... 

IgNPUr ty^est«t^value«"4*'''*r$$earch<-deeth.county''D« Anbsps"*" s1zt«30 >") 

'<XiSwir*typStext value»"*"'"*rsSearch<"deathjcity-)*"'"*"Anbspj"*" slzesSO >") 
;"-<SR>Lat1tude") 

[''KlNPUr typeatMt va1uft>"*rs5e«rch("deatK-1at'')*''Anbspt"t" s1ze«10>*') 
7* Longitude > 

"•cINPtn type«text va1uas"*rsSeardi(*'death_1ong")&"*nbsp:"&'' s1ze«10>*) 
["Accuracy" 

[•*<I«PUT type-text v»lu«3"ftrsseBrch("deattujeo^ccur")4"«nb$p;"4" s1ze«l>") 




:bur1a1 below 
:''<«>flur1*ls veer") 

"clllPUr type«text value-"*rsSearchC"bunaUy«*r")&*'&objp:"&" si£e«4 >") 
"Month") 

"<riipur typotext v«lut-"*rfSe«rchC'bur1aljnonth")4r" '*&'' si£c«2 >") 

"Day") 

••<INPilT tYpe»t«xt v«lMew"ftriSe«rchC"burleljday")**ant>»p;"«" size«3 >") 

•"Accurmcy ) 

"<IHPUT type-text value-"4rsSearchC*burial^r^ccur")<"Anbsp:"A" s1ze-l >") 

GEXOM date") 

"<INPVr typeotext v/alue«"*rsSearchC''bur1al.GED_dace'*;&'' "<r s1ze-30 Id^textl nainestBxCl>"} 
"Year variance") 

''<IMPUT typfe=text va1ue="4rs5earchC"burial^r.vAr")*'*fipnbspi"4" aize«3 id-textl nane-taxtl>") 
<BR>Pl«cei country (or level 1)") 

<IMPUT typestext value-" A" '***rsSearch< "burial .country" )4"'"4"«nbspr*" alie»30 >") 
st&te (or leval 2)") 

<INPUT typestext vaiuc»"4"*"4rsSearch("buH»l_stit«">t""'4"*nh*p'"a" slzevSO >") 
'<SR>Place: County (or level 3)") 

,'<1MPUT cype-«ext va1uo-*'4""'4rssearch("buris1.councy")«'*""&"4nb$p;"4r'' s1ze«30 >") 
"City (or level 4)") 

'^NPUT typca^eit v&1ues"4""-*rssearch("bur1at.cicy")*"'"4" *4" size«30 >") 



•*<BR>uti cude") 

"<ZNRUT typcstext vBlue>"4rs5earch('buna1.1it")&"4nbsp;"4" sizeslO >") 
"tangitude**) 

"<INPUT cyee>itext.va1ue-"&rascarch(''burial.long")4''«nbsp:"*" s1ze-10 >") 
"Accuracy ) 

!''<ZNPUT type-text vmlue«"4riSearchCbur1&1.geo^ccur")&"4nbsp;"ft'' s1ze-l >") 



"4"inb$p;'*«" sizeseo >") 



. ^ .write <"<aRx8R>rdentifi cation or Data quality Notes") 

Response .wnte r"<BR>Notel:'') 

response .write (•<xiiPOT typotxxt valueB"*"' "&rssearchC"person_notel")4" 
If rssearch("per$on_note2''>o"" then 
Response.wri te r<eR>4toCe2:'') 
response .write ("<1NPVT typ«=text value3"4""'&rsSearch("per5on^ot<2-)«.**''&"&nl)sp;"4" sizeaSO >") 
end If 

if rssearchC"P«r$onjx)te3")o"" then 



"A^Anbsp;"*" sIZCsSO >") 



Response .wKta r<BR>Mote3:') 

response.wri te ("<INPVT type-text value*"4'""4rs5eard>("person.note3'')£" 
end if 

If rsSearch("person_not-4">^**" Aen 
Response. write ("<BR>Mote4:") 

response .write C"<lNPUr typestext values"*" '"4rssearch("pers(Hi^ce4'')4'" "^''^f^sp;"*" size-ao >") 
end if 



"rf reatte8t("rev.«ll' 
If m1dCfee_request, 



.•ll")>2 1 



Response .write C^T^^^'lj^'^'* source dtatlons") 



Response.wri te ("<BR>«ote$:", 
response .write C<inP\n' typestext veluea'A" 
if rsSearchC"persoojx>te6")o"" then 
Response. write C<81^Note6:") 
response. write ("<1KP(JT typesctext values"*"' 

then 

<INPUT typestext value-"*" 



end If 

if rsSearch (" per ton-no te7")o" 
Response .write (•<aR>Note7:") 
response .wri te C" ^ ' 

If nsearch(*p«r$on-notea")-o"" then 
Response .write r<fiR>Notea:") 
response .write ("<3NPUT type*text value-"*" 
end 1f 



■Ar6S«arehC"pers«njiot«S")A' *"*"<fibsp;"*" s1ceaS0>") 
''4rsS«ftrch("person_not«6')*"*"**'*nbsp;'*4" slzecSO 1d=t«xtl name-textl>") 

''*rssearchC-"person^ote7")4""4^'anbspi"4" s1ze-60 Id-textl naiiie-textl>") 

"&rsSearch("person^te8'')ft"""*'4nbsp;"»" s1xe-<0 1cM:extX nanestextl^") 



If rsseareh(''person_noteS")o' 
or rss«archrperson-rwr 
feajevels - leftCret 
end If 
end If 

rsSeardi. Close 
'"'■stArt nierrieae> 
If relationship*^ and request ('Wrrl a 



or rtScarehf*parsenj>ote6")o 
ite7">o"" or rsScsrehC"person_notet")o 
.levels. 2)4"l"*ri0ht(r^1evols ,10-3) 



" then 

'fee level 3 



") - "Y" than '"laarnage-Y means OK to pay for 
Triage event dataans9w-««s»s") 



Stt rsMarr - Scrver.CreateofaJ«ctC"ADOO». Recordset") 

If perserusex ■ "P" ^en 
marrJwLiW ■ start_personL.1d 
inaprjw1fe_no • naneLJd 
else 

marrjiuajw « naiae_1d 
marr^fiLno - stertu.person.1d 
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strsQUte-seLEcr ♦ 

•SAert awrrJ\uaLjw - •* tearrjttiajw 
" ud muTjfrt 1*^0 - * ■ «narrjrlft_no *" *" 

rsNArr.qpen strSQlX, cnSe»rch 

If rsMarr.«of or riMmrr.boF thtn 
Response. write •<8R>lilo narHag« record found" 
' Marrt ageUpdatedB'*N'* 
e1 9« 

Response. write '*<BR>Harr1age record found" 
• Marri ageUpdated*** V" 
Reiponse.wri c« — 
response.wri te 
Recponte. write 
response, write 
Retponsa .Write 
response.wri cc 
Response.wri te , , 

response.wri te (■<lMPtrr type-Mxt nani«*n4rr_yr_»ccgr vt^^u^*'4^rsu^rr^n*rrJ^rJkC<ur'")V'tM^7;*'t0'' slze^") 



".«R>M»rH«gBj Year") 

IjgJjgJI^typeatext n«ne«inarrjr«ar va1ue»-*rsMarr("marr.year">s-Mf32;"*'* s1ze»(>-3 

"Sy"!r n«nB«iarr«TOnth values'trsKUrrCau r r_f<ionch" 2 i1zee2>'') 

,J<rNPUT tw*-t«ct n«ne-fflarr.d«y valM«-"*r»Marr("ji)8rr_day")«-M32:"4" ilKe-2>"3 
, Accuracy j 



Response.wri te C''<8R>Place: Country (or level U") 

response .write ^"-''"oirT- — — 

Response .Write 
response .«rr1 te 
Response.wri te 
response.wri te 
Responso.wri ta 
response, write 



'S>Ma«?'st;S <S't?JJMJ^*'^ va1ua."lr-'-«rsH*rrC"marr_country )A-"*"&f32j"r s1«-30>") 

"^SpIaS!?*;f?}^cSi^STtr4rr^ valuc=-4- ■'4rsMarrC-marr_cotinty )4""*-4#32r*" s1ze.J0 >"> 
<lNinrr typc=text nmieanarr.ci ty valuea"«i""*&r»Marr("inarr^c1ty")4*"-4"4«32 $1ze=aO >") 
Response. Write (■''<fiR>Lat1tud«") 

KiKSS'.IrtS f-SSuu^Pr"**'' n«ne-»arr.1at value-"*rsHarrr««rr.Ut-)«-Wf32 -4- sUe=6 >") 
mtpS!!M.w!^U ?-2SlSc?r''^'**' name^arr.lonfl value--&rsMarr("mArOong")&*'4#32:"&- ,Hte=6 >-) 
JJJjJSSiSnS {"^5Sl!It2:-f "«««»rr.9eo_accur uilu««-*rsMarr('marr_g.o^ccur")&"Atf32 f-*** .<z««l>"> 
response.wHte r<iWPUT type«text nanieaniarrjK>teJ vsliie=-«"'"«rsftisirrC-Biarr_nocer)*r"-4-4#32;-4- s1ze«80 >") 
end If 'record found? 
rsMarr.Close 

end If 'end of oarHage 



and marriage 
•if reau«st<'rev.»ir')>3 then 
If in1d<fee_request,4,X}='*l'' then 

•<aR>P«rson's description text appears hare SHOW T6Xr<BR> 
Set rsTexc ■ Server.CrcateobjcctCADOOS. Recordset") 

Str$QtT«xt-" SELECT ♦ 

r/f«» Texc_t -t, . 

*ii»h«re person^ld a Aname^ld ti*" 

rsTaxt.opsn strSQLText, cnsearch 

If rsText.eof or reText.bef than 
Rajjonse. write *<BRx8K>md Text record found- 
Response. wHta ;i<BRxBR>Text record found" 

SKSl^to j5^*^^*^*^^«^^«'3^'l''«rtohtCfee»levels.lO-4) 'fee level 4 

STR_T««1<SKT<-0000"4T, 2) 

11 ne^l dart rlmfrstaxt f&s t r_t) ) 

If MnejKjTd o*" and Tinejwid o 4tHno<«>," "> then 

resp|nse.wnte C'<BR>-*sw_tft"<iNPUT typa-text value- • 411ne_hold 4-&«2;- *" size^>-) 
next 

END IF 

rsTaxt. close 
end 1f9& 

> 

<X 

''eguestC-rev.alT')>^ then 
If ra1d<fee_request,$,l)-"X" then 
<Bt>Phpto shown here SHOW PHOTO 
Sat rsPhoto a server. CreateObjeceCADOOe.Reeordset*} 

StrSOLPhotto--SELECT « 

"froB Photout "iu 

-»»h«re personal d = "* dmomOd 

rsPhoto.Opan atrSQLPhoto. cnSearch 

if rsPhoto.eof or rsPhoto.bof then 
R«J«n»e.Wr1te "<BR><aR>No photo record found" 

Response. wHte "<BRxaR>Photo record found<SR>- 
Reiponsa .Write ''PPP"*TRIMrRSPHOTO<"PHOTO L0CA710N'*')'«f'*PPP" 



<l -IMS WIOTH.150 HEIGKTalM SRO"\ZHACeSVlOllATHMl «IP"> 
j5UTRIMCrsphotorphoto.loeat1<in"))*> vonathmi.cif > 
•<I"IIIS WlimfeS9S KEICKTe^/O Sl«:^*'APEXV2.Jpg- — > 



EHO IF 

rsPhoto. close 
end IfRb' 



TOua»t<-ray_air)>S t 
tf iBid?faa_reqtteit,6,l>"l 
'<Bl>citation Dnaoe shown I 



then 

^ . . . , "I- then 
rfon Dnage shown here SHOW IMAGE 
set rsxiaage - ftervar,Cra«teObJect("ii|)008 .Recordset") 

str$QLimage>-sELEcr • "ft. 
from Zmag^^t 
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c : \oat€ntVModul esVoa PUbOA S . ASP 



"wher« person-Id « •** *nane.1d & 

rsXmage.Open strSQLlMAfiE, cnsearch 

if rsXmaoe.cof or rsXmage.bof then 
Response.wri te '*<br><br>mo imege record found 

Response. write *'<BR><6R>»IiTiagc record foui>d<br>" 

._ M^.ti ...... ^^j, 

Jccation-*)) 

_ _ 6 

END IF " ' 
rsXmaoe. close 
end iTiafi> 
<l 

<l« 

*CheckandCharge nanie.1d, sessionC'buyer.id"), fee«1eve1s * request C'rcv^aU") 
End SubX> 

<X 'THIS IS FOR SILLZINESS 



<! — flNCLUDE \aRTUAul**CX)MMON/CHARGE02 .INC" — > 
<P> </P> 

<p><a hrefo"nienuidxl.asp">Retum to Publisher Main Menu </a></p> 

<p><a href «"welcorae2-asp">Rfl turn to Main Menu </a></p> 

<p><a hrefa'*.,/Welcome3.htin">Rcturn to welcome Page^ax/p> 

</BODY> 
</HTML> 
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c:\Pittnt\wadu1 ctVpssncolS .asp 



<M ungwge-VBScHpt X> 

<aK}ption Explicit %> 

<SteMponft« .Ruffe t^true_X> 

<J— iHnclude >rlrtu«l»"cofmion/adovb«.ine' — > 

<HTML> 

<HEAO> 

«CTA NAME'^GCNeiUTOR'* Con tent«**Mlcro soft Visual %tu6io (.0'*> 

^m.&AIICESTOR PCDICRCK SUMMRV - Start SMrch<AnLE> 
<H3>ANCCSTnt PCOtClttt SVMMHY • Start Search (Free)</K3>- 

</HCAO> 

•<MR> 

progriffl 1«ts « vimrar choose and pay for nanus. 

•The Hrst rime this page Is retrlavad. and any time It U 
•suMtted without being compUtely fiVtd out, the form 
'It displayed. If It Is submitted and CMnp'letely filled out, 
*tha fori! is processed In the Else clause. 
Dim ate rt.j>erson.1 name, starc^ersoiufnane, start^ersonjsname 
Dim start_p«rMiU»year, startLpersoiuid 



'LOGON CHECK 



Mf sess1onC'*buycrJloggedj»n'*)^"biiyer logged en" THEN 
'respons«.red1r«ctC1O0BYOl 'see P* 33^ PfV9 gMide 
'end if 



'If RequestCstart-persofulnaaie")*'"' or Request(*'start_per$oa_fnanie")="* _ 

or requestCstart«per»on.byear")-"" and requestCitart^pertoOd'"!-"" then 

If liequest<"atartjsersor\_lname")-"" AMD requestC"$cart4>«r$0fuid")c" THEM 

Biter the last nme. and then add one or more of the fbl lotting fields - first 
najne', middle name, birth veer - as extra criteria to describe the person vvhere 



najne', onddle name, birth year - as extra criteria to describe the person vvhere 

you would like to start cne Ancestor pedioree sumery search. <>--(Note: Only the last nama Is used for testing.)- 
'tSR>Qr, if you already have the person's Genealogy Registry 



XO, please use it to go direct and save tine 

<SR>Search way be 

limited to namas in a racent cine range, such as those born In this century. The 

pedigree -foil owing process is used after that. •<p> 

<FOitM METMOOspost ACTXON-''dbsrcOU.a$p*' IdefonnZ nanesfonn2> 

Starting/Focus Person :-<br> 



Last 

<INPVr NAHE-^starc^ersorulname" SIZEal4 > First 
<INPVT HAI«=*stArt4)erson_fname" SIZE-14 > Middle 
<INPIJT NAM£="st4rt_person_mname** 53ZEb14 xp> 
Birth Year 

<MPV1 NAHE«~start.j3ersotiJ>year" SIZEM xp> 

Person's Registry ZD 

<IMPVT NAMEa'Start^rsoiuld" SIZE«14 > 

<p> 

<INPUT TYPE^^submit" valut-'Start Search" id-sUbnitl nMM-subai1tl> 

</FOMt> 
'dl(else%> 

<x 

'Pin strSQLTcrnp, table^ame, owner.id 

' create tetnporary table for cookie processing 

Dim cnSearch* rsseereh 
Dim nistart^erson.1d, x 
trim strSQLp 

Dim firstrec, lastrec, strx, 11n«.ent 
Dim strSQLflelds, nax^allowed 

set cnScarch ■ Server.CreateOfajectCAOOOS .Connection") 
cnSearch.Open "dbl" 

sat ressanch - Servar.CreateObjectCAOOOe. Record set") 

*nstart4iersor\-.1d « rlBht<ttr1ng(8,"0")&reque»t<-start_person«id").12) 

'from the opening screen 

'Response .write mstart_person.1d 

"irtiere person.1nanie >• loistarcjiersoruld *"•*' 

•construct SQL for multiple search criteria 
If requeft("start_per»onl1d")o— * then 

StrSOLp-^SELECT personuid, personJnanie, person_fnajne« "t. 
"personjmamet 

"birth_year, blrthjnonth, blrch^y. blrducountry, "4- 
"Mrth„state, b1rth..mnty, birth-City "ft. 
"from persorut "A. 

"where persoruld a ftrequestCstart-persofuld") ft**'" ^ 

*' OROER ftV PERSON.LIMME, peraoa.f name , personjnname. birch.year" 

else 

strsoLfieldsc" birtm_year > 'ISOO* and '* 
if requestCstart-person^lname">o"" then 

StrSQLfieldsBStrSQLfieTds *" person^lnaae • *• ftrequestCttartjperson.lname'') **** "* 
end if 

if r«quest<"startj)erson_fnan)e'')o'*" then 

strSQLflelds-StrSQLfields 4" and person.fname = AtH«j(requeitC start_person^fnwnB-)) ft"' 
end If 

if requestC"atartj)eraofvenemo'')o'**' then 

strSQLf1eldt»StrSQLf1«ids 9r and persoiijnnanie » *" ftrequest("start_persoAj»ittne'0 ft*" " 
end If 



If requestCsUrtLpersonJ^year'jo"" then 
BtriQLflelds*strSQLflelds ft"* and births 



rth_yaar ■ '" ftrequestCstariLpersonJbyeer^} " 
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c;\o»tent\Ho<lu1e»\oe3R001B .»sp 

■nd If 

scrsqLp«*'SELECT personal persorulfume. pertcivJWaf 
persofuwiame , "t. 

"birth.yMr, blrth-pionth, birthjday, Mrth_j:ountfy, "lu 
*b1rth_state, birdLcounty. b1rth_city 
"fro* pftrson.. •4. 

" ORDER BY PCKSOKJUIAME, per»OfV.fh«n«, pen Ofumame , rtJuyear" 
«ftd If * and of S<)L crmztm Uflic 

• "where persorulname - frrequestCstart-Person^lnsme") A"*"*^ 

•"where persorulrwM *r«questC«tart^er»on.1naffl«") 4""' 4^ 

"* and persofufnMM -> *" Srrtquestrst&rt^flrson.fnaAS") i"** A. 
• and persQiunnaine o> ftrequest(">t«rCpersofuiraac"5 4. 
and blrttuyear m 4reQuestC"st«rtj«rionJ»y«ftr'*) 

'Relational C-*. >. - from fISOII f- OPERATOR. OOHPARTISOH OPERATORS 



Veiponse .write requestC'start^rsorulMme") 
'Response .write strSQLp 

If research. state = «dStat«open then research. clo»e 
rsSearch.Gpen strsqi^, cnSearch, adopendynanic, adlockopdml sti c 

'rssearch.Open »trSQtpi cnSearch 



'use input screen like dbsrchlO 
•do search 
%> 



<FOR« METHOO-post ACTiON«*'db5rc020 .asp" Id^fefMl nMe«fonnl> 

select e starring focu« person from ^ following liat by checking « snngle 

<8R>The person's relatives will be counted and the 

resulting cowits erill be shown to you on the next screen (free). 



•if research. eof - skip 

do^whlle not rcSetrch.EOF and x < RMx^llomd '<2( 

» trXe ri g h t COOOCAx , 4> 

response .write C<brxiHlVT cypexheckbox na#neschk"&strx ft" VALiiE=l>n 

'if x-l then first racarssearch.boobnark 

loop 

* ftAsponte.wri te X-1 

re»pon»e^wHte^<INPUT^ type-hidden n»ine-l>rt«.cnt veluee" 4oi tT »ixe»4>-) 
end*S****'**"^** ''<h3>At Least "fix 4" Names were found meeting your teria</h3>- 
If )oO then 

«n5*i?*""'*"^'* -<h3>-toC*" NjRwfi Mre found meetina your cri t«ma</h3>" 
If x-0 then 

end'S"""'^'^** flweting your cr1terta</h3>- 

' 1 astrecarssearch . bookmark 

subnii buttons that go forward or back 
<l — 6Ri cBR— > 

SforL^^^"***^*" *'»'«'«"»«« ^^CCSTOR counts- 1d«submic2 narae-sul5«^t2> 
•dCend ifk> 



I?^ *S* JJ^f^^f nwjber <afe»essiooC"egunter")X» 
out of <UApp11CRt1onC"counter-)X>. 

<p><a href="we1come2,esp*'>Retum to 
Main Menu</a>s/P<> 

^^^S^X^^f^ " "~ v.x».*«t.p=, /p. 

</BOCV> 
</HWL> 
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<X0pt1on Explicit K> . ^ ^ * . 

«ieu rUME«*'GENEMTOR'' Contmti^Klcraiofc Visual studio C.0"> 
<tUi«»EAKCH rfBt&ta. AM) «M«Mun</cic1*»> 

<dt)>SEAKCH PEOXGREE AND SIM(AiaZEVhI> 

*2/25/S9 

'2/2S/99 use this vftrslon to creat* r«port 

'after revision of the SOL Co use lijci and several other logic chdngvk. 
•Th1» pro0r» sesrches all 11n«« bade to their beolnnings 
'and colWtc tha panon nunbars alono tha %ay. It can b* used 
'for miltlpla purposes 

' craata saparate screen to get tha starting nunber. 

"Tlie fint time this page la retrlevad, and any time It 1< 
'subnrltted without being conplately filled cut, th« fom 
'la dicplayad. If it Is subnitted and cosvletaly filled out, 
I tha form Is procassad In tha ilsa clause. 

'If »aQuast(."st«rtj>erso»L.1d">«— * theft 

<l— Enter tha nunber of the person where you woUld Ilka to start the pedigree sea.rch.<p»McFo»< KerHOO-cOST AcriOM*'*dbsrch02.asp" 1d*:fenal 
nme-for»l>$tart ParsofKENPUT TVPE-'TEXT lUME>"start-persoa-id'' SlZE«14>0wner ICKXNPUT TYP&"TEXr" NAMEp''omar_1d" Sl2E»lxpxlMW 
TYPEB^sufanrit" val ue-'Stftrt Search" 1d*subn1tl nanMasuWtl>57F0U4»»> 

<X'elseX> 

<9( 

(rim ttrn, start^araotuld 
Dim Kltcount 

'S«t KitCount m server.creaxKObjectC1«WC.Pagtoountar") 
• Hiccount.paQahlt 

FOR X=l TO PMuestrilncLcnt") '25 

5TIWi*ICWTr0O0O"&X.4) 

'Raapensa.wHta STRX 

* chlcnanie»"chk"«strx 

IF R£Q0EST<"CHr«6TRX)«l THCH 

START.PERSOH-XIWIBIUESTCGRICUO-ASTWO 
* Response. vrTta "^VtiXn 



'Response.Vrlte REdUESTf-cKk-Aatrx) 
'Response.Wflte requestCgrld.ld^ast 
*ft««pons«. Write SrART_PEX$OK-ID 



COT FOR 
EMO If 
NEXT 

'Raspense .Write requa&tCUnccnt") 
'Rasponca.vfrlta ''start^arsfli^id"AstarC^rsofUld 

Starting Parson^ 
Nsaa: Last 

<1nput TYPt-'Wr" »uuiE«"start«lnaaiB" SXZE;*'10** vi1ua*~4UraquestC-'gnd.1naine'-A5TRX}3^''> 
Pi rit 

<1nput TYPEv'TEXr MAM£«**star^fh«AM'' SUE-'IO^ valweB*'a^^equestC"9nd_fnwiia''MT»0)l>-''> 
Middle 

<1nput TYPf^"tCXr NAME<>**atartjnnaM* SZ2S*'10r va1uas''^request("ono.iiinanie"&5TWOX>''> 

<l"flR— > 
airth: Year 

<1nput TYPC-''*txr' •U»«Ea"ftinLj>1rth_yaar" SlZta'A" value-' OCereque&tr9'-iOyear''&STft)01^": 
Registry* 

<input TYPEs''TEXr' IUMe>''sUrtL^arson_1d" SIZEb'*14'' value«''<3Urcqucst(*'grid.1d'*«5Tlu09fi>''> 

otn strfQLTaiiip^ table-nsnw, o«ifMi*.1d 

* create temporary tula for processing 

* tab! a_name>"trtee''6r1 OhtCstrlng (« , -0")&re(;ue i tCowne d") . 8) 

* tab1«_nMia*'*traca"4ilart(re4uestC**sta rt_p«rsoa.i d") . 10) 

* tabi •ufime-'* treca"41 af t(atart_pa raon_1 a, 10) 

t»b1 e.jMinea'' trfr1 •rt(start_fcr9on_1d . 14)larid(r1 ghtCtime, S) , 1 1 2) 

'for work rafale name, use start^rser^ld plus the current seconds as a randcm nmfaer 

* thia means th&t tha process can be run fron anynherc, and no looon Is necessary. 
atrSQLTarap- "create trtle 

«cable_naaK _ 
•'"(Tr.saa.kay long, *_ 
*'*Trjkra«_kIy charC35) . 
4"Tr«level short* 
ftTr^ext.aea.statut chtrCl), 

ft-Tr_ralate-CTde ch«rf7), 
A^Trjiarsoiuldl chara4j, 
4"Tr_paraoft«1d2 char (14), 
••Tr^el«t«_byte charCl))" 



Din cnSearch, rsSearch, riTraca, nlaval, trace«key 
01 01 rsCraa'Ci 

Disi nstart^arson_1d. x. trace.key_f . tracckeyja 
dm fatharJilt. motharjilt 

Dim sequencer, parsonSLf . persen]UB, strfQLf , strSQUe 
Din tr^Uct.oodc, tr^non.-idl, trj>erson-1d2 
Ola strSQLd 
Rilevel^l 

scquencerelOOOOOO 'ceuntdoHn froei 1 Million 
tracajiey- str1ng<JO.»0-) 'M^char. kcy««0O years 
Set cnscarch -^Server.CreateObJcctCAOOM.Cannectlon'') 
cnSear^tOpan dbl 

'cnSearchTbeeuta atr«y.Te^i 'create table - worfclll 
•If jsciBpty(rscreate) - 



05/05/2004, EAST Version: 1.4.1 



us 2002/0032687 Al 



48 



Mar, 14, 2002 



ft rscraat* - S«rv«r.cr««t«Obj«<t<"AC0M.ft«eordstt'0 

;ci|i$«apch.exec4ite "drftp table "Atabl^jiame 'this is juST for repetitive testiwg 

'Microsoft Okl D* Prev^dor for 00«C Orlvara arror '80040e37* 

rscreate.open strSqtTcnp, cnSe&rch 

sec research • server.crcaceobjectCADOOB.RecordteC) 

Sat rsTraco « Server. CreateObjectCADOOS.Recordiat") 

'froM the opening screen 

'Reftponte. write iutart,p«rMn.id 

'x»l ' tenporary debug 

00 while x<liW 'UOO 'x<10'Zo3 

;2»»1««6$$36; 2000 - l«)0»400yEaRS 400/20yeara per ganeratioA>20 CEktRATlOMS 
•■level-aleveUl dsn't coneolldace^here - better to aee the logje «Ue*her« 
trec«Lkiy-£-left{tnicO»y,inlevel-l) c "V * r1ghirtrtcOey,30^Bhev«l) 
tracc_key_Ph1eft(traceJeey.m1ivel-l5 & '2- * rtflht?trraeOey!jO-mlav«0 

'atrSQlf* "Select ♦ from Llnk5_t mftere personl • " 
A 4nistart_perso(v.id 4**"' 
• 4 " end Relat - ' A"'" 8>"f^ A"'" 
•^r59i:^f "select persohI, relate, person fPo« Llnks^t inhere p<r*onl " 
4 4i>start_p«r«jn_id 4 _ r * • « 

4 " and Relate LIKE ^PfX'" 
4" union " _ 

*"»Jll«t^J0Nl;^J6LATfi.^PCRS0«2 from t1nk$.t2 trhere personl . 
4 " end Retete tiS'^PflK*" 

•4 - and «i1dCRelate.3,l)- 'mid worksl 

. A" *^ Relate LIKE ••p»'- 'Hke ■ 4" rr 4"F- 4"«'- 
4 • and Relatt b 'ISfaOOI'" 'like * 4" '77" 4"r* 4*'*"* 
'4 and Rel«tt o- • 'ISMOOOl'" 'like " 4"'v»« a-*- 

•4 - and Relate like - ♦^•77" VF' tr*'' * 



•cnscareh.open •dbl" 

'Ratponie.inrHt* stnqlf 'MsgboxCetrSQLf) 

>»SSh?Fl?2?/-S!S??^?F?^'' raSe.rch.cio,. no "end if" n««d.d - tutmnt uaed after firat tlnur throuflh 
rsSearch.Qpen strtQtf « cnSearch adoptndynamic, adLockOptIni sn c 

• we win add a record here, regardless of outcoa«. 
If rsTraco.stat* « adStat«Clo8«d then 
raTracf .Open "Selact • froa " 4 tablc^imc, _ 
— u ^ adLoekoptlnrfstlc 

'r«star<h. Filter « "mldCralate J.l) « 'f'" 
'research. Filter • "relate • •♦f*"' 

I response, write " "4r»$e«rch. recordcount 'always . so useless 
;reaponte.Mr1ta -4rt«e«rehrperfonl") ' ' * 



'responae.tvrfte * "Arssearche-reiate")' 
- - -ftrasearchC-perfonz'^) 



'response.wrlte ' 



'If research. Recordeount > 0 then 

*1f raSearch.Recordcount > 0 ^ 

: If m1dCrisearef»rrelate-J.3,T) » "f" then 

If not research, COP and not research. bof than 

fatherJi1t!o"Y" 

rsTracertr^«(uk«y") m saquenctr 'ascuaas aic. Index on thia ntfqbar 

r.Trace("tr.trace,key-) . traceJ^yU " '"^ 

rsTracertr^lavaO - mlaval 
rfTraceC-trj^ext-Scn.atatua") - father Jilt 



raTrnceC tr_ralate^od«") • tr.relate.jwde 
rfTracertrjersofuldVj « cr^craorultfl 
riTracertr^r«ofu1<0 '5 • tr^rsan.1d2 
r«Tr»ce("tr_d€l«te_brte*) - "or 
person{_f • r-$earcnt''perscn2'*) 
rsTrtee .update 

else 

fatherj»1t*"w- 

•-Mcukey") « seqi 
•_tracej<ay ) ■ ti 



rsTracei 
r«Tracai 
r»Trac«i 
r«Trace( 
r^racei 
rsTraca 
rsTrace 
rsTracei 



sequencer 

. _ , , - trace.kay_F 

'Tr.laval") - ail«y«l 
;;;trji€)tt.^fUstatus-> o fatherjilt 
tr_rel»te_code ) i- 



JrZSJfJSSlJS"'^ : 'r.S«irchrper«»,r) 
, trjdelete_byte^> « "D" 
r^raceCt1ine_stanp"> - tlnestaaip 
nMSteRip field, with Index urttOeacendlno seqitenea 
^rylJe^dJ^ " push-deS sSSn^quence 

end If 

' nothar search 
rsSearch .close 

•rssearch. Filter m "relate c 'n'" 

4 " and Relate uke "pw— ~ 

'■" "nitm " _ 



4- 



4»t«1ect PtRSONl, R&iAre. PCRSOia froai Llnka^ta where personL = ' 
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C:\p«f wt\ltedu1e*\oa8KC02O .iBP 



ft"'" 4rastarc_person,1d . 
& " and R«Ut« LIKE ^pmK'" 

'rssearch.Gpen "select • frcri Llnl(%.c ivhere personl a 

•& • «nd Relate UKC 'fl*'" « 
. cnsearch 

rcSt«rch,op«n ^trSQLin, cnSearch »dop«nrfynu1c. •dtockOptliil stie 

* & " and Relat = '« *) cnsearch 
research .mo^enext 

' ivf add a record here, regardless of gutcone. 

*unnecce$sary to open rsTrace aoaln - gets a error 
'rsTrace.OMH *$«1«ct from " I tabi e.jt»iie , _ 
' cnsearch. edopendynanic, adLockoptinistic 
sequencer - sequencer - 1 
rsTrace.Addiww 

*rsScarch,Pi1c«r « "i»id<pe1«tB,3,l> o 'n** 
•r»Search.fi7ter "relate a *M 
'response .write rssesrch.rccordcount 

* responea .wri ta ras a srchC'personl") 
, re sponse .wH ta rassa rch C" r«1 ata") 
*reiponse .write rssaarchC'personS'^) 

*1f rsSearch. kecordcount > 0 then 

Mf r&Seardi.Becordcount > 0 

'if midCrsSearchCVelate''3»3,l) - "M" then 

If noc rssearch.EOF and not research. bof then 

ii»therJi1t-"V- 

raTrace^'tr.^eaJcay") « sequencer 
rsTrac«C"tr„tr*c«^k«y") - tracOiey_M 
rsTraceC-tr^leveT*) ■ m1eve1 
r»T race C''tr_/\aJtl:_Oen_ statu t") a motherjhit 
rsTracef-tr^relate^code-) - rssearchC" relate") *<m«m 
rsTracertr_ptrsofu1dl~> • rs$earchrparsonl''5 
rsTracaC trj)ersoiu1d2") e rsSaarchrpersonS") 
perspnZJ* n rsSearchC^personZ") 
rsTraceTtr^deleteJbyte") • "K^ 



ff father^lt » "N" then 

rsTracertrJeletOyta-) « "O". 'dori^t save mother record for lace.(.co .c now) 
if fatherjilt Is no 

rsT race. update . 

else 

n»th«r.h-lt-"M* 

r«Tracar"tr_seq_key") » sequencer 
rsTracertr.traceJcey") - trace.key_M 
rsTracartr_levaK) « nilevel 
rsTracaC"tr^axt_aefu«t*tu«*7 - motiierjiit 
rsTraceC-tr^relflte^code") a ^'M* 

!?SJ§SKye%lSt?S"J rssearchc-personr) 
^ ' - ^yta"^) . -0- 



rsTraceC" tr_de1 ate^yte' 
rsTrace.upi&te 



If fathar^Mt » **N" and mother Jilt « "H" then 
Re sponse. write "father-hit "*faiher_h1UtoJotherJi»t 

' restart aeahch at a lower level 

* nhcra tr.d«let«_byte « 'K'** 4^ *" 
" order by tr.^ea_Rey" 
note that the SQU could not leek for 'o' 
so had to add positive 'K* for keep. 
Response .Write strSQLd 
PsTrace.opan strSQLd, _ 

cnSearch, adopendynamic, adLockoptlmUtlc 

• Re soonsc .write r»treceC"trj>eraon..1d2") 
can t use rhis statement 1r at end of nie. 

If rsTrace.EOP and rsTrace.BOP then 

• If rsTrace.Recordcount « 0 then 

Response. write "baillnff out too soon" 
exit do '777? 
end If 

ml aval BrstraceC'tr.l aval*) +1 
traeejcey ^rsTraceCtr.tracckey") 

rsTraca. update 

61 self fatherjilt - -y" then 
traee.lcey - traee^fcey-F 

• even If both P 4 M are V, do P firse, oma back for m later 

eisalf Riotherjilt « "V" then 
ei«tartL.|s«rson„fd - paraonZJI 
■ilevelaaileve1-»l 
tracejiey - tracejceyjt 

end If 

ioE3t-»l 'tenporary dabup 



If rsseareh. state « adstateOpen then rsseardi.dose 
If rarraca. state - adStateOpen then rsTrace.cioie 
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Ct\DaWlt\Hodtt1»B\0»«RC0?0 .ASP 

'\f cnSCArch.itattt - «dstAtaop«n thtn enScard\.cl«tt 



create SURNAME nport 



'Dim cnSearch. rsS«>rch, r^m, mUvel. tr*cejkey 
'Din rtcrtate 

'oin mstart_parton_1d. x. tracckey^, tract.keyjn 
'Dim f^therjiit. inoth«r_h-(t 
'Olfi sequtncer, personZ^f, per»on2_m, »trSQLf 
'Din tr.r«1at«.cod*, tr^rsoiuldl, tr^erson_1d2 
Din strSQLs, pcqple^tot, eldest^birth^eaOwTd 

'Set cnSeareh - sarvcr.CrvataObjcctC'AOODS.Connectlon'') 
'cnsearch.open "dbl" 

KtrSQUKv" SELECT perion_1name AS SURNME. "Ic 
"COOKTCPCRSOICJO) AS PEOPLE, "4. 

"BrinCbmhlyeap) as CARLzesT "*u 
"RWJN "tfTableLnine PerioiuT " 
"^Elte tr^rson.id2-p«rBon-id and tiu»crson_xo3 > *0 



■-e«'^wu, ^, 

"GROUP BY PERSOIClnaiM' 

'Rt^wnst .write «trSQLs 
nTrace.open strSQLs. _ 

cn5«arch *i adopendynamSc, adLockOptlmistic 

Rtsponsa.wHtc ("<t*ble border al1on3center>") 

A«>ponse. Write "^captloro^IRCCT ANCESTORS SEARCH RESiA.TS SlMMRY</capt:on>'' 

Response. WMte **<TK>SURNAME<TH>PeOPLE^>6ARLlE5T BIRTH" 

P«0p1«_t0ta>0 

oldestjii rtfuyear^l d.-ggM" 
DO while not r»T race. EOF 
• Reaponie .Wri te " raTrac«C5urnamB"M'''4nbspj 
•ft rsTrace (" peopl e *')&"&nb sp ; " A rsTrace C*earl 1 e«t")*"<BR>'' 
Rasponse.Wn te -<rrR><TO>"*r»TraccC"»umaiii«**) 
Response, Writ* ''^TD>"4rr»Trace ("people") 
Re sponse . vr i t e " <TO>"Ar$Traci C*ear i i es t* ) 



Mep1e_tot«peop1 e.tot-»-r»TraceC"people") 
•>f riTr»ce('*e«rHe5t") < oldistlbirth-y 



rth_yeapj»ld then olde»01rth«y*drj.old » riTraceCearliest") 
rsTrace.MOVENExr ' 
loop 

Response .WH te "^RxTife "A'Total/OLOCST' 

Response .wri te '*<TD>**<ipeop1 eL.tot 

Response .Write ''<ro>'*&o1descJ)1rth_yearJw1d 

Response .write CVtab1e>*') 

If rsTr«c«. state « «dstat«Open then rsTrace. close 



'END OF SURNAME REPORT 



create GEOGRAPHY report 



'Dim cnsearch, rsStarch, rsTreca, mlevel, trace^key 
'Dlffl rscreate 

'Oini in«t»rt_ii«raofx_id, x, trace^key.F, tricejceyjn 
•'Dim f4ther3it, motherjiit 
'Dim sequencer, per»on2Lf, person2jn, strSQLf 
'Dim tr_re1 at«_coda , tP^er»on_idl. tr^ersoruid2 
Dim strsQLg ', peopie^tet ', oldeet-blrt^^earjtold 

'Set onseerch - server. CreataObjectCMXXM .Connection") 
'cnsearch.open "dbl" 

strSQLgs*SELECT bi rttucountrv AS country, b1rtK.stace as state. 
"COUKTCFERSON.ZO) AS PEOPLE 
"FROM '&Tab1e^anw ti" , Perton^T " &_ 



"WHERE tr Berson_idZ«person_1d AMD TR.PER$OfL.zo2 > '0 
"caoup BY birth_country, bi rtKjitate" 

'Response .Write strSQtS 
rsTrace.open strSQLo, _ 

cnSearch adopendynami c, edLockoptimistic 
Response .write ''•<P>Anbsp:</P>" 
Response .Write C*'<tablc border a1ign«centor>''> 

Response .WHte ''<capt1on>DiREcr ANCESTORS<bR>S£ARCH results suDMMtv<fiR>ay couotry and STATEVcastiorD-" 
Response.Write '*-rtlW»OHmtV.aH>«TATE-<rR>P60Pt6*' t'v«.-pi.i»n»^ 

^8*stJbi rthjrearjKl da-99W 

Do «rhi1e not rsTreca.EOP 

•Response .wri te ''rSTraceC'*»urnttne">4''Anb»p j 

'lirsTraee (rpeopl e")<f"4nbsp ; "irsTrace C"ea rl i e»t*")4"<BR>** 

Response.Write "'<TRWTO>''&r»Trece (-country") 

Response.Write "•<rTD>-*r$Tr»ceC*STATE'*) 

Respens«.Wri te '*^0>-ArsTraccr*PE0PLE*) 

peep1 e.«»tBpeop1 e-.tot>rsTrec*Cpeop1 e") 

^if rsTweCeATlTest") < oldestjilrttuyearjiold then oldestjbirth^yeerjidd - rsTraceCearliest") 

rsTrece .MOVENEXr 

loop 

Response.Write ■■<TR><TO>-*"total" 

Response.Write ''<rD><br>*' *&peop1e.tot 

Response.Write *'^D>*'Apeop1e.tot 

Response.wri t" CVtabio'*) 

if rsTrace. state « adstateOpen then rsTrace.dose 



'END OF GEOGRAPHY REPORT 



if rsTrace. itate - adStateOpen then rsTrace. close 

cnsearch. Execute "drop table "&tab1e.jt«ne 

if cnsearch. state ■ adstateopan then cnSearch.dose 

•note - the current setup will only handle o pure father/mother oacuoi-d 
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C ;\patcnt\M0du1 e 5\DSSRC020 > AS P 

* search 
•«nd ifX> 

<l— HUs: <-86HitOount.Hit5%— > 

</body> 

</htin1> 
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CtVpattntyModul •s\DBSHd)22 .ISP 



•option Explicit %> 

#lnc1ud« vir%ukU'*coRnon/4dovb$.ine** 

<Kr¥L> 
<MEAI» 

^(ETA NAMC-"GEMER«\TOA** Contcnt^'lH cro»of t Vlsuil StudU B,Q'> 

^nTtC>a)USIN SEARCH PERSON I - SCsrt S«>r(iMArrLE> 
<H3X30U5IN SEARCH PERSON 1 - Start Search CFree></H3> 

'This program 1et» a viewer choose and pay for naaws. 

*Th« first tlwa thli |pa9« is ratrlevad, and any tima it is 
*iubiir(ttad without being completaly filled out, the form 
;iK displayed. If it Is sutmitted and caqp7«t«)y f Iliad out. 
tha form is procastad in tha Else clause. 
Oln st«rt_person_ln«m«, start^arsonLfinamei start^erBonjmane 
Crin start^rson_bKear, starc_»«rsen.1d 

'LOGON CHECK ' 

•if sess1onC*buy«r logge<ijon")o"buyer logged on" twen 
;rasporoe.redirectC-1ogonby.asp") 'saa p. J57 of prog guidt 



If Reqii«»tC startup* rson_lnMne**)="" or KequektCstarcperson fnjwe ")="'' 

or raouestC start^araon-byaar")-*"' «nd rtquastr«t»rt-parson_id")-'*" then 
g Requestc scartL^«rfon_inan»«">«"" and requ«itr»tartj)er»ofuld')-"" Them 

Ent«p tha laat n«ma, and than add one or more of the following fields ♦ first 
na«e, middle n«nw, birth year - as extra cHteHa to efescHbe the prrsnn where 
yoj iMOuld like to start the CDUSINS pedigree search. ^ 
<fiR>Or, if you already have tha person's Genealogy Registry 
ID, please use it to go direct and save titne. 
•<BA>Search may b« 

limited to naBjes in a recent tixe range, such as those bom In this ctncury. The 
pedigree- foil oaring process is used after that. <p> 

<rORM MCrH0O.P0ST ACTIOH.'dbsreOaz.asp" \6^n»2 nane-fonn?> 

Starting/Focus Person :<BR> 

Naine<BR> 

Ust 

<IH?VT TTPEa-TEXT" MAMB»"sUrtJerson_ln«ie" 5XZe«14> 

First 

5ldd?e *«***E-"»t*»'t-P«raoiufha»e- SIZE«14> 

<iMPifT TYPU-TEXT' IIAMB«"startji«rsonjw»«se- 5]ZE«14xP> 
Birth Vear 

<IMPVT TYPt='*TEXr' NAMEa'starX-perwxUjyear" ilZ&=4xp> 
Percon'c Registry ID 

<INPVT TYPe»"TCXT" HA«E^"$t»rtj)arson_id" SIZE-14> 
</ilSSJ^^"'^^ w«lua-"Start search" 1d«submlU naaMMubmitU 

'dKelsaa^ 
■<X 

]Dim str&QLTciip. tab1a_nan«, oiiner_id 
create tertporary tablo for cookie processing 

Dim cnsearch. rssearch 
Dim nstart_per*on.id, x 
Din strSQLp 

Diw firstrec, lastrec. stnc , 11ne_cnt 
Din strSQLfields, na>L.al lowed 
maN^llowed«3*'H> 

Set cnsearch - Server. CreateOb J ectCAOOOa. connection") 
cnSearch.open "dbl" ^ 

set rssearch » Server. createObJectC'ADOPB.iMcordsat") 

'Response. write mstart-person^ld 

; where person.! name >- *" tastart-person.1d A**'" 

•construct SQL for multiple search cHteria 
If peoue»t<"st«rt^ersonlid'')o*'~ then 
strSQLpB-SELCCT personal d, personal name. p«rsoiufn«ii«, 

pepsoajnnsflia, "4_ r «<» 

..'ti'"*iy^"''« birAjBonth. birtH.^y, b1 rth_country , "t^ 
' Mrth_»t»te, binjueoiffity, b{rth.c{ty 'KT 
^from persorut ' ^ 

vtisre peraon_id m " trraqu«stC'*itart^irson_id'*) 4"'" I 

ORDER BY PERS0IU.HAM6. person^fha»e7perso»u»ni»e . birth_year" 
else 

StrSQtfieldS*'* BIRTH.YEAR > '1900' AND * 
if request<'*surt^erson-lname")o'"* then 

enrif^*'"*'*'*"**^*'^^ P«rson_1n«w - ftrequestC"start4>er»n.1 na«e"> 4-* - 

If re^ueitrscart»per$oa-fnama-)o.— then 

«nd^'f^ *" ^ P^rsotKjfnmt . 4requestrstartj).rson.fnM,e-) 

If reqoastrstart_per»onjnna.T>a")o" then 

end'lT** *" P«raonj»na«e . *reque«tr.tartj»«r«»fu«name*) V 
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if requ«»tC'«tar^erMnJ9y««r''>o-*"' th«i» 

^^trSQlfield$«itrSQtf1«Tds *" and birtluyear « "* AreqiwitCstarc^erson^byeAr") A" 

5trS<lLp-"SEl.&T per«an_1d. panon^lname, pen OA.f , 
"personjonaniei "iu 

"Mrt^uyeir, b1rth_month, birthday. b1 rttucountry. "4u 
•'birth-state, birtfLcounty, birt»uc1ty 
"from persofut , ^ 
%here *^ tetrSQLmlds 4u 

•* OMDU BY PERSOILLNAME, perion^fhwie, personjinane, birtlvyear** 
end If * end of v». create logic 

•"Bihere persoiulnane « "' &rcquestC'*stArt^ersoni_1n«iie'*} &—"a_ 

•■where pmr$enjnmm ^ *" drrequestCstartLpersoOnam") A"** tu 

and pePMnjfhme -> "* ftreque8t<"fttart.^ersen.fnflme'*) A— ' 
*■ and persotumanw » *" Arequest('*starcperMrunnanie''} tf"" 
I" and birnuyear s •* ArequestC^tart.^ierson.byear'*) 

'Relational (<, ntOM MSON ta OPEMTOR, COMPARTISON 0PCPAT04S 



'rtspenae. write requestCstart-person.lnttse") 
*Responae .write strSQLp 

if rsSearch. state » adstateOpen then rsSearch. close 
rsSearch.Open strSQLp, cnSearch. adopendynwnic, adLockOptlmi sti c 



'research. Open strSQLp. cnsearch 



'use input screen like dbsrehlO 

'do search 

%> 

<PORM METH0D«POST ACTtON»**dbsrc023.asp*' 1d»foml nme«foniil> 
select COUSIN 1 fronr the following list by chtcking a single box. 

<S( 

'if rsSearch.eof - skip 



do whHe not rsSearch.eOP and x < aMH_al1awed '<2fi 
st«(-risht("0000"4x ,4) 

rcspense.wHte C<brxlHHir typeachcckfaox naiiM«chk''Astrx 6" valve^l>") 
rtsponse.wri te r-aHPvr type«teKc name-" A "gHd_lnanie** - — - 
reaponse.wri te r<lHPirr type*Uxt nmo-" A "gridLfnuse' 
response .write c"<TMPllT typestext nane** A "gHdjBnsiBe' 
response.wri te C"<lMPIir typestext mmcsi" A "SridJbyear" 
response. write C<1HPVT type-texc namo-" A "grld-id" 

•if x«l then firstrecsrssearch.bookmark 

loop 

'Response .write X-1 

response. write C"<I«W type-hldden nanxj-lincucnt value-" «x V 3ie€-4V ) 
ir K ■ fliaxjiiiOMed then 

^^esjonse. Write "^S^At Least "AX A" Hsnies were found meeting your « ^<^erl*</h3>" 
3f R>0 then 

en3*iT""''^^*' "*3>"«X *" found meeting your <Hteoi</h:>" 

If K«0 then 

^Jtesjonse. Write "<h3>No Names iwere found meeting your criten*«/h3>" 




^^m> submit buttons that go forward or back 
<BR) . . 1 <aR> 

^^SS^L"'^''^''*"'**^*" ^^alue-"C(XISlH 1 SELCCTeo" id>subin1t2 name-subni c}-. 
<dtmnd ifX> 
<P>&nbfp;</P> 



<P<«^h ref^'Wel coa)e2 .asp''>fte turn to 

asp>Recurn to waat search screen. Vaxp>Anbsp;5/P» 



Main Menu</a>Vp> 
<a href^src022.ai 



</BO0Y> 
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^ Language^vescHpt %> 

iXDption Explicit » 

^«»pont«.Buff«rMtrut X> 

<}-- rlncluda v1rou«1«'*c«nnion/adovfrt.1nc' — » 

<»miu 

<N£AI>> 

0«TA MAMe»-CCMERATOR" content»-Ml croiof t visu*1 Studio •.©"> 

•dm&oausiN OWE person 2 • stsrt SMrchVriTLE>> 

<H9>C0USZN QAME PERSON 2 ^ stirt S«arch (Fr«0</H3> 

I f RftquestCstart^ersoiulnam f)-"" and requestC'sUrCpersofuid")-- then 

*Olii strx' t scsrxpersoruid 

FOR X-1 TO r«|ueft('nine_cnt') '2$ 

rnufeRicKrC"oooo"«iX ,4) 

IF REQUESTCCHirASTRX)"! THEN 

STA«T_P6RSOIUI^RBJUEST("GRII)LlO"«SrR}0 
eXIT FOR 

EIID If 
NEXT 



on f ''p • rsonX_l name* ^ s nsquc rt d^l nsfiM"£STRX) 
sessl on I "p e rsonl.^ ante" } - requ« a tc"g H (l_f name" ASTRX) 
8«58l onr''personl_miaffle"i*requescc "gri cLmna(iic"*STRx5 
««ssi one' V* ru9nl«^y«Ar'')erequc»tCgri dJ)y««r''AST1UQ 
sessi on(>erson3.'i d''>creq uestC'grf d'^ASTRX) 
*sav* data for 

*Thi» progrM let* o viewer choose and pay for njwes. 
'The first t^me this 



'The first t^me this page 1$ retrieved, and any time iz Is 
' submitted without being completely filled out. the fom 
'1? dlHJ'ft/ed. If It Is aufaerittad^ and con?>l«t«1y filled out. 
the form is processed In the else clause. 
Oirti itartj)«rson_ln«n«, itart^rsoiufname . itartjersofumume 
Dim »t«r<^er9on_byear, fltart;^rson.1d 

'LOGON CHECK 

;if sesi1onC"biiyep_loQfl€d_ion-3o'*buy«r logged on" THEN 
;nijponia.red1rect(-logonl>y.asp"> ''tee p. 337 of prog guide 



;if RequeitC"stnrt_persofUlnanie")-"" or Reque»tr»t4rtJ)ersorufnaine-)- ' 

or requestC' stanLpersorubyear")--' and request(%rtj?rson!ii->'" then 
'If RequestCstart^ersoOnane'*)-'"* THER %> 

Enter ^€ l«t naflie..and xhen add one or more of the fonowino flelos - first 
<Bff>$eArch may be 

limited to nanrs in a recent time range, such as those born in this century, <p> 

<FORK MCTHOtfaPOST ACnOR.-dbsreOJI.atp" 1d^on«2 n««e««foni2> 
Startlng/Focua Per»on:<eR>. *^ Tonw> 

Naine<BR> 
Ust 

<IKPVT Type=-TEXr* NAME-^atirU^^rson^lnawe- 5ize^l4> 
ri rst 

<JNPUT TVPE«"TO(T" NA«e-"«tart-persoa.fnanie" 5I2E-X4> 
Middle 

^^J^t^'iexr' NAMES- start4»ersoiunnwe'* SZ2eBl4><P> 
■*frtn Vear 

<INPVT TYP6o"TExr' NME^-scarCpersoiubyear" szzE»4><p> 
Person's Registry lo 

<INPOT TrpE«"TExr" wwE-"start^rson«1d'' sxze»14> 

**/Si!L"'^'^""***"^*'* v«1u«»"St*rt Search- 1d»submitL n««easubrai tl> 
</PORll> 

<9(e1se«> 
<X 

'Pim strSQLTenp« tab1a_naiM, otmer.ld 

' create tenparary table for cookie pnaccsalng 

Dim cnScarch, research 
Dim Bi$tarc_per»on.1d, k 
Din itrSQLp 

D im Hrstr ec. lastrec, »tnc, Hne^nt 
Dim strSOLflalds. max^llowed 
maxjilloMedajoo 

Set cnseareh - Sepv«r.creataObjact("«ooB.Conneetion"^ 
cnseardi .open *'dbl** 

(at rssaarch - sarvar.createObjaetC'ADaoe.Recerdiac") 

'MSponse.Mrite n»cart_perfon.1d 

'"a^ere pertoa.lname >s tostart,^rsen.1d 

'conttrucc SQi. for nulrlpio aaareh criteria 



05/05/2004, EAST Version: 1.4.1 



us 2002/0032687 Al 



55 



Mar. 14, 2002 



Ct\p«tent\l4oduU«VOBSRCO?3 .ASP 



if rtqu«ctC*cttrt_p*rsoa.1d'*>^'"' th«n 

StrSQLps" SELECT persoruld, per»oru1n«n>e, persofufn«me, "4. 

"OtrwrunMott, "t_ 

"birth^tr, birtJuoonth, blrttuday, birttueountry, "tt^ 
•Mrtiuttate, b1 rttucounty , birt*uclty "4. 
from person. t 
"wHt^ per»on_^d m "' ArtqtMCtCstart^rton.ld") 
•* ORDER By P«S<WJJWKC, p«r»Ofufn«m« , p«rsonjnnaae, bipth_ye«r" 

•1m 

»trjQLfU1ds«- BIRTH-VEAft > 'IJOO* AKD " 

strSQLfi«ld»«str$QLflBTd$ ft* p«rsofi.ln«it a '* ftr«questr»tircj«rsoo.lf»*n«") ft"* " 
•no If 

requ««t("»ttrtLP<rson-fh«ne*)^"' then 
end^if^''^ ***^'^''^ ** p«r«on_fnafliB ■ «r«qo«st("st»rtj.ersofutfla«if) ft"* 
if r«qu«ftt("ft4iXj>«rso(\jnn«De")o'*' then 

^tr$QLfi«ld««strSQLfitld« ft" «nd persofumanit • '" «requwtC~itapt_o«rsoru»naM-) ft- 
If rcque^tC starve rwnJby«ar")<o'" then 

•riS^If**"^^*^^**'*^^''*^ b1rtluy«wr > ftrequeitC-f tartar »n_by«»r-) ft-' * 

StrSQLp^'SELEcr persoo^fd, persoruliume, per»oii.fnim«. *** 
"ptrsonjimamc, "^l. 

"bl rthjyeap, blrtfijiwrrth. blrtK-day. b1 rth^country . "* 
"birth_»tate, b<rtK_eoofity, bfrth_city "A 
••from persori_t "du 
-where * ftstrsQLfTelds ft_ 

■* ORDER BY PER50IUJ<AME, pepsorufnaflx, personjnnane, birth-year' 
and If * and cf SQL ereata logic 

*Raltt<0n»1 C<. >, <=, >=) - FROM MSDN la OPeRATOR. COMPARTISON OPERATPRJ, 

If rasearch.ataf e adstataopen tiian research. dose 
rsSaarcb.Opan strSQLp, cnSaarch, adepandynairic, adLockqptlmlstic 



*ua« Input scraan lika dbsrcKlO 
do aearcn 
K> 

<POWI HETHODrfOST ACTIOM«-db8re024.asp" 1<teforaa n«nasfbnnl> 
Saject COUSIN 2 the followlna Hit dy eheddng a ilnju bo> 

•It research. acf - skip 
x-0 

do idhlle not research. EOF and X < na)L,Al1a«Md '<2» 
strWi $ht rO0OO"4K , 4} 

responsfe.wri te C<bp><lNPUT cype^hcckbox name=chk"ftstrx ft" valu£-i>"1 

response iwrlce 
response .write 
resppnse .wri te v - 
rsJearch.movenext 

If x»l than f1rstrec**rssearch. bookmark 
loop 

'Rasponsa.wri C« X-1 

ST^'maIlil1o£d"5!en^'*^'^'*'" namenlin.^cnt value*" Ax 4" fiixe*4> ) 

end'fP'*"''*^*' '^■** "•'^ ^"'^ '"•^"9 y«»"'- c-.ieritVh3>" 

If M>0 then 

end**?**"**^" '•-<h3>"ftX ft" m«m« mrm found »at1n0 your er1t«ri«</hj>' 
If )o4> then 

■nd*ff*'*****"^** ••<h3>jio ffanea Mre found meetlns ycur cpfteHa</h3>" 




*ti»D subialt buttons that go forward or back 
%> 

<BR> ' ■ ■■■ ■ i.uB.iBH> 

VfSSb^^^"***^*" ^^"^''*'»»" 2 SELiCTED- 1d.«ubmU3 naisa-subni t2> 



2^**J?*'«^"*«!«»**2.a»p->lietttm to 
Main NemK/ex/P> 

J/BODVy^*''^**^ "^"^ ««'^" </«><P>*nbsp:«/p> 

</HTML> 
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option ExpHHt 

<l" finclude virtual ■"oomnon/aciovbs.Snc*' *-> 
<hinl> 

<Mtft NAMC«"6CIICRAT0R'' Content«**Microsoft V«su«l Studio 6.0*'> 

<t1t1e>SEARCM PEOICftEe AND RCPORT^titlO 
<li3>Cqiiot;O0(fs;iirs«quot; SCAJtCN PCfi3CR£E AMD ACP0ftT^3> 



Parson 1<|» 
Nuict Uftt 

<1nput Trp&"Texr* size^''^)" va1ue8-^sess1on(**personl>1n«ne'')X>"> 
Pirst 

SlSVi HA*iE»-st«rt.fhwr $IK*-10- valMe»"<X«««f«1onC"P*r*onl.tnan«-3%>-> 

<|np«t 7YPCo"TE)a*' («MEo"st«rOinMe- SI2&»"1X)" valuea"<tesession<"p«rson: jwiaw")X>"> 
BirtS: Year 

SlSflS '«A"E»''«"nJb1«-«X-ye»r*' SIZ6.-H- v«lu«»"<JS-»ttsioo^"p«r»oni.by€ap")SJ>"x 

^nput TVPEB-TEXr* NAMCs'^start^rson.ld'' $tZEa"X4" valuc«"-dStrscssioti,."per$ora_id")«>"> 



'2/2S/35 

'2/2S/99 UM this varsion to cr«at« r«port 

♦tfl*'' '•«v1»1pn of tht SQL to use LIKE tnd several other logic change * 
;Th1s progrmi searches all lines back to their beginninQs 
*and collects the person numbers along the my. zt can be used 
'for RBiltiple purposes 

' create 3Cpa~4.t« screen to ^et the starting ninber. 

;Th« first time this page is retrieved, and any tine it is 
;subBi1tte<J idthout being oxnpletely filled out, the fonn 
;is displayed. If it is suhnittad and CQa«>lete1y filled out. 
|the form is processed in the Else clause. 

■If RequestCstart^rsofuid*')-"'' then X> 



«'elseX> 

Did) strx, X, »tart_perioiuid 

F0« X.1 TO rwuestClina^nt") 'JS 
STIUC-RrQfTr00O0''«X.4) 

If REQLieSTC"CHir«STWO-l THEN 

STARTJ»CRSOII_H>iREQyESTC"CIU0-JO"«STRX} 

EXzr FOR 
END IF 
MCXT 

* Response .MHte requestCline.cnt") 

Response .»<rite "»tart_p«r»on.id"Ast«rt^erson_id 

Person 2<p> 
Ninw: Last 

<input Typ6p"TDCr MAME--st«rt-l««iie** SHE."»- volu«-"dUr«que3trtfrid^ln«ne"4STR)03to'-> 

SiSS^i ■^''e-"TEXr' NAIIE.*.tart.fnMe" SlZerf'l©- va W<Jtrrequesx:("grid.fnane-4STRAD&-> 

Jl-^S-^'^"''^' *^^'«t«''tJ«»«nw'' SI2E.-10- value-"<afc.requesr(-j,r,o^nai«"ASTRX)K>"> 
Birth: Year 

SlSSrlX*'^"'^" NAME-"st«rtJHrtKjrear- 5IZE.-4'' valu«-''<tor«que»t< '9ndJ,year-*srRX>%>-> 
^nput TVpe-'TEXr* M*»(£--atart-per«w.id" SXZE.-14" valu«"^req««t<' gr,d^,d"*STWC)«>"> 
<br> 
<br> 

table_oamel^'\.r"41ef tCsessionCpersonUi d") , L4)toti dfriahtCtimc .51 1 . ?1 
Pedlgreesearchl sessionC-personDd") , tablLnirel ^"'"^^^^'^•''•^•'J 

table_n«me2^r^*left(request("grid_id"4STRX),l4)to1dCriohtCtim.5). ^ 2^ 
fedigreeSearchl requestC^gr i d_i d-toTRX) , tabl e^iue? . . - . ^ J 

%> 
*X 

Oii stSKTSS**^ Cttart-persofUid, table^e) 

• eraate temporary table fbr processing 

.*?KJ*-"***'"£''"<fr^S!l?^*^''^'»0$5'"**'*5&reque$troiiner^1d-3,8) 
H*S*-"■"•"^.*™<*Z*^•^<^•■•fl"••^^•tartu>«rs«n^^d"),^oJ 
tabl«_n«e='*trece-4leftCstart^er»o€x.id,10) 
t»bla_niii««;'tr'*left(start_parsoiuid. 145«nrid(riflhtCtf»e, S) .1. 2) 

■tart-person.id plw tRe wrreAt ieiows « a 

&tible«nanie ^ 
A"(Tr_5eq_k€y long, 
&"Tr«tracc«k«y charCSO), 
^-Tr.level short, 
it Trjiext.ocn-Jtatui char(D 



li^Trj^eUtftjcode char(7>, 
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Din cnsearch, rsSearch, rtTracc, iii1tv«1, trac«_lcey 
trffi rsCrcate 

Di» in»t»rtLPep»on.<d, x, trac«.liey_F, tnc«JceyjB 
Diii f«th«rji1t, motherJjU 

Dim Mqu«nc«r, ptrsonZ^, p«r»on2jB, strSQLf »^str5QUn 
D<fj tr«re"l«tfL.cod«, tr_p«rioruH<ll, tr_per9on_1d2 
irtn strSQLd 
mlivclsl 

3cauencer*1000000 countacmn from 1 million 
rracOcey- strtngCJO.-O-) '30 eh«r. VwJuo v««pj , 
Set cnstireh o Serve r.CruttOb J «cc("AD0Oe .connection") 
cnsearch. Op«n "dbl" ^ ^ 

'cnsearch. execute itrSQUTcnip 'create table - woHctll 
'if IsemptyCrscreate} « . ^ . 

Set rtcreate - Senrer.CreateObJectCAD0M .Recordset") 

'cnScarch. Execute "drop table "Atable.jUfie 'THIS is 3UST FM KERtrirwi testing 
••♦icrosoft OLE M Provider for ODBC Drive rt error 'iOOAOtl7' 

rscreate.open strsquTeofi, w^erch 

Set rtSearch s sen/er.CreatepbiectC"AD0OB. Record set") 
Set rsTrace • server. CreeteOb^ectC'^MOa.ftecordset") 

'iiietart_p«Psoa_1d s ri phtCstrlnoClO. '•0")&reqMett("startjer*orui d") . H'i 
m$tartj»er»oaJd - rSyhtCitHntfCW. 0")*itart;^erMn«Sda4) 
■from the opening screen 



'Response .write irstart^erion.1d 

'xal * tcmpei 
DO tMhIle x<6SI 



'x<il * temporary debu^ 
- - • x<6S$36 'IJOOO 'xKlO'ZoS 

. ^S|6; 2000 - I6O0»400YEAii$ 400/20years per gener at1on-20 GCnEAATIONS 

'nileve1<fl1eve1-*>l don't consolidate here - better to see the logic e'lsewhere 
trace_lcey_F»left<tracOcey, "level -1) ft "l" ft right ttr4ceJccy,30-nUv«n 
trace_keyj*»lemtr«ce.lc«y,mlevel-a) ft "2" ft r1ghtCtr»ceJc«y.30-ni1«v«0 

•strSQtfc "Select * frgra Linki^^t iiA^ere peraonL • 
' jmstart_person.1d ft"'" 

• ft - and Relet - " A**" ft' P' A"'" 
strSQLf* "Select PERSONl, RELATE. P015ON2 from Llnk».t lAere person! n 
A"'" iinstart^rsoivld , 
A and Relate aKE^PW _ 
A" union " _ 

A'select PERSQNl. RELATE. PERSONS from Llnks_t2 Where personl ■ 
&""* ftm9tart_peraon_id A"'" _ 
A - and Relate Lltt ^ppX'" 

'cnSearch.Open "dbl",^ . ^ . « 
'Reiponse .write straqlf *Msobox<strSQLf) 

If rsSeardi. state - adStateOpen then rsSearch, Close 'no "end If needed - statement used after first time throuoh 

•rssearch.Fllter « -relBte » 'I*** ^ _ 

rtseareh.cpen scrSQLf. cnScarch *, adopendynamlc. adLockoptlinlscic 

* we will add a record here, reoardless of outooiM. 
If rsTrftce. state • adStateCiosed then 
rsTrace.Open "Select * frgni ** A tab1e_nanie. _ 

cnsearch, adopendynonric, adLockOptlmlstlc 
«nd If 

•equencer > s«quencer > 1 
rsTrace.Addnew 

■ If WldCrsSearchC relate"), 3,1) - "F" then 
If net rsSearch. EOF and not rssearch.bof then 
fatiierj»1t-"y" 

rsTr»ce("tr_seq_key") • sequencer 'assumes asc. Index on this numbe'- 

'win keep last in as first out 
rsTracertr.trace-key") « traceJ<ey_F 
rsTracec"tr_level*) » mievel 
rsTraceCtrj^ext^gen^tatgi") * fatherjilt 



rSTracef'*tr_rel at encode") « tr.relata_code 
rrrr»ceC"tr^erson«1dl") ■ tr^rsoruidl 
r«Tr«cec"tr_persoA_1d2") • tr_percotu1d2 
rSTraceCtr.deleteJbyte'*) • "0* 
p«rson2.f • rsSearchC*persefl2'') 
raTrece.upda'te 

else 

fatherji1c*"»r 

rsTrace("tr«seqJcey") o sequencer 
rsTracef"tr^trace_kay") » trace.key»f 
r»Tr»c«c*'Tr_level ) « relevel 
r$Trftc«c''tpjiext_flea_status") = fetherjilt 
rsTrac«c''tr_rel*tft_cod«*'> • F" 

rsTraceC"trj3€rtoa_1dl''J = instari;4>erson_1d 'rsSeerchCpersonX") 
psTracec"tr-pers©n_1dJ") « 0 
rsTraceCtr^elete^yte'*) ■ "D" 

* rsTraceCtlne^ratanp") ■ tlieestamp 

'timestiRip field, with Index with descending sequence 
'could be used to maintain correct push-down stack saquence 
rsTrace. update 

end ir 

* mother search 
rsSearch. close 

' rsSearch. Fil tar - "relate • 'H " 

strsque- "Select PSasoMl. REUTE. PERSOHZ fn» Llnks_t wher* person 1 
A" union " . 
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A"Se1feCt PERSONl, REIATC, PCRSOlO fnw Llnki_t2 where pertonl « 

• " «nd Relate UKE 'pM'" 

•rsScarch.Open "Select ♦ from Llnfcs.C wh«rt personl » 

• A"*''tostartn>er«0fu1d 

;4 " end Reltte UKE _ 

rsS«arch.Op«n fttrSQUn, cnSearch adopendyrwnic, adLockOptlnrSstic 

• & *■ and Relat » 'M ') *'. cnsearch 
' rcsaareh.movflnexc 

' we will add a record here, reg*rdle»» of outcome, 
'unneccessery to open rsTrace again - flet» a error 
*r<Tracc.Open "Select * from '* I teble^ime, _ 

• cnsearch, adopendynamlc, adLocfcoptisrtatlc 
sequencer » tequencer - 1 

rsTrace .Addnew 

if Bi1d(rsSearchCYe1ace"),3,l) - "if' 
if not research. EOF and not rsScarch.bof then 

ii»th«r_hit»"V" 



rsTracertr.seq.key") « sequencer 
rsTraceC"tr_trftce^key"> « trace_keyj< 
r«Trace<"tr_leveV') e itiicvel 
rsTracertrjiext_fleru$tatus ) b wotherj^it 



["tr.relato.qode") - research ('relate") 
rtrjersoiuldl") o raSearch('*p«raonl"> 
rtr_per»on_1d2") « rsSearchC"per8on2"> 
personZJ* » rsSearch("peraon2**) 
)^racertr_deleteLJ>yte-) - "K*^ 



rsTrace 
rsTracB 
rsTrace 



If fatherjilt » "iT then _ , _ . , , 

r»TraeeC"trjdeleteJiyte''J = "D" don c save mother record for later{fio it now) 
end if Mf fathorjrlc is no 

rsTrace. update 

eUe 

i»t*ier_hit="H" 

rsTraceC"tr.seq.key") ■= sequencer 
rsTracer'tr.traceJtey") «« traca_key^ 
rsTracet"tr_1eve1**) • mievel 
rsTracer"trjText^gen_statL»") «• mothtrjiit 
r«TraceC*tr_re1ate.code") a '"M" 

rsTraceC'trj)erson_idl") - instart^ersen.1d 'rsSearch("personl") 
rsTraceC~tr«pcrson_id2'i = 0 
rsTraceCtr.deleteJjyte'^') » "0" 
rsTrace.update 

end 1f 

Xf father Jtit • "M" and wotherjilt « "N" then 
'Response. Write "father-Mt "^athe rjii tino the r Jilt 

' restart aearch at a lower level 

rtfTrace. close •2/23/99 statement below worked perfectly? 
etrSQLd- -Select * rrom " ATable^name & _ 
" where tr_de1etOyte - 'K'" 4 . 

" order by tr_scQ_Key" 
'note that the SQL could not look for o *0* 
'so had to add positive 'K' for keep. 
' Response .Write strSQLd 
rsTrace .open strSQLd« ^ 

cnsearch. adopendynamlc, aduckoptlmistic 

*Response.ttfrit3e rstraoeCtrjiersoa.ldZ") 
'can^t use this statement If at end of file. 

If rsTrace. EOF and rrrrace.oOF then 
' if m'race.Recordcount m 0 then 

'Response. write "bailing out too soon" 
exit do '7777 
end if 

ill «vel=rsTrace<"tr level") -tX 
trace.k«y »rsTrac«C"tr_trace.key") 
nstarCpe rBon_1 d -rsTrace C" tr je rson.1 d2 ") 
riTraceC-trJeleteL.byte-) • *^ 
rsTrace.update 

El self fatherjiit » "Y" then 
mstart^erson^id b person2_P 
nl evel — nl evel-fX 
tracB^key « traceukey_F 

• even If both F Cr M are Y, do P first, come back for M later 

ClseXf motherjtlt s "V* then 
rastart^ersoruid • person2_M 
nlevel^level+l 
traea_key > trace_key_M 

end If 

i^x-fl 'tMn^rary debug 
UDOP *endde 

if rsSearch. state ■ adStateOpen then rsSearch.Close 
If rsTrace. state « adstateOpen then rerrace. close 
'If cnSearch. state » adstateepen then cnsearch. close 
End sub 
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'2/2S/M 

*2/)S/«9 UM this virtlon to ereatt ivport 

*«rt«ir Qther program hcvs prepared th« tNo trace files 

Din ctrKLJit tftb1«^inel» tab1«./un«2 

0{n cniutch, rsMatch, counter 

set cnKfttch • 9«r>er.creat«Ob]eetCAPOOe.OKincct{on''l 
cnnitch.cpen "dbl" 

set rslUtch * Server.CrcateOblectC'ADOOe.RMOrdset*') 
*c*b1ct_ii«M2 - "trkccOOOOOOU" 

strSQLm*'SELECT pcrsorx_t.p«miu1nant, 

"perso/ut.psrson.fniflie. 

"perto(ut.b1rth_y«ar 

'•_«T«b1a_nim«l iT. " 4tal^1«_nwte2 4", P«raoti.T • 11. 
y*^^ . «««blt_mfl»l *\tp_per»on_1d2 • - *t«bltju)»e2 *-.trjersoft.io? -fc 
*-.trj*r«>n_ia2 « D«r«)n.t.par»oii_1d "ft, / ' 

"prier BV birtK_ye»r dtftc, PCRS0H_1 nttM*^ 

• Rcsponse.wrlce tcrSQUn 

rsKktch.open scrSQUi, ciiMatch 

' I tdopMidynanrf c , adtoclrtJptlnH ttl c 

le$ pons t. write ("<fta>5SKxt4b1* border «1l9r«>center>") 

Be«Bon«t .write <C&pt1on>msr KECEirT OOIMOM DIKECT AMC£STORS<BR>SEARi -i RESULTS SUMHARV</caotlQn>'' 
Responw.wHte •'<TH>SURKAM£.mi>CIVW fa«E'0-H>61RTH YEAR" «*-.>""5 5l«i«Rr</C»ptlOf» 

MF 2.) TH£N ' T&rr IF NO DATA 
tf not rsM4itch.E0F and nor rsHatch.SOP then 
•Ruponia. write "<l»r> search results su»«4ARY<br>" 
Response .write "FOLLOMMG are vour common ReUTiVES<l>r>" 

'Response. Write "SURNAME ••CIVEM l«ftMS->-ftIRTM VCAR-dtrv" 
counter»l 

00 while not riMitch.EOf and counter < 3 

He iponee -write •'^R>'OT)»"4r»MatchC"pereon>lnMBe") 

Retponee.wHte ••<TD>.<M>" <'(>£n'(rsMetchrpersoa.fnme''>.l) 

Rcipenie .write "'<n»"*r$M»tchC"b1rt*cyeir") j.^j 

count* r«oeun tertl 

;R»*pons«.wr1tt rsi«itchrpcrson.1n«c*'}«",«nbsp:", 

4SS!lf SovKoS^^*** rth-ye«r")r<aR>- 

loor 

e1t« 'HO COOMON DATA FOUND 

Reiponie .wHte -^TR^^TOoWOMfi FOONOrfT0>-«SLR A0O<td>O*TA'* 

end if ' 

response .write (" Vtabl e>") 



If rsxatch.ftate > sdStateOpen then rsMatch. close 
cnMatch. Execute "drop table "Ltable^«ii«l 
cnMetch. Execute "drop teble "*tab1«j^wie2 
If cnMtch. state m adstateepen then cnsutch.close 



, rsSearch, 
seouencer, 
0ldestgJ>1 



rsrrace('^umaiiM*')Re«pone«.Mrica ''<TDy'*rSTracef'^D*oftl*-\RMB«n?* i 't..' "^?A.i'r*^ir*'*^4*'^'i?** 2f "*»r***P'*"" »''^t« "<tr><to>"* ^ 
?hraf^'lM?ooeM2.asp''MMM Pmo*</t> 
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UnguageWBScnpt %> 
<dKopt1on explicit &- 

Response. Bumr«truiJ& , ^ ^ . . 
<imtt> 

<HEAO> 

MAMfi-'CCNBiATaR** c:ontenta''Mlcrosof t visual Studio (S.O**^ 

^TLE>PAy-PER-VIW PEOJOREe - Start $eirdv<AlTLE> 
<iak.RAY-PER-VZCM PCOSGKCC - Start S«trch <Fpe« so f»r)</M3> 

<UNK RELv'fttylesheet" TVP&i"t«xt/cii- HREF-* T1ienie$/leave»/TH£M£.C5i* vl6.0TKEMEe."L«avcj-> 

<UNK RELv'ttylesheet" TVPe«*text/e«* HRfiFB**.TlieBi«s/lekves/GiuiPHO.CSS" vi6.0TH€M£«''Uav«s**> 

<UNIC REf^stylcsheet" ryPE-'ttx^eii" MR£Fki" Themts/laavti/COtORO.CSs" vi6.0THO1E-"Leav«»*^ 

<UNK REU'stylishMt" TYPe-'text/cif NREPa'*jrheiies/1eftVts/CUST0M CSS" VIfi.0THEMEs''Leftves"></NEAO> 

<ftODY> 

<Mt> 



"iMs program lets a v1««#er choose and pay for names. 

'The first time this page Is retrieved, and any time 1c is 
'submitted «rfthout being completely filled out. the form 
*1s displayed. If it Is submitted and completely filled out, 
'the fom Is processed In the else clause. 
01m start^rsofufname, start^rson_fn«nie, start-persoiuinaiie 
Dim starcperserubywr, stuXjMrsoOd 



If sesslonCbijyer 1og9«dLjon*'>o"buyer logged on* Ti 
response. red-lrectClogBYOl. asp") 'see p. 337 of 



THEN 

' prog guide 



'If Requ«*t("8tert-per$on_lnaiJ)e")""'* or ReQuestrstart-pePson_fnane-) =— 

or request^ etarta>ersoaJ>yaar-)a-- and ra<juest(''tttrup«rson_»d ')= ' then 

If RaquestC"start4>er$on.lnaine")»"~ AND requestrstartj)erjonJd them 

enter the last name, and then add one or more of the following field> - fi 



name, middle name, birth year - as extra criteria to describe the p«iwm trnvre 

ja!.s?^'V;5: SrSJ^ii: sS"S"r;Sf?s^a{ny'jJS5i,;'--"""- «.««,.)--> 

ID. pleasa use it tc go direct and sava tina. 
<BR>search nay be 

limited to nam^ 1n a recent tloie^range. such as those bom in this c^-iitury. The 

Startlng/Focui Person: <BR> 

Narae<BR> 

Last 

<INfVT NAM&*''stBrt_person_lnnne" sizebX4 > First 
<I«PUT HAME-''ftart^«r»on_fn»i«- S12Esd4 > Middle 

Birth Year 

<INfvr NAME-'start^ersonJbyear" 5I2E»4 ><p> 

Person's Registry 10 

<iHfVT N>WE-'$tartLparton.1d" stzs*U > 



<INPI 

</Fa__ 
^lsea& 



JlMPWrTVPEa" submit" valuea" Start Search" idssufamitl nanessubmitl> 



'Dim BtrsoLTenp. table-name, ower.ld 
create temporary table for cookie processing 

Dim cnSearch, rsSearch 
Dim msttrt^persen^id, k 
Dim strSQip 

Dim ftrstree.^lastrec. strx, llnejcnt 
Pitt strSQLfielda. maJcalloM^d 

■lanjfcl 1 owedsJOO 

set cnsearch - Server .CreataObject("AOODB. connection-) 
cnScarch.Qpen "dbl" 

Set rsSearch - server. CreateObJectC*ADOoe.Recordset") 

'«itart-P«rson_id « Hght<»tringC8."0")&rtquest("startj)erion_i<l") 
'from the opening screen ^ w /. y 

* Response .vrrlta. •istapt.parsorL.ld 
•"%*here persen.1name » testa r«^rson.id 

•construct SQL for "Wltl pie search criteria 
If requestC »tart^er«on.id'')V'' then 
strsgLpa-sELCCT persoOd, person^lname, persorufnane. -ft. 
personjnname, at. r ^ , 

"fren p«rson.t "flL 

"where persen_id - '" &requefttC''start^rson.1d*> 

" ORDER BY PERSON.^iMME, person.fnmne, perserxjmi«ne. blrth^car" 

else 

StrSQLfiilds-- B1RTH_YEAR > 'IMO' AND " 
If reque St ("start-persorul name ")<>'"' then 

^^»trSQLf1elds«strSQLf1eld8 S," persoiulnaae » ' - «reque$tC"scarcjjersoiuln«e *) 4 

if reque»tC'startLj)erson.fnarie")<0'*- then 

end*?^^^*^^****'^''^ per$on_fn«me « 4reque$tC"ttart»o<r$on_fname-) 4"' 

if reqiJestCBtarX-perMfynname'*>o-'' then 
strSQLrlelds«strSQLr1e1ds &" and persanjnname ■ "* ArequestC" start. t^rsorunnane") 
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str$<a^"S6LEcr p«r«0A-i<J, pftrson_1iwme, perjon_fnaine, "JL 

"Mrth^year, blrthjionth, birth-day. blrrtucountry, "t^ 
"birtK_»tAte, birtfvjcounty, b1rth_ClCy "4- 
"from p«rwfut "4. 

-whtre " «fftrSQLfTe1ds «c ^ . - 

* oftocR BY PCRSo»L.uiuuE, personjftittne, pcrtonjoMM. blr^uyear" 

end if * tnd of SQL create logic 

'■•^r* parsoful nwN => "' ArequestCstart-person-lnsne") ft"*"' 4« 

** and persorufname ^ &requfistr'start_per$orufnafie"J *. 
and pcrtotunnaM *" *r«qu»*t("start>persorunna«e''j A" "* *_ 
and Dlrth_ye*r = dreque*t<**tart4)ertcn^y«ai^) 

'Relaclonal (<, >* o, >«> - PiWM hscm t- operator, ammwrisON opu<a.ors 



' response .wr< te requ««tC"«t»Ptj>«r«o»\.l niitie") 
' Response. wr1t€ strSQLp 

If rsSearch. state • adStateOpen thin research. dost 
rsSearch.fipen strSQLPi cnscarch. adopandynamic, adLockOptimistic 

'research. Open strS<lLp, cnsearch 

'use input screen like dbsr^lO 

'do ••arch 

X> 

<FOtM METHOD=post *CTl0ll»'*dbsrc040. asp" lds*ft)nBl nanwefoniil> 

Select a starting focus person from the following list by checking a smgle 

box, 

<&R>The person's relatives will be counted and the 

resulting counts «iri11 be shown to you on th« next screen (fret). <6R>vou will be asked to choose nhich groups of relatives you 
wish to see (and pay a Mall fee>. 

*if rsSearch.eof - strip 

do while not rsSearch.EOF and x < nax.a11owed '<Z6 
s trxsri Qht('*0000"A3t , 4) 

response.wri te f**<br><INPVT type<<heckbox name»chk'*drstrx *" VALU6»i>"i 

respensa.wri te f-^lMPOT type-taxt nwie-" & "gHd_ln*me" ft strx I " i-a»j*» V * "4rsSearch< "personal naine->4 &-dnbsp;-i" s1ze«10>*') 
rtsponse. write ("<IIIPUT type-text nane-** & "gHd.fnw" & itrX & " vuliie«"A'""«rtSe«rchr'person_fnem8")4 4"«nbsp;"*" s1ze«10>*'5 
response.wri tc r^TMPOT type-text nane-" & "grl djnfiane" & strx & " va}iie="4'""«rs$earch<"persoajnna»e")4 «"«nbjpr4" s1ze-10>*'$ 
response.wri te (-<zhp\st type-text nww" & "grtd-byear" & strx t - va) les"*"' "«rs$earch<'*birth_year"Mr''"«-«nbap;'i- ft1zc«5>*) 
responst.wrlte ("<Imput typeatext ntree-" & *'grld.id" & strx 6 vBUe>"«r'""«r»search<"persorx.id")»'*"*4"Cnbspr«'' a1ae«15>*5 
rsSea rcn .no venex t 

•If x»l then firstrec>ri search. bookmark 
loop 

'Resppnse. Write X-1 

response. write C"<INPtfT type-hidden nanie>lina..cnt value*" 4k A" siu>4.*) 
If X s max^l lowed then 

Response .write "<h3>At Least 'tat 4* Naaies were found meeting your criMi ia</h3>" 
end if 
If )£>0 then 

Response. Write "Khiy^'dX V Names ware found meeting your erf i:eria^yh3>*' 
end if 
If xbO then 

Response .Wr'.ie *'<h2>Mo Names were found meeting your cr{teri«</h3>" 

Response.wri te "<fbnt colonsredlxhl>U9e the BACK function to entet nm* search parMietersVk3></font>'* 
^Res^so .Write "You may need to broader or generalize your search criteria to just the surname." 

' 1 act rec«rssearch .bookmark 

'two subnic buttons that go forward or back 
5^ 

<eR> I <ftR> 

<IHPOT TYPE="subnit" values'SHOV RELATIVE COUNTS" 1d»$ubm1c2 n«ne»sulfii'it2> 

<Xend ifit> 

<P>4nbsp;</P> 

<p><a href«*menuidul.asp**>Retum to 
Buyer Main Menu</ax/p> 

<a hraM>sr«038.aspMetiim to NMe search screen .Va><p»«nbsp;</p^ 

</eoor> 
</KmL> 
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•dce Lansuftfia-VBScrlDt 9E> 

<Xopclon Explicit a& 

<i— finclude vi rtiiaU"coimorv/adovbs»1nc" 

^tETA namEb^GENCRATOR* contenfr'*Mlcrosoft visual studio e.0"> 

<nTL6>PAY-PCR-VIB* PSOIQREC - Omobo lUlatlonchlps to Vlw</TITL£> 
^^-P»-VIO# PCDZCAEE - Choose ReUtlonthlpi to View (Fe« for ««vt Screen></H3> 



•« 

' Respon&e .wrl te "gri djd01a"4rcquestC"grld J dOl") 
'came from dbsrchJO.at^ 

'This progran 1«ts s v1e«»er choo»e ftnd pay for names. 

*Th« first rims this osgo 1c rstrlsvsd. and sny rlma It is 
'submitted trithMit being completely filled out, the form 
'Is displayed. If It is submitted a^d completely filled out, 
the form is processed In the Else clsuss. 

If request("11r»t.cnf*)-l then *1f only one name comes In. take \z wiu.out e checkbox beino set. 

START^PERSOKJttMlEQUeSTCCRXOJOOOOr) 
else 

FOR X-1 TO reQuestC11n«_ent-5 '2$ 

IF REaUE$TC"CHK~45TTix5-l THEM 

START.PERS0H..XI><<tCQUeET(*'OlI0J[D"<(STR30 
EXIT R)» 
END IP 
NEXT 

end if 

'Response .Write STAftT.PERSOM^D 

'If RequestC"stert4>erioit_*d' >«'"' then 

'Enter the nunber of the person where you would like to start the 
'PAY-PER-VIEW pedigree search.<p> 

\<POim METHOD-POST ACnoi^"dbsrch20,asp* 1d*fonnl nwe-formU 
start Person 

*<INPur TVPE«-TExr* IIAME-*'<tart^crsof|_id'' SI2E»14> 
Owner XD 

'<INPVr TYPEiTTEXr NAMEB"oimer.1d'' SIZM> 
'<<p> 

i^^SSfl'^^'"*^*'* v«lues"Start Search" Idssubnltl nanivssubnn tl> 

'<3telse 
'<% 

'Oim strSQtTeup, tablejiame, owner.ld 

' create temporary table for cookie processing 

; tabl e-ne«e.;t raee**r1 idit(stHngr8 ."0")*requc stCowne r J d") . «) 
tablejM«e«"cr«ce"&l enCrequescrstarcpersoruld-) .8} 

Din cnSearch, research. rsSearchF, raScarchM, raSe»rchC, rsSearchS 

Dim iiistartjjer6on_ld. x. stiuc. start_persoh.io 

Otn strSQLD, strS<3LlF, strSQLlM, strSQLlC, strSQLlS 

Wm strSQLlp, strSQiilar, strSQLF. strSQtM 

fff!^;-!"-!"!^!^ rjLlnkM. rsLjnkC, rtLlnks. rsLlnkP. rsLlnkMar 
0%m nne^cnt, f*ther_1d, mother.ld 
Ojci childLcnt, spouse^cnt, paren^cnt, narr1age_cnt 
Iriin xxK, XX • 
'xxx.77 

*XXk11 

Set cnSearch ■ Server.creatcfibJeetCAOOOa.Cannectlon'*) 
cnseerch.open "dbl" 

Set rsPey = Server.CreateObjtctCADOOB .Recordset") 

Set rssearch^- Servcr.createObjectCAOODB. Recordset**) 

rsSearchF » Server .CreateObJectrADOTO.Recordset") 
Set rsSearchH • Server .CreatoObjectCAOOOB. Recordset") 
,set rsulnlcF « server.creaceoblectrAOOoe .Recordset**) 
Set rsLinkM - Server, CreateObjectrAOOOS .Recordset") 
Set rsLinkP o Server. CreateObiectCADOOa .Recordset") 
" |«"'«''-Cre*teobJectrAD0D6 .Recordset") 
Set rsLinkS « Server. CreateObjectrADOOB .Recordset") 
Set rsLlnkHar « server .createobjectCAOOOB. Recordset") 



Sessi onT" startle peon.1 0-»tart-pe rson_i d 
fron ttw opening screen 

' Response .trrfte mstert^rsofuld 

'x«l * cenvorary debuo 
'Do while x<S *2o.3 

StrSQLps" SELECT personal d. person^lnafflc. perion_fname. "& 
"parsorunnema, persofusex, 

S5-*J}->**'"' *>lr*!t»wnth, blrtluday. b1 rtK.couotry , 
"b1rth.«tate, blrttucounty. blrttuHty " 

from pcrsorut 4_ 

"Vhere pcrscruld - tostart_person_1d «"*• 
'strSQLlF- "select ♦ from Llnks.c ahcra personl - " 

• A " and Relate like '»«*" 

!**r59!;'?' "Select * froe Lliik*«t where personl . * 

tr***" 8a»tarCperson,id . 
' * " and Relate UKE^PX"* 
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strsOLlPo "Select • from Link&JC iihert personl « 
*. Cfflftert-P«rsofV-1d 

• A " end ReUtt UK£^«'" 

•A " uMon 
"Select 

• 4 ** end <R«Utt UK& 'KMC' or Relete aiCE 'SMO" 
StrSiM-lPs^SELECT persoruld, pereoi^lnaine , persoa.fn«ine, 

"perspiumame, persorusex, 

"Mrtli«y«ar, personl, relate, 'OOOOOOOOOO* aa owner 
"froei tlnksu.t. persoo^t "4. 
"Mbere person28AerMn.id 

- and relate tike 'PX* ^TL 
"union *• it. 

"SELECT persoruld. perion^lntwe, person.fnanie, 

*^pcr&orunn«itte. parcon_sex. "4^. 

"Mrth^«er, personl, r«1ati, owner "1^ 

"froei Iink«_t2, periOfi.t -4- 

"where person2-person_1d 

"and personl- <fnst«rt^erson.W 4_ 

" and relate Like 'PK' " 

i*^r59!T''S" "select ♦ fro™ Links.t where pertonl » 

A**"' tostertLpersoOd if"'" . 
' " and Relate LIKE 'OK'" 

• ** " and Relate LIKE 'K3f" 

StrS<lLlc«"SELtCT per«on_1d. persoOname* person_fnane, 
person.jnnanw , persofv.»cx, "4^ 

"birth veap, •>rr$onl, relate, '0000000000 • as amtr "A^ 

froei LInksLjt, pereon^t 

Mhere p«rson2Bberson.1d "tu 
*and personls <MStart_persoOd A 4_ 
" and relate Like 
"inion " <i_ 

I^SELECr p«rsan-<d, personal name, pcrson_fVum« . 
' pftr»orunn«ne, persoru.sex, "4^ 
;;b1rttvj/eap. persona, relate, o«ner "ft. 
froei unkf^ti, p^rsor\jt "iu 
*wher« personZBperaonJTd 

! •Jr^S*-]!' "S*!*** • ^fom l-lnke-t where personl - 
«Astart_person id A"'*' . 

• «r " and Relate LIKE^SX'" 

*'Sf " and (Relate LIKE '«»«• o« Relate LIKE 'aWK')" 

St rSQLlS=" SELECT person_id, pcrson^lnwe, personjfnime. "A 

"personjnnniie. person.sex, 

birttyvear, personl, relate, 'OOOOOOOOOO* as owner 
;from Llnk«_t, peraon^t "«u 
'V^ere person2-per«on_fd "4. 
"and personl;^ anist«.rtJ>«rson_id A 
" and relate Like 'SS' 
||un1on " <L. 

USELECT personal d, personal nmw, persorufnamc , 

personjnname, persorusen, "ft. 
.'!2i'**-y**''< personl, relate, owner 

Tron L1nks_t2, person_t "4. 

where person2t«person«1d "«u 

& '* or marrjwffcupo ■ ** ^ 

amstarCpersofuld 
Response. wnte strsqlp 'MsgboxCstrSQLf) 

'Sub t«stl(xx) 

*XXX«MM 

'End sub 

'tesU 123 
;t»$tl 456 
'Response .Write xxx 

If rsscarch. state « adstateOpen then research .Close 
'raseardi.open itrSQLp. enseareh ', adopwidy;;*?" adLockOptl™ 

rsSearch.Cpen atrSQLp, cnSearch 

If not research- eof and not rsseareh.bof then 

•rst-inkF.Open strSQLlP, cnSearch 
rsLlnkM.open 8trsm.]«, enseareh 
rsLlnkP.open strSQUP, cnSearch 
rsLjnkC.Dpen strsqLlc, cnSearch 
rsLlnkS.open strSQLlS, cnSearch 

^fi f 5*-^"''^^"^ •"'^ rsLlnkC.eOP Chan 

chlld^t-O 

else 

do until rsLi nice, EOF 

chi 1 d.cnt»eh1 1 d.ent«l 

reLlnkc.Wo^elMxc 
loop 
end if 

rsLlnkc. close 

if rsLinkS.BOF and rsLinkS.EOP then 
spouse^cntxO 

do until rsLlnks.eoF 

spouse.cntsspouse.cnt^'l 

rsL-tnkS.MoveNexe 
loop 
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end If 

pf Littles, close 

If rtLlnkP.BOF and rsLlnkp.EOF then 

p»rent_cnt»0 

else 

d9 until nLlnkP.BJF 
pa penC-cntMparftn^ent-^l 
rsLlnkP.NmrcNwt 
loop 
«nd tf 

rsLlnkP.cloM 

r3LlnkM«r.0|^en strSQLMar, cnSearch 

1f riLlnkHar.soF and rsLlnkM«r.EOF then 

mrri ag^cnteO 

else 

do until MLlnkMir.EOf 
ma rH agc.cnb«ia rri a9«.cn ttl 
rs Li nkMar .NoveNexc 
loop 
end If 

rsLlnkMr. Close 



Bstart_per»on,id e rsLinlcF<"ptr$6n3'0 
•father.id • r»LinkFC"p«r»on2*) 



' Rfisponse.wri ^ "f athep.1d"&father.1d 

;strsQLF="stLECr per$ofu1d, oepson^lname. persofufname, "4. 
'*p«r«on.jnnin«, parcon_sax, 

!!!?1'***^y*»''* birthjnonth, Mrtl\_day, b1rtK.eevntry, -fc. 

*"b1rth.state, blrttucounty, b1rth_c1ty *'&_ 

'••from person.t "K^ 

"**Kher« persoruld « *" «rfath«r_id 

•rsSearchF.open »tpSQLF, cnS«drcH 

• ■iftcapTuwryon.ld » r»Llnl*K" persons") 

'nothor.'id « rsLinkMC"p«r*oft3"} 

' Response. Vrfte nstartLperson-1d 

'SCrsQU^^StLBCr person_1d, person.1name. persorufnanw, "* 
person-mnane. person^sest. '*<k_ 

•"Mrttuscate. blntucouflty. b1rth_c1cy "4. /- 
•"frtti persoiut "l^ 

"Sdiere persan_td b "* taotheOd A*"" 

'rsSearchH.opcn strSQLM, cnSearch 

'BELOW MAS GDINQ TO 0BSRO421.ASP» then redirOZ.asp 

<POW METHOD-POST AcrioH-' db»rc04l.asp" 1^om2 nane»for>n2> 

Starring Person^ 
Namai Last 

-aMPUT lYPE-'TEXT" NAME-" start.! naroe" size-l$ value-- <J6-r5S«archrper>on.lname")»>-> 
F1 rst 

SfddU *WME«"scart_fnaine" SI2E-1$ value="<fcrfSeapchC"F«rscn_fnama-)X>-> 

<INPUT TYPEs-TBCT" NM&t-srartjmame" $«e-lS va1ue«-^rssean:hrpt, s5iu««a»e-)«>-> 
Blrthi Year 

<JJ^^»'E«'*TEXr" rWMEa"scarOirth_ycar^' SIZE=4 value."<X=r5Sedrcf;t v irc'i_y«*r-)X>-> 
^b!!>^*II^^2^ N^e--startj,Brsoi\.id" SME-W vatwe--^rsS€arih, .;er$on_»<(">»>"> 

sfita^'cSerr; Jisis^sa^te^hrr^sn^sSiW^^^ 

^>V6« ««y select any or a]l of those names t» see more detaOed d«a tfor more small fe..^ 

^ the next screen you may el«> cl-n,. the starting/focua perse! »id":srESu*^{h;rS-mov. thrxHHih the pedigree. 

Parents of starting Person <M> 

Ottta contains ^Uperen^entjfr parent recordCs).<br> 

<lNPm TYPEfi-checkbox" N*M6»"parent" valuEbV checked>5hoM Parent MasvCs) 
Spouse of starting Person <8(t> 

Data contalni 4K-spous«L.cnt5f> spouse recordCs) ,4>r> 

KZM WT TVPiB^ch^ kbox" NAM&i-spouse- VALUEsV checked>sho«- Spouse Mai*CO 
Narrfeges of Starting Person <BR> 

Data contains <6««arr1ag«L.cntt> marriage recordCs).<br>> 

<IMPUT TYPE« checkbox" NAM&."n«rr1 ige" VALUE- V chacked>Shoiv lUrnage Event<s) 



Children of Stmrt1ng_ Person <S^. ^ 

* VALilEi-^^ ctecked>Show Child r»o.: .vj»\<br> 



cni I oren or stmrting Person <fif& 
?5SS.^*S2Si"S^^'V-<"«^ <Wld record(s).<br> 
xINPVT TVPEo^cheekbox" MME-'^cM Id" VALUEi' V" checl 



VSIJL^"*'**"'^*" ^ SELECTEO" 1d»sub«)C.' .^*n..wbnil t2* 

^Ise ' the case where no selection was mad«)& 

<PCMM METH0ft>POST ACnoiN"dbsrc038.asp** id>f«ma nasie»fbni3> 

<h3»>llo name was chosen. Return to Selection list.</h3> 

Sfo1i5>^**^ value=-Rettiro t» Seleecioo tiat" 1dsaiibnic3 na«*sub«iO> 

<dfand 1flb> 

<p>&nbsf>;</P> 

*<P*5* •j^5™"«^ut>"yi-asp">«etum to Buyer Main Menu Va></p> 
<• href-db*r€03S.asp>Retum to Name Search Bcreen.</a> 
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<M LAnguioei^VScrlDt f> 



<!-- finclude YirOJaVoowBon/adovbs.inc" — > 
<HTMl> 

NAMEa"GeNEKATOR" Contents"Mlcrosoft Visual Studio 6.0" 



<TrrLE>PAV-peR-vlB* pedigree - Select SMclfIc Names for More Data </JXn,t> 

oi3>PAY-Peil-View PEDIGREE - Salact $p«c1fic NaiM* for M»r« Data </Hi> 

</HEAD> 

<SO0Y> 

<HK> 

<X 

Response. Write "LIMIT/wseD"*M«sion<"bu/ar_najn«.11»it*)li'7"*«e«»<on("buyer_naoieijJsed*} 
<r iass1on('*buyer_naffle_11in1t'') - session (''buyer.jmeftjused'')< I then 
•eiaionrb«jyer.1cg9edLon'*3>*'buy«r loflged off* ^ 
SESSXCiit(*buyer_log_ffcsMg«")«"Ke»ched Hanw Llarft for on* day" 
X> 

<FORM METHOD-POST ACnON«**1e«by01,up*' Id^^nnl niineKfornS> 

<iNPvr TYFea*'Texr* NAMep**ljoaj(ESSAi6C'* SIZEMO value-^RMehad hum Uailt for on* day% 
<iNPUT TYPE-**subnrit" v«1iie»''exzT FOR TOMY" Id-submltS naimssubRilts> 
ELSE X> 

cRMUl tCmOOcPOST ACn0N«*'dbsrcO4S.asp" 1d«fonnl naine>fbnRl> 

Starting Focus Person<p> 
Kama: Last 

<IMPirT TYPE-'TeXT** NAME-" starO nana" SZZCslS values'^flfcrequestC" starts! name ••3X>"> 
First 

<INPUT TYPfia'Texr*' NAME-" start_fhant** SZZEwlS value-''^(-re4U«stC"start.fhaBw'')>^'*> 

Hiddla 

KlHFVT TYPE-'^EXT* NAME»*'stArtjsiuia'' SXZE«1S va1ueB''-dUrequcstCstartjin«nic**)%^"> 

<BR> 

Birth I Year 

<INPirT TYPEs'TEXr* HAME«"start.birth_ye«r* SZZE«4 v«1ue«''^raquastC'»tart-b1rtK_year">5(>"> 
Reolctryir 

<XNPvr TYPE-*^EXT" NAME«*'stftrtLI>«rcon_1d" S22Est4 va1uaB'*<jlkrequcstCstart-pcrson_1d'*3X^"> 

<IMPirr TVPEo"hidden" NAME*"apoufa~ SIZEoi value3-<»=r«iuestC" spouse •*)X>*'> 
<XHPVT TVPC=*'Mdden" NAi4£*"pQr«nt'' SI2E^I v&lu««'*<X-r»quMtrpar«nt"^)^ "> 
<IHPvr TYPe»**h1dden" MAMe3"chnd" sxze>l v*1uc-"<St-requ««tC*cfind~)Xy-v 
<lHPVr TYPE-'^hldden" NAMEa'-MARRlAGE** $2ZE«i va1ue«"<»ircquest<"marHAge'')X>'*> 

<BR> 

Select Person Cs> below for:^r> 

<iriPUT type*" radio" nama«s«1jnod* value«*'OATA'* diecked> 
Z none to Of splay Data (choose any nun^r of names)^r> 
'CINPUT typaa" radio* nanie«se1_mode values^PEUON" > 
X «ant to Change '*Feeu« Person" Cchoos* only ona naaM}<fo 

<l— If Display Data Is chosen, <BR> 

<lNPur types' radio" namease1_NANE value-'ALL" checked>> 

t ivant to select All Names<8i^ 

<IMP(nr type>*rad1o" naine8sal_nam« va1ues**S0ME'* > 

I want to select only sotw of the nani«xP> --> 

Choose level; of data to display. <I~(NOTE-For Beta testing, cunulative pricing used, not selective pricing. ••><BR> 
<INPUT typeaVadio" naine=rev_niethod value-^cUM" checked>Cunuiat1ve selection 
<INPUT type- radio nawe-revjuethod value=:'*lN0''>Indiv1dua1 Selection 
<Bi&cuaBi1«tive Selections 

•dNPt/r types" radio" nanesrev^all values2>eas1c Data 
<1NPUT type-'* radio" naai««rev..a11 valut33>Cites 
<1NPVT type-'Vadi©" nesnesrev.all veluc*4>Text 
■ <INPUT typemt- radio* nantenrev_All valueB5>Photo 
<lNPUr typ^" radio** najpe-rev.all valuesE checkedxrite Image 
<BR> individual Selections 

<INPUr type-"checkbox" namesfel02 valuea'V ch€cked>Bas1c Data 
<INPUT types^checkbox* name-selOJ valuaB'V checked>Cltes 
<INPUT type»" Checkbox" nantaseKM valucs*V* checked>Text 
CINPUT typo-" checkbox* namessalOS value^'V cheeked>Photo 
<XNPUT type-" checkbox" name-sel06 va1u«-*'V" checlced>c1te linage<br> 

Oin cnsearch, rssearch *. rsSearchF, rsSearchM 
Dim nstart;4>erson_id 

Dim strSQLC. strSQDC. strSQLS, scrsQLP strs<])uc 

Dim X. stry, buyer.id 

buye r_1 d=se ssl on(**buy er.l d") 

'Din rsPay, rsLinkF, rsLinkM, rsFees 

•DIM FE£_RATE-1, f*«„r»tO 

•DIM faO>er_id. nother_1d 
Dim narcucnt 

*nanM_cntaK) 

Set cnsearch - Server.CreateObJcctCAOODS. connection") 
cnsearch.open "dbl" 

Set rsSoarch - Server.CraateOb1ectr''ADooB. Recordset"^ 
*Set rsSuyrr = Server. CreateObjectCADOOB. Recordset"} 
ms ta rtjje r son_1 d= request C" start_pe rsorvl d*" ) 
•CheckandCharge request<^startj)er«onJd") , "0000000001** , 1 
Checkandcharge reque^tC^start.person.Td**), buyer.id» "IO60OOOOOO" 

StrSQU^"$ELECT personal d, person.1namft* persorufname, **&. 

"persoitjnnane. persorv.sex, 

"birt*x_year, par Eonl, relate <t_ 

•*fron Linki^t, pcrsoa_t 

"iKhere perMn2-parsorv.{d "4_ 

"and peraonli* *'* tastart^arson.id A'*"* 

* Focus Parson 
x> 
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<bn»<lNPUT typescheckbox nanei^cus VALUEPl>Oirrent Focui Person • show data details 

<tt> — Last Pi r»t" Irtddl e b4 rth — tLtgi atry — — U nk Otm^r 

<M> — Main* Htm name- vear Mimber NuHb«rVtt> 

<X 

'Response. write -oi»tarc-''«in»tart-person_id 

• Req ues t . wrl te " spou se«"4r»q ue s tC spouse") 

If regue»tC*spou»e"> «"Y" then 

* sestfonCspouse^ei ect")«''V^ 

*StrsqLS«strSQUC & " aftd relate Like 'SX' " * should b« S, WAS 
StrSQL5>''SEtECT persoruid, persofulname, person^fname, 
"personjnname, p«rson_sex, 4L 

"blrth^ear, personl, relate, "* &1eftOn9tarti^erson_id,10> tT* as owner "iu 
"from Unkft_t, persofuc "iu 
"irfiene p€r»on2»per»on_i<t "St^ 
"and personls fimstart-persoruld A""* 
" and relate Like 'SX' "4. 
"union " 

•select persoruid, p€r«)n_lnam«, persen^fntne. "&„ 
"persoojnnane, person_j»ext "fiu 
"blPttuyear. personl, relate, omtr "4« 
"from Link«_t2, p«r»on„t "A_ 
"Mhere person2<-per6oiu1d 
"and personl- Onstart^trsoiuid 
" and relate Like 'SX' " 

' response. wHCtt strsqis 
rsSearch.open strSQLS, cnSearch 
%^ 

<BR>$pou&es 

'parent* cpouse, marriage, child 

do while not rsSearch.EOF and x<99 
strX=r1flhtCOOOO**4«,2) 

rcsponse.wri t« r'<brXlNPUT typeacheckbcx n»nesSchk"AstrX &" VALUEsl>") 

response .wri te c"<IHfVT type-text name-'* a, 'siname" A tzrx & " values^ArsSearchCperson-lname^W' sl2e=10>"3 

response .wri t« c"<iHPtrr typc=text namea" & *sfna«ne" & strx & " va1ue3"&rt$earchC"person.fnaine")&" 5lresl0>*'5 

response .wri te c''<i«put type«text namea" & "snname" & strX ft " va1ues"&rsSearchc"persorLjnnaiie''jft"Cf)bsp;'*&* s1zealO>") 

response .write (••<IHPin' type=:t«xt name=" Si "sbyear" & strx & " value="&rsSearchf "birth^car")*'* sizesS^"* 

response .wri tc t"<irffvr typa*t«xt name*" & "Sid" ft strX ft " valua»"&rsSearchC"*person_id")ft" size=M>"* 



response .write ('•<IHPin' type^^text names" ft "sbyear" ft strx ft " value="&rsSearchr'birth^car")4 5ize»5>"j 
response .wri tc t"<irffvr typa*t«xt name*" ft "Sid" ft strX ft " valua»"&rsSearchC"person_id")ft" size=M>"5 
response .write ("<iHPirr type^ext names" ft "scwner" ft strX ft " va1ue-"ftrsSearchC"ownar"^ft" Blze«10>"> 

ChecksndChargc r»5e4rch("p«rson_id"), buyer^id, "1000000000** '<anu 
rsSearch .movenext 

'if xoi then firstree-rs search. bootoiark 
xsx+l 
loop 

rsSearch. close 
name^ t=name.cnt« -1 

s essi on C " spou se.cnt " )=name^cnt 

nanie_cnt«0 

If requestC-PMCNT-) then 

strsqLP-" SELECT person_id, parson.1name, persorcfirtune . "ft_ 

"person.mname , person^ex, 

"birth-year, personl, relate, ft1eft(nstartj>arsoa.1d,l0) tf" at owner **4_ 
"from LlnksL.t, person.t "ft_ 
"where person2=persan_1d 
"and parsonic ^start_per9oruid ft"'" ft_ 
" and relate Like 'PX' "ft. 

"union " 4_ 

"StUECr per$on_id, pcrson_1nane, per9en_^sBe, "ft. 
"personjnnaroe, person^ex» "ft_ 
"birth^ear, personl, relate, owner 
"from Links.t2. persoi\_t "ft., 
"where person2>personjtd "ft_ 
"and personl" te9tart.4>eraon.id 4"*" 
" and relate Like 'PX' " 

'strSQLPsstrSQU ft " and relate Like 'pX'" 

"StrSQLPastrSQlX ft " and (ralata Lik« '%f%' or relate Ilka *9MK')" 

rsseareh.open strSQLP, cnSearch 
%> 

^R>Parenti 

'parent, spousa. marriage, child 
xsl 

do while not rsSeirch.EOP and x<39 
strx^riohtCOOOO-ftx ,2) 

response .write f"<br><riiPUT typescheckbox namesrf>chk"ftstrx ft" VALUEai>") 

response.wHte c"<lNPUr type-text name-" ft "Plnano" ft strX ft " va1ue="ftrssearch("persofulname")ft" $izeslO>"> 

rasponsa.write r<lNPUT typestext naraea" ft "Pfnane" ft strX ft " va1ue«"ftrsSearchrpersorufnaine")ft" s1zeelO>"> 

response.wri te C<iNPUr cype«text nana." ft "famine" ft strX ft " va1ue3"ftrsSearchC**p«rsonjmaffle")ft"ftnbsp:"ft" s1z»»10>") 

response .write fViNPtrr type-text nane-^ ft "Pbyear" ft atrx ft " value-"ftrsSearchC"birtK.year-lft^sizc»S>") 

response.write f"<INPUT typeatext nanea ft -pld- ft strx ft " value«"ftrssearchC*peraon„1d")4" »1ze«14>-"5 

response.wnte <"<IMPUr type-text nane^ ft "powner" ft strX ft " va1ue3'ftrsSearchC"owner">ft" sIzesUOO 



Checkandcharge rsSearchCpcrson.id"). buyer.id, "1000000000" 
rsSearch .movenext 

'If xsl Chen firstrecsrssearch. bookmark 

x-x-fl 

loop 

rsSearch. close 
fleme.cnt)i4\uw.cnt-fx-l 
y nd Tf 

se»&ionC"p«rentLj:nt")»«aine_cnt 

• response .wr1 te "parent_cnts"ftscss1on("parent.cnt") 



05/05/2004, EAST Version: 1.4.1 



us 2002/0032687 Al 



68 



Mar. 14, 2002 



C!\pat<nt\Modu1e»\0MRC041»ASP 



If requ€$tCch11dp^--Y" then ^ 
'StrSQL^strSQLX ft and relate Like 'CX' 

•strSQLCBStrSQLX ft " and relate Like " ' 'OOOOOOOOOO' is owner ' 

strSQLOi**s£LECT person_id, person_1nu)e, pcraon_fh«Mi "^L 

"blrtK-year, personl, relate, "* ft1eftCnstmrt_person_id*10) ft"* as owner Jc. 

"from Link«_t, person.t "ft_ 

"where per«on2«oerson.1d "4. 

"and per»onl« ''^ 4flistftrt_flerson_ld ft—- ft. 

- and ralate Like 'CX' 

"union " «u 

"SCLCCr pereon^ld, person_1narne. persorufnane* "du 

"persorunname, person^ex, "ft_ 

"oirtK^ytar, personl, relate, owner "ft^ 

"f rom Link»_t2, persorv^t "tt^ 

"where person2sperson_id 

"and perconls tastart-person^ld ft"*" &_ 

" and relate Like '<X' " 

rsseirch.open strSQLC, cnsearch 
%> 

<BR>Ch11dren 
*x 

'parent, epouse, mrriage, cMId 
x>l 

do while not research. EOF and x<99 
etrXsH ghtC'O0O0"ftx , 2) 



;"<brxlNPUT cypcacheckbox nenieaCchk**ftstrX ft" VALUE-1>") 

"<3WPtnr ti^estext names" ft *'Clname** ft »trX ft " valu©«"ftr$search(*'per8on.lnan>e")ft" s1zesi(^") 

••<JNPUT typeatext rtane«" ft "cfhanM" ft etrX ft " values"ftreSearchrpersoa«fname";A" s1ze»10>"j 

. _ _ . i.. ..i... ^ 



*<INPlfr cypesrexc name*" « "Omaoie** ft »trX ft " va1ueB"ftraSearchr"per90fVjnn«ine")ft"ftnbsp}"ft" size-l( 
'kIUPUT typestext nanes" ft "Cbyear" ft $trx 6 " valueB'*Ars5earchr"b1rth_year**)ft'^ slzeaJV) 
'<INPi;r type»t«xt n«»e-" 4 "cld" ft strX & " value«"ftrsSearchrpersonlid")&" a1zeail4>"5 



response.wri ce 
response. write 
response. write 
response. write 
response, write 

response .write 

response .write ("<INPirr type«t«xt nafDeo" ft "Cowner" ft strX ft " va1ues"ftrsSearchr**oiMner")ft" alzeslO^**) 
CheckandCharge rsSearch("person..id") , buyer_id, "1000000000" > ^ 

research .mo venaxc 

*1f x>l then firstrecKrcsearch.booknark 
loop 

rssearch. close 
naine^cntaninML.cntfx-1 

ses slonC" chl 1 «Lcnt")snamejcnt 



<l— fINCLUOe VIRTUALB**C0f#«M/CH«lGE02,INC'* 



<ZNPirr TVPC*" submit** va1ue«"5Haw details for names SELecrcD* 1dssubant2 naiiKB»ufain1t2> 

</FORM> 

<(XeND IF *ih1s is to skip the whole thing If the name quota Is reached %> 

<P>ftnbsp;<^^ 

<pxa hrerB'ncnubuyl.asp''>iietum to Buyer Main Menu <</ax/p> 
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<X0 Languag^VBScrlpt )^ 
4S9pt1on Explicit » 
<l— MncltJd* virtual 



<HTML> 
<NEAO> 

<«STA MAMC-'CEMERATOa" Cont«nts"»Hcrotoft Vlsu»t StUtHo 6.0"> 

^rrLE>PAV-PEJl.vlw PEOICREC - Show lndwf<faial Oet«il$</Tm£> 
^3>PAY-P£R-VIEW PEDIGREE - Show Individual OetAlls </H9> 
Vheao> 

-dK 'b«fl1n parson- Mflteh routliM 
Oin x» Ktrx, chic_perwru1di llnccnt 
Ml) cnSearch 

Oln aNameWiuchccfced * • CHECKAnpomrgc 
Din stsruersofuld 

st«iXJertoru1 d^rcquc itC itart^ersotuid") 
'mtrrjtu&jw « start^ersofi_1d 
•«arrjirtfi_i» • naatOd 

-ff requ69tC"se1_mxie''>."PEllS0N" THEN 'OATA 1» default 

FOR Xml TO scs»1onC"»pouse_cnc") '25 

STRX-RIGHTCOOOO'AX, 2> 

IP KEqUCSTC"SCHIf**A5T«X>>tl THEN 

CHK_PERSOH_IO-R6QUEST("SIO"«STW0 

4NBinttiras(}iecl(ed3''r* 

5t> 

METHOO^T ACTlON--db»rc040.Mp" 1d^on!i2 n«nie.fbnn2> 

<d>rxiNPUT typ««ch«ckbox n«o«schkOOOX VALU&«1 ch«ck«d> 
Rsaistryi 

^fipUT tYPEs-TOCT" HAMEa"orld_1d0OOl- SZZEsl4 value«-<3fctchlu»rson_1dK>-> 
<INPI;T TYPE-"Tecr" IIAME-"Tln«L.Cnt" SIZ&i2 v»lu«-l> '*^'^*^'»"-^"> > 
^MJWT^"nrPE»-fulwit- value.-QOMnNUE" 1<fesiibmlt2 name-subn1t2> 
•dK 

END IF 
NEXT 

FOR X=a TO sesslonC'parent.cnc'*) '25 
snu&=Riarr<"oooo"^d< , 5) 

IP RCqUESTCPCWTASTWO^l THEN 

CHK_PERS0H_rD»REQyesrC"PI0"4STRX) 
AN«in«wasCh«ek«d«''r* 

X> 

METHOParPOST ACnoi*»"dbsrcO40 .Mp" Id-fonaZ n«Bi>fonn2> 
Th* scrMns iv111 continue «iith tha now focus namt chosan. 
<br><INPin' typescheclcbox nsineac^lcOOOl VACUE*! chcclccd> 
RCQi stry# 

<<amvr tvpsb'text" nAMea^gridLidoooa." sizu^ vftiuA>**^c4ik «<i«o>^ 
wSSSL''^^*'*"^^' va1ue-"a>ifnNUE" 1d-subn>1c2 naint*subn1 12> 



END IF 
MExr 

FOR XrI TO sasslonC-chlltLcnt") '25 

STftX-RICHTC"0OO0*'^, 2) 

'Response .Write 5TMC 

• chl:najna="chk'*Astnc 

IF REQUEST(-CCHJ<"4STRJ0-1 7HEH 

%> 

<Fom HETHOOtaPOST ACTiorh.-db8rcO40.a$p- Id^ma nme.rem2> 
Tt?* ^ri*"* wrfl I contlouB with th« n«w focus naiM chosan. 
<»'><I»*WT typeschtcfcbojc n«ne=chW00l VAtue»l checlted!> 
KCQi scry# 

^JPUT^TYPEB-iMbfult" va1u««i*'C0MriNue" 1dssubm1t2 names$ubn1t2> 
<» 

END IF 
NEXT 

g il5aSK;.SSSfea25!? Bin"' »^ p^'^" 

^Mi MSTHOObPOST ACTlOH=-dbsrcO40.asp- 1dafon7i2 narae<:fonn2> 

TOU nade no se taction or « new focus name, so screens will eantlnuA H4t4i ^mtM,^m^ 

^r><iNPUT type-checkbox nwne-chkOOOl VALUE-1 SecSd> ^^n"""* "1th original nam. 
Regis tryf 

^J^TYPEb" submit- valuea-COMTiNue- 1d»subnr1t2 namessubnl C2> 
end If 



ELSE *end of person switch sect1ert& 

<fow KETnoo.pofT Aicrtow»-db»rc041 .asp" Id^cnm nmn'^mi> 

starting Person<br>' 
Hanti Ust 

<lH?vr TYP&i*TEXT" IIAM&"itart.lnama" siZ&dS valute"^rtqueatCitart_ln«ie")«>-> 
First 
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<INPUr nvC'TiXr' liUME»"start.fn»i«" SIZEslS va1uea*^requtstC*ttart^fn»ne")9b."> 
KlHwr 'TYPeis*'TEXr" names" startLrmame* SIZE^IS va1ues"^re4ue$tC"starX/wimie'*)X>*'> 
Birth: Year 

<iNR;r TVP&*TExr'* iiAHE-'turt-MrtK.yMr'* si2Ee4 valu««"^r«questC«eirOlPtluyt»r")X>''> 

<ZNf>UT TVPEff'TEXT" w»HE»''stiPtj>firBoruld*' sizCsX4 valu«»"<afcr«que«tC'*«tartj«r«on_1d"3l&*> 

<l «-ftRa ■»■■■—■■■■—> 



<lNivr TfPE^'hldden" MMKo'Ynrnasa'' siZE-l va1uo''^rcqu«scC1nurr1aoe'')»>'*: 
<x 

'create facrcquest 
lH« f««urcqu«st, reveal 1 

r«V_al 1 -raque* t(" rav.al \ " ) 
fee_request*"0000O00O(X>'* 
if r«qu«stCr«vjMthcMf')«"CUM'' than 
for X"2 to rev_al1 

f «e_requef tsleftCfM.request , x-l)*"l"&r1 gh t(fee_requc st . lO-O 
next 
else 

If rcqu«scC"s«l02''>="r then 

f«c_request»1 «ft(fee_request I"4r1 ght(fee_request ,10-2) 
€nd If 

if reque»tC''Ml03-)«*'V than 

^•^f^que^fl "f t (f •».Pequ«»c, 2>6'*l"4H ght<fe«_requeit ,10-1) 
€nfl IT 

If reque»t("Ml04-)-'V <*»en 

f ee«rftqueit»1 ef t(fee„ncque»t , 3)4''r4r1 aht(f«e_requMt , 10-4) 
if rcque»tr»clO$")-"y" then 

fee„r«queste:1eftCfeft_request.4)*"l"Ar1ahtCfae_request,10-$) 
if reqtte»tr»el06")="V- then 

fee.rMuest»1eftCfee.request,S)ft"X''AHoht(fee.rcquctt,lD-6) 
and It 
end if 

' nasponte .wrf ta "f ce_r«quaitti"^aa_raquast 



set cnsearch « Server.createObjectC'AOOOB.Oonneetion'') 
cnsearch.open "dbl" 



if reqtwscC"focus"}«l then 

oiiLpERSOILio«Rl(iUESTC"atartj>erson_1 d") 
oisplayMama CHK.PGRS0fL4D, ^ 



EHO IF 

FOR Xsd. TO setsionCspouae^CTt") 
5TRX=RIGKTC'0000"4X . 2) 
•Response. write STRX 
' chknaine«"chk''^rstrx 

IP ReQUESTC"$CHK"*STRX>«l THEN 

CHK_fERSO»LID=REQUEST<"SID-&STRX) 
DispUyNaiM CHICPERSOHJCO, ""S" 
'Response .Write "chk"*strx 

•Rasponst .write REQU65Tf-chk-««tnc) 

Retponaa .Write requastC''grid.id''«*tnc) 

'Response .Write START_perS0HJI0 

•EXIT FDR 
€N0 tF 
NEXT 

FOR x=l TO sesslonC'parent.cnt'') r ^ , 

ST»OWIICMT("0000"*)C,5) 

'Response .Write STIW 

' chknaine="chk"Astrx 

IF REQ(«STC"PCH>r«5TW0-l THEN 

CHtC.PER50ILID=REQUEST(*-PID"4STRX) 

DispUyNans CMiCPCRSOfiJO, "P** 

eno IP 

NEXT 

FOR xpI TO sesslonrchlld.cnC) 

STroc=RICMTC"0000"*X,2) 
• Response .Write STRX 
chknime-*'chlc-«stnt 
IP REQUeSTrcCHK"«8TRX)«l THEM 

OIK.^ERSOI|J(0-REQUEST(''CID''«»TRX} 

DisplayNaiM CHi^PeRSOfCID, "C*" 
£110 IF 

mrh --- ■ III ■ II 
<afb^ 

<INPvr TVPE-'subnit" va1u«»"sELtCT AND DisPUY MORE WKfS" {d«9ubait2 nane«siibmit2> 

^P0RM> 

<»B«0 if ' ind of main pr oprani 
'If rcqve«tC*s«1jiAHr*)«''AI.L'' 

•2.5o»1c Oat* 3.cUcs 4 .Text 5, Cite Image 6. Photo. 

Sub 0Up1ayM«ne (Msrae^id, relationship) 

Oim rsSearch '. rsSearchP. rcSearchM 

Olm atrSQup strSQLiF, airSQUw, SQLfaea 

Dim strsq^Text. rsTexc, linejwid 
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Din StrSQtimagc 
Dim strSQLPhoto 
Olifl STKJ, T 
Dim rsPub, pub_1tf, 



riPhol 



feOcvBls 

StrSQLFub 



f«O«v«1ss'*0100000000'' 'ftlirsyt charge h«r« for Uv«l 2 (of 10). level 1 ««» charged In pan dbsrc041 
' ethir charges arc added beloir. If requested and data Is available 
Set riSeareh > Server. CreateObjcctCADOOB. Recordset") 

$trSQLp«*$CUCr • "A. 

"from persoiut "4u 

"Mfhere pertoiuld « "* teamejd ft"*" 

rsSearch.Open strsQLp* cnSearch 
p«rson-sex ■ rssearchCpercoiuscit") 

'Father of starting person <br> 



•If request Crev-alT'^yl then 
if p«lationih1p» P" then 
Response .write C'<9fc ■ i i 



end if 
if relationshipa'S" then 
Response .write ("<Bm ■ 
end if 

if reUtionsh1p=^p- then 
Retponse .Write C*<BR>«»ai 
end if 

If relationshlpa'c" then 
fteiponse .Write (•*<BR>i 
end if 

Response .write 

response .nrrite 
Reaponse.wri te 
response .write 
Response .Write 
response .wr\ re 
Response .write 
response.twi te 

Response .write 
response .write 



>Pocus Person > 



•Spouse Name ■ 



■Parent Name — 



<BR>Naine; Last") 

,"^jJPyT-^type=t«xt valu«="4 *r6Se»rch("pfrson_1naais")&""A"6nb8p;"f siz«=lS >") 

l;;j{JPlJJ«tyPC-c«>tt v»lue-"4 &r$ScarchC"person_fhame">&--e- -&" s1ze-lS >-) 

..ii?!ir'^FyP*^?3**^^ vsluea-af" ' "«rsSearchCper»onjnname-)&" ' -«"«nbsp ; "4" size^lS 
^ Thi ra Given j 

"Titr?)'^'*'"'**'* '"*«S«»'-«hCp«"W-3n«fne">A"'»*"4nbsp;"A'' size-lS id«textl nane-textl>"> 

^BftSIx^****^*"* va1ue--&— •*rsSearchCpsrson.title-)»"-*-4nl»sp:-*- s1ze«lS id^extl nOTe-tBxtl>") 

<INPiJT type«text v*1ue-''4rs5earchC"persofU5ex"D&'' '*&" 5fze=l >") 



Response .WHte 
response.wri re 

•Response.wri te r"<Bft>Birth Veer") 

injSSIJ!wi^5*r^iJji^?^*'**'^ valuc»"«rssearchC"t)1rth-year-)4-4nbsp:-«- sizea4 >-) 

C<IfiPtJr type=t«xt ve1uee"A*""Ar»SeerchCpersori.id")*""'A''Anbsp;''ft" slzesU >•") 
^<BR>8irth» Year") 

'SonSr) uei"&r$se«rchC" bi rth.year-^A-inbsp; si zes4>"> 
oly^ *yP«-**»** velue-"«rrssearch(-birthji»nth")&*'*nbspr4" siie-2>-") 

^^<IMPUr twesteict v«lue="«rt-sSe*rch(-birtlv.da/*)A-tobsp:**ft" s1zea2>'') 
. Accuracy j 

rccocOM 2t?)***^ v»lu««"*rssearchc"b1rthj^r_a€cur)*"tob«pr*- s1s««4>-) 
"•^S'Tar^SSS^^ va1ue»"ArsSearch("birth.Gcn_riate")V4nbsprft" siz^iO>') 
''•<IHivr typ«-t«xt v»1u^-*r»SearchC"hirth^r.var">4"4rbspj"A" »l2e-3v") 
;**<8R>Place: Country (or level 1)") 

;":iSffaJi:r?iSJy"clru5;v'^ 

i^StT^oJ^jjiri)-)^"*'''*"'"*"*"'^^^""''**^ >") 

I'*<INPUT type-text value-' V'*rsSearch<"b1rth_city*')4*'"4"«rt»sp;"4" sixe-30 >") 
;"<8ft>airth Latitude-} 

alu 



response .write i 

Response .write 
response .write 
Response .Write 
response.wri te 
Response .write 
response .write 
Response .Write 
response .write 
Response .write 
response .wri te 
Response .write 
response ,wH t« 

Response .Write 
response .write 
Response.wri te 
response .write 
Response .write 
response.wri te 
Response .write 
response .write 

Response .Write 
response .write 
Response .Write 
response .write 
Response .Write 



"uSSttiSPr^*^* va1ue-"4rssearch("birth_1at")«,"anbsp;-ft- aice»10 >") 
^'itecuracy^r*^*** *'*''"*="*^*^*'"'*^"*>^'**^l«"9">*"*n'»«P;"'^ slie-lO >-) 
r esponse .iiiHte ^<lMPO^ value»-&rssearchC"b1rOLja«o_aecur">A'-4nbspr*- s1ze.J>-) 

''<BRxBR>Chr1sten1ng: Year") 
[j^Jjgjr^ type-text valuc=-&rssearch(-chris.year")*"4rtbspf"*" size-4 >") 

^NPUT typeatext value3"<.rsSearch(-chrisjionth-)4-ftnbsp;"A- s1zb32 >"> 
•22Slc?S*"*** va1uo-"*rsse*rchC"chr1sjtey-)«"«nbsp;-«- s1zc»2 >-) 



Response .Write 
response .write 
Response .Write 
response .write 
Response .Write 
response .write 
Response.wri te 
response .write 
Response .write 
response.wHte 
Response .write 
response .write 

Response .WrI te 
response .wri te 



'"SoS St?"^* »'»''w*-"*f«*«*rdiC-ehris^r^eeur-)*-«obsprft" .lie-i >-} 
'^I?^afSf5£o* ^•1"-"*rsSearchC-chn,^6£0Ldate-3*"tobsp:-fi- sire-M Idi^tl n«e.textl>-) 
<1NPUT type-text v.1ue»"&rsSearch(-chn3L^r_var">tf-4nbsp;-*- size^S Idotextl n«Wi.texta>-) 
|'*<SR>Place: Country (or Uvel IT") 
"dNPUT typestex t vaTue="V ' "ArsSea 



Reiponse:wriie ?"sttti (ir''lev^l'25"i'''^ •^"•W >"> 
resoonse .wri ce r'^tMPUr cvntemr w«ii>»»"jb-'-AM«...*i./»^^ .... . 



response .write < 

Response .write 
response .wri te 
Response .write 
response .write 
Response. Write 
response .write 



"<lNPUr typevtext valu( 
'<8R>chrU Latitude"} 



'&"'"ftrssearch("chr1aLc1ty-)ft--ft-ftnbsp;"«" s1ze«30 >") 
f SJS^cJ^*"*'**^ value-"«rrsswrch<-chnOcng")4"«nb»pr*- s1ze-10 >") 



leMh^bllSw"""*"" >'«l««'"*»"»Se»rch<"chr1sugecuaceur")4"Aibsp;"*- sicl >") 
Response .write (*'<SRxBR>««ath: Year") 

RMpSslilrtS CSUS?)'^'**'*'** ^-^ye='*<^»»«*rchC"deatK^e.r-)4"«nb,p;'«- .iicM >") 
KSSImIwhS f Si?T ^J^P*^"* v»1''««"*''«««»rchCd«athjtionth")4-*nbspi s1ze»2 >-) 



05/05/2004, EAST Version: 1.4.1 



us 2002/0032687 Al 



72 



Mar. 14, 2002 



C ;\p«tent\Modu1 e»\0BSitC04 S .ASP 



^"<INPVr t](je-t«Kt v»1uW4r«s«ireh("d«»tiud«/*)t" "i(" sizes:! >") 

'"'<INPl/r typ«=t»xt va!ut="4r$SeirchCdeath»yr_ftCCur)*"Anbsp:"&' »1ze=l>"> 
'GCDCON dace") 

'^NPur KMtsXMKX v»lut="«fr8S«archCd«ath_Geo^atc")4"«nbip5'*&" siEe-30 <d-teKtl nBAi«.textl>'') 
'Yeftr varianc**') 

'<INPin' type-text va1u«>"lrrs9««rchC*d«ath_yr.v»r")&"Anbspi''&* tiz*>3 1d-t«xtl nanw*t«xtl>") 



r for Uv.l «") 

r*Tu«-"«i" • -4r»$««reh(-deathj»u«larv"H' 



4''4rt>»pj''4" $1rc-50 >■") 



responie .mH te 
ReEponse.wri te 
rtsponse*wHte 
R«fpofitt .write 
raspoi»«.wHt« 
lteipon»«.wr1t« 
rtsponse. write 

Iteieense.WHte C*<8ft>Pl«««i Country , 

response .write (■<ihpvt typo=text y« 

Response .Write ("State (Of level 2)") ^ 

response.wrltc t"-<lKPUT typ««text valut="&""'Ar»Search("death_st8t«")&"' 

Response. write C"<8R>Place: county Cor level 3)"} 

response .write i'<lHP\JT typ«*text va1u«a"4('""&rs5earch("deattucounty")4' 

Response .Write ("City Cor level 4)") 

response.wri te C"<INPUT type»t«xt v«1u««"tf""*r»Search(-death.e<ty*)4"'-&"4nb«p:"*'' rIz^O >") 

Response .write r<BR>Death Latitude") 

response.wH te ("<IHP\jt type-text v«lUB*"&r»$e«rchC*'death_l4t">4"4obsp;"4'' sIzeMlOy") 
Response .WH te < "Longitude ) 

response. write (''<1nput tvpe*t<xt value»'*&rs$e«rch("death_1ong")&"4nbsp;"&" sizesXO^") 
Response .Wri te ("Accuracy ) 

response .write ("<lNPirr typeatext value-^ArssearchCdeath-seojccttr^HrfcibsprA" ii»«l>") 

'■■ mr— ni ■faurial below 

Response .write f'*<BRxBR>Bur1al : Year") 

response .write CkIUPVT type-text wa1ue»"«r«search("burial^ear")4"finbspj"St" s1ze?4 >") 
Response .write c "Month") 

response .write r"<iHPUT typcstext value="*r$SearchCbur1a1jw>nth'*)4'*4nb$p;-&*' s1zea2 >•) 



Response .write 
response.wri te 
Response .Wri te 
response .wri te 
Response .Wri te 
response .wri te 
Response .Write 
response. write 

Response. write 
response .write 
Response, write 
response. write 
Response .Write 
response .wri te 
Response.wri te 
response.wri te 

Response, write 
response.wri te 
Response.wri te 
response .write 
Response.wri te 
response. write 



C'*Oay-) 

';'<INPUT type-text value=-«rs$earch("bunal_day")&"a(nb»p;"&" sire-2 >-") 
/"Accuracy > 

<INPUT type-text va1ue-"4rsS«arch("buHa1_yr_accur")A"&fibsp;"A'' sizesl >") 
*'CEDCOM date") 

"-awpin- typestext va1ue=!"4rsSearchC burial_SEDLdate"D4" *'4" s1zes30 1d=textl n«ine=textl>") 
"rear vananc*") 

"<li|pwr typestext valoeai"4r*Se«rchC'buri«l^r«v«r'*)ar''«nbspi'**" 8lze-3 id-t«xtl n«(M«t«xtl>'*) 

;*'<eR>Place: Country (or level 1)") 
"'<lMPur typeatext yatuea"*"**" ' 



"State (or level 2)") 

" - ^ »1 



■ArsSeerehC"buHal .country")*" '"4"«nbsp;"f <i2«-30 >") 

>!^?^^'*yp*^^i^il'f*?"*"!**^r.*?**'^^^"^"'^*^-***^^ size=3o >*•) 

iiri al .county" H" ' "&"4nbsp j "4" si zb»30 >") 
•<IHPUf type»cext' values"*" '"*rs5eareh<"burial_eity")«i-'"ft*'4nb$p;"4'* size-SO >") 



<"<BR>Burial Latitude") 

— . - 



.'•<INPUr rypestext valuea"4rs5earch(''bur1a1„lat")8i"«nbsp;"&" sizolO >") 
^"Lonyltude ) 

("KlUPiST type«text value='*ArsSearch("burial.long*')ft"4nbap!"4" iize»10 >") 
("Accuracy ) 

C"<lllPUT type-text va1ue-"ltrsSeapch<''burial.oeo^ccur'')A^'£nbsp;"ft" s1ze>I >") 



Rssponsc. write r'<SR>-<SA>Xdentif1 cation or Oeta Quality Nstw") 
Response .write [''<fiR>i«otel:*') 

response. write C^INPVT type=text value«"4"'*'ftps5earchCperson«notBl")&"'-4-8(nbsp|-*" sIze-SO 
■i-F r9Sttar^C'perfon_note2 )o"^ th«n 
Respon se . wrf ce C''-«R>M0te2 : ") 

response .write r<I»fPUT typ««cext value-"4'"'*&rssearch(''person.note2'')&''"'«" "4" siz«>80 >*) 
end It 

if rsSearch("per»QaJ»te3")-o"" then 
Response.Wrfte ("<BR>ltotel:") 
response.wri ce C'<XNPUT type^ext valuea'A"' 
end If 

if rssearcliC"person-note4'')o*"' then 
Response.Wrfte r<8R>Noto4:*') 
response.wri te C^hpvt type=text value*"*" 
end if 

•end If 



'&rssearchC''persorunote3')«'"'«''<nbsp;"4'' s1ze=A0 >") 



'&rsSearch(*'person.jiQte4'')4""'&''Mcp:''4" sizesSO >") 



•<l -> 

'If reque5tC*'rev_an'*)>2 then 

If «id<f«e_nequcst,3,l)-"l" then 

Response .Write ("<BR><ait>oHo1nal Source Citations") 

Response .Write r<eR>NoteS:'*) 

response.wri t« ("tiNinn' type-text velue-'*&*""4rsSearch<'*persaa.mteS''}ft*""4"4nbsp:"&'* sizesatb-") 
If rs$earchCper»on_note6" )<>•"• xhtn 
Response .Write (•*<BR>Note6:") 

response .write <-<IMPUT type-text valuea''4""*trsSearchC"person.jiotc6")&'""a**finbsp;''&" slzeaStb-") 
end if 

if rsSCBrchf"person_note7")o"" then 
Response.Wrfte (("<BR>Note7:") 

response .write ("<INPUT type-text va1ue-"t'""*4rsSearehC'pcrson_note7")ft**"'4''4nbsp;"6" s1ze-80 >") 
end if 

if rssearch("persan_noteft")o"'* then 
Response.wri te ("<f»>Note«i"> 

mponse.wri te r<IHPtfT typeatext value«*4"'"ftrssearch<"persoiuiote«")4-"y4nbsp;"4" s1ze-80 >") 



or rsSearchPperson.note6' 
or rsSearch("person_jioted' 



if rsSearchC**per80f\jwte5'*)'0' 
or rsScarchC*personuncte7")o' 
fee_.l( * ' ---- . 
endTf 
end if 

rssearch.dosc 

'- — start narriase— — •— • 
if reletionship-"S" and requestCearriaoe") » *Y* then 
Response .write C'<B« a i n m i i M arriage event datai 
•end if 

Set rsUArr - Server.CreataobjectCADOOB.Recordset**) 

If persorusex • "F" then 
iiiarr_huft_no - scart.^erson.id 
Biarrj«rife_no ■ nameCid 
else 

marrjiusjio > n«nR.1d 
marrjwife_no ■ start_persen.id 
end if 



")o"" 
35 'f. 



then 
fee level 3 



'"marriafle^ means OK to pay for 



05/05/2004, EAST version: 1.4.1 



us 2002/0032687 Al Mar. 14, 2002 

73 



C!\p«t<nt\ModMl Bi\0BSRC04$.ASP 



StrSQU»»-SELECT * 

"from n»rrtafl«t,t ^ , 

"wtiero niirrjtu»_m> • *iiarrJiu|_no 
" and n»rrjrtfe_no » *" *narrjif1fftjw * 

rsMarr.open strSQLMi cnSearch 

if rsMarr.eof or r«»Urr,bof th«n 
Respond. write "kSIUNo marriage record fMind" 
' ittrri »geupdatfld»"N" 
e1 9C 

Response .write "<BR>Marr1ige record found" 
' Harri a9«Updat«d»'*Y*' 

Reiponsc.wri t« r'<8to*terriage: Year") j 

rMponse.write r<IMPOr typeocext naiM^rr^car valueo'ArsMarrC'marr.year*')* &#32s t sl2ea4> ) 

response '.write C"<l2pvr type-text n«Mi«Rarr^nth va1ue«''ftrsMarr<"ii»rrji»nth'')&*'Ci#32;"&'' $1«es2>") 

retpSJeiwH" ("SlSpir typeatext ntmeNnarrjlay v*1ue»"*rfM»rr(''marr.day")dr4#32;*4" siKe<i2>'') 
Response .write d" Accuracy ') , -x.-— , .... t 

response .MTl te C'*<INPVfr type-text name^rr^r.accur value-"4r«MarrC'«arr_yr-accur )4 i#32; * tiZ9=4> ) 

Response.wri te r<flR>Placei Country <or Uvel 1) ') - 

response. write l**<INPi/r type=text nanie=marr^ountry value=''&'""4r5HarrCinarr«country )4 A 4#32; 4 nz«=30> ) 

Response .Write <"-<8to.pUcej State (or level 2)"J ^ 

response .write C"<INPUT typ««text n4r»e*nar restate value- 4 4r«mrr< marr_stite' )4" 4   4 s1zes3D> ) 

ftAspense .write ("<BR>Place: County Cor level 3)") ..... m ..v 

response .write ("xXNPUT typcstaxt nBne4narr_county values 4 '"ftrsHarrCoMrr^county ^ft" 4 4ir32;*4' slze^SO >") 
Response .Write ('*<tfR>Place: city <or level 4)") 

roBponsa .write ("^INPUT typestext name-nRrr.d ty value»"«"'"ftrsMarr("marr..c1ty")4"*"4"«f32r4 •1«o-30 >*♦) 

Rcsponse.vnte f-<BR>L«t1tude**) , ..... 

response .write ("<1HP\JT ty^text nsBiei«arr_1 at value3"4rsMarr("marr_lat")4"&'32}"& sl2e=6 > ) 



("<1HP\JT typevtext nsneieari 
R6sponse.wri te ("Longitude ) 
— /"<iNpin' typeatext na«e=««iri 



retponse.wri tc c"<INput typestext nanesmarr.long yaluea"4rsMarr('^rr_1ong")4''4#32;"4" slxe-6 >") 
Response.wri te r'Accuracy*) 
response.wri te c"<lNPUT typestext nane3iMrr_geo.>ccur va1ue*''4rsMarrC'inarr_geo_ACCur'')4'*4J^2;*6'* s1ze»l>") 
Re sponstt. Write <"'<BR>N0t«l 

response.wri te C"<xmput typ««text neneMrr.^tel VBlue«"4"*"4r»Marr("taarr_notel''>»'"*"4"4M2;"4" s1ze«flO >") 

end "if 'record found? 
rsM»rr.Clese 

end if 'end of marr1«g« 
* — -end narrlaoe 

'—■■■Cive Publisher's email m i i n .■..-u - im a n m m il ■ ■■■■■■■■■■■ 

set rsPub e server .createobjectC'AOODS .Recordset") 

pub.1d - left<niin^id.lO) 
StrSQLPub="SELECT * "i^ 
'fron Publ1sher_t "4_ 
••wh«re Pub_1d » "* t^vh^\6 4"'" 
rsPub.Open strSQUPub, cns«»rch 

If rsPub.eof or rsPub.bof then 
Response.wri te ''<aR>No Publisher record found" 
else 

Response. WHta f * <BRx8R 3 ■ ■ i iPubl i sher emailmiB *) 

response .write C'^brxinput type-text value-"* 4rsmb(''pub_cmail"3A"*4ff32;'' &" siz»sS0>*'3 
rsnjb.dese 
end If 

' pub.enal 1 , pub^fname , pub_l name 

'If requestC*rev_alT')>3 then 
If m1dCfec_reauest.4,l)«"l'' then 

'■«R>Person s datcHptlon text appears here SHOW TEXT<BR> 

set rsText ■ Scrver.CreateObjeetC'AOOOe .Recordset") 

StrSQLText»''seLECr • 

"from Text»t "ft>. 

"where personjid ■ "* 4namei.1d 4"'" 

rSText.Open strSQLText, cnSearch 

if rsText.eof or rsText.bof then 

Response .write '•<BR><fiR>No Text record found" 

else 

Response. Write "<BRxaR>Toxt record found" 

fee^levels « left(fee_levcU, J)4"l"4Hght(fee«levels,lO-4) 'fee level 4 
FOR T-1 TO 25 
$TR.T=RIGHTC"00O0"4T , 2) 
lineJiold=rtHmCr»texcrt"4str.t)) 
if linejiold -o"" and llfiejuild o striixiCtt,'' •) then 

response.wri te (''<«R>>*«str.t&"<ZNPUT type«text value-'" ftlinejield 4'"4f32;'' f size£80>'*) 
end If 

next 
E«0 IF 

rsText. close 
end 1f5S> 



•if reque$tCrev^n-)>4 then 

If n1dCfee_request,5,l)-"l" then 

'<8R>Phota shown here SHOW PHOTO 

set rsPhoCo » server.createobjectC*AOOOe.Recordset") 

StrsqtPho to-" SELECT ♦ 
"from photeut "4« 

"where person_1d ■ *" 4n«ni«.1d 4''*" 

rsPhoto.Open strsQLPhoto. cnsearch 

if rsPhoto.eof or rsPhoto.bof then 

Response .Wri te "<8R><8R>No Photo record found" 

else 

Response.wri te "<8R><6R>Photo record found<BR>" 

• Response. Writa "PPP"4TRIMCRSPH0TO("PH0TO.LOCATrON"))4"PPP" 

RESPOHse.wMTE r<iMC wiBTH-150 HCXCHT^SO 4TRiM(rsPhotoC'Photo_locat1on")) *">") 
fee.)eve1s - Ieft(fee.leve1s,4)4''r4right<fee.1eve1s.l0-S) 'fee leveT 5 
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C;\patent\Modu1es\06SRC04?.ASP 

as> 

<l— IMG WIOTHslSO HeiGHT=190 SRCx"\IMAGES\JOHATHMl.GIF"> 

^Ifen-RIMCrsphotorphoto^l ocati on*' ) 

•<I— IMG WlDTHa595 HEIGHT=770 SRC«" APEXV2.jpg" — > 

END IF 

rsFhoto.clos« 
end ifX>^ 



'<BR>citation Image shown here SHOW IMAGE 
Set rslffiage =» Server.CreateObjcctC"A0008. Recordset") 

StrsQLlinaoea"SELECT * "&L. 

"from Xmage^t "^u 

"where pcrsoruid ■ Anaiwjd & 

rsZmage.Open strSQUMAGC, cnSearch 

if rsimage.eof or rsimage-bof then 
Response.wri te "<BRxBR>No linage record found" 
else 

Response .Write '*<BR><BR> image record fbund<br>" 
•Response .write "PPP*'4TRlM(rsiraageC"Image_locat1on"))&"ppp" 
RESPONSE. WRITE r<IMG WIOTH=595 HEIGHT=?70 SRC«" S-TRIMC rs Image (": 
fee^leveU « lcft(fee.leveU,5)*"r«fright(feOevels,10-6) '^ee 

END I F 

rsXfflage. close 
end ir%> 

<\ > 



End^SubX?^*'^* "wnOd, sessionCbuyer^id"), fee.leveU 'requestCrev^ll") 

^ *THIS IS FOR SILLIINESS 
%> 

< U - #INCLUPrvIRTUAU"C^TON/CHARGE02 . IHC* — > 



<P>^bsp;</F> 

<RJ<J *J''«^"™enuidul-asp**>Rfitum to Buyer Main Menu </a></p> 




</BODY> 
</HTML> 
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c:\pattnt\Modu1c»\OBSRCl38 



i3S9 UnouaaesVBScrtpt 1 
iXOpXicn explicit 
Response. Birffer>t rue 



^esponse.Birffer>true %> 
<!-- tinclude v1rtu«1*"coinnon/*dovbi.1nc" — > 
■<KTKL> 

4<rrA NAM^'CENERATOR" contenC'*>t1 crosoft Visual studio 6.0"> 

<nTl£>PU6USHERS DETAILED PEDIGREE UPD^TC5/TrrLE> 
^3>PUBUSHERS DETAILED PEOICREE UPDATC</K3> 
VKeAS»> 
^00Y> 



'Tlili program lets a viewer choos« and pay for names. 

•The first time this cage Is retrievBd, and «iy tin* it i» 
Submitted without being coniplttely filled out, the fom 
'is displayed, tf it is submitted and cotnpletely filled out. 
*the font is processed In the Else clause. 

Dim start^ersorulneme, starc^ersofufnante. startle rsonjnnane 
Din start.4}erK>nJ>year, st8rt_persoiuid 



'LOGON CHECK 

If ftasBlonCindaxar logged on")o'*indei(er logged on" then 
res^nsc.rtd-trtctCTogidxOl.asp") *see p. 317 of prog guide 

'if session('*buy«r_loggetL.on")o"buyer logged on" THEN 
Ire^ransc.rcdinctClogonby.asp**) 'see p. 337 of prog guide 



'If Requ«st("ttartj>ersorulnaine"J«!"" or Request("start_persQn_ftMn«")»''" ^ 

or reque»t("sUrt^erson-byear->"" and requestC'start-person.id")**'^ then 

If Request("start;^ersoru1nanM'*)B'"* AND rcquest("itart^erian.id")s'"* THEH 
X> 

Enter the last name, and then add one or more of the fbllowino fields - first 
name, middle nanei birth yur - as «xtra criteria to describe the person luhere 

^ start th« FAV-rER-View pedigree search. <!-(llotBi only the last name i« used for M«tino.>.-> 
<&R>Or, if you already have the person's Genealogy Registry 
ID. please use it to go direct and save tine. 
<SR> Search may be 

limited to names in a recent tine range, such as those bom in thia century. The 
pedigree •following process is used after that. <p> 

<FORM METHOD-POST ACTIOM^^dbSrclSS.lCp- 1d«fora2 n«nc«fanii2> 

starting Focus Person :<BR> 

Name<BR> 

Lest 

<<2NPVT TVPe-^TEXr* NAMG»**Start^erson.ln8ffle'' SIZCsJ4> 
First 

<INPUT TYPEa"TEXT'* NA>!E="*t»rtj3«r$on.fn«nit" 5rZE»14> 
Middle 

<IHPVJ TYPE»"TEXT" NAMe»"»tartu>ersoruiinawe' SIZE«14xP> 
Bl rth Yaar 

<INPlfT TYPC-''TEXT'* MAME-"st»rtL4)ersOiV>year" SIZU4><p> 



Registry id of starting Focus Person 
<INnn' TYPC-*'TEXT'' NAMC»''StartLpersoi 



StartLpersoruid* sr2E»X4> 
<INPUT iypi*'*subm1t" va1uas*start Search" ida»subn1tl n*me=subBiitl> 

</FOilM> 

^UeX> 
<% 

'Dim strSQLT«np, table_n«ne, oiiner.id 

' create temporary table for cookie processing 

Din cnsearch, rsSearch 
Dial aHtart^erson_1d. X 
Diet strSQLp 

Dial flrstrec, lastrec. strx, 11ne_cnt, pub.id 

Din atrSQLfields, na>ea11oiMd 

pub.i d«sessi onC'pub_i d") 
Biai^el 1 owed*300 

set cnsearch » Server.CrtateObjectCADOOfi .connection") 
cnsearch .open "dbl" 

set rsSearch » server. cr«ateobject("AOoo8. Recordset") 

;instart.person.id - HghtCstringCe,"0'')&requestC"start^ersofuid''),12) 
'from the opening screen w /, / 

'Response .write iRSt«rt.^rseOd 
•■where personal name >• '- lnstart.^«rson-id 

•construct SQL for mjlcipl* search critaria 
if requ«itC"»tart-persoiLid")o"" then 
strSQLp»"5ELECT p«r8on.1d. persoa.1 nam, person^fhane, 
personjenaBie, «_ 

"birth-year, bir^umonth. b1rtli.day, birth_oountry, "4u 
birth..state, birducounty, birth-city "ft^ 
"froB person_t "ic 

"where pereon_1d - *" 4r«quest(''start^erson.1d'') *•*•"*_ 

" ORDER BY PERSOICLHAME. person.1Viame . personjankne, b1rCK_year- 

else 

•strSQLfields-" " *BIRTH_YEAft > '1900' AND " * ALICW ANY YEAR FOR THE PROS 

strSQLfields-- left<per5on_1d,«- •" teub.id and - 'but kaap te^TSai 
if requestC"«tart-perMn.lnanie-5o"- then ^ 

strSQLffeld8«»trSQL«eTda *• persoA.1naffle - ArequestCstart-persorulnane") i* 
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CAoatentXHodul es\08SRCl3g .ASP 



end if 

if r«qu«t(''8ti.rtj)er$orufh«m«*')o"' then 
end if 

pcrsofumamc ■ ArtqucstC startup* rsofuwiMM") t*" ' 

if requestC'startuMrsorvbyeaOo"" then 

ccrSQLf1t1df««trSQ».fi«Tds t" «nd b1rttuy«»r - 4rr«qu«ttCst«rc-P«rs«nJby«ar^> fc"' " 
«nd if 

strsQLp=»-SELEcr Dftraofuld. perfOfulnane, perso(cfh«M, -ft. 
parsorumaiM. "II. 

"birduyear, bi rthjnontli , bIrtKjday, bSrth.country. "4. 
"birth-State, birth-councy. b1rth-<1ty "ft. 

"from p«r»0fut 

"•(here " tetrSQLfieldj 4_ 

" ORDER BY PERSON^LNAME, person_fnute, percetuaname, blrtfuyeAr" 
end if ' end of SQL create logic 

'Relational <«, >« <», >-> - FRCM NSW U OPERATOR , COMPARTISOH OPERATORS 

• r«spon<a . wri tm reques t<"start.^r«>ful name") 
Responte.wrtttt »trSQLp 

if rtScarch.atsCe - adstataopen then rs5«areh.Closa 
rsSearch.Open a trSQLp , cnSearch , tdop endynawic, adi.ockOpt1nii»tic 

'use input screen like dbsrchlO 

'do starch 

X> 

<FORM METHOObPOST ACnOH3''db$rcl40.asp" idsfornl nafne^onnl> 

select ft starring focus person from the following list by checking a single 

4R>The person's rcUtlves will be counted and the 
resulting counts will be shown to you on the next screen. 
<eR>You win b* asked to choose which groups of reUtlves you 
wish to see. 

•If rsSaerch.eoF - skip 

do while not rsSearch.GOP end n < max^l lowed *xc36 
$t rx*ri9htC"0000"to , 4) 



responie. write C'<br><lHPUT type-checkbox naine«chlc"£strX ir" VALUEnl>'') 
response.wri te f <XHPVT type^toct nanea*'* & "gHd.lnMw*' & strK A " valuf'ti irrsSsarchr"Darsan 1ii«mji'*w-<.-ii^h. * ir 

Mf Ksl then f1rstrec«r»search.bookiiiark 
loop 

'Response. Write X-1 

rasponse.wri te C<INPUT type^hldden nafne=7in8_cnt value=" &x A* s1ze»4>") 
If X » fnax^a! lowed then f«c-w / 

^es^nse.wrice '•<h3>At Least A" names were found meeting your cntcr1a</h3>" 
If x>0 then 

^^jMponse.Write -<h3>-4X *" Names were found meeting your cr1terla</h3>- 
if x«0 then 

Response.WHte ■•<h3>*lo Names Mere found meeting your criter1a<</h3>* 

end ^T 

' 1 as trecerssearch. bookmark 

'two submit buttons thet go forward or back 
X> 

<! * »8R>3ss n~Tiii— - 1 r <8R- -> 

?/FoSi>'^'*^"*"'*"^*" RELATIVE OOIWTS" 1d«submit2 n4ne^ubnit2> 

45tend in> 

<*'>*nk»p;</P> 

52*JLt'^5!?SS^*'^--*** Indexer/PubHsher Main Menu </ax/p> 
<A hr«f«dbsrcl38.asp>Retum to Name search screen. </axp>«nbsp!</p> 

<pxa href>''welcone2.asp">Retum to Main Menu Va></p> 

<pxa hre^''../Welcema3.h«m">Return to welceoia Page</a>V|» 

</BO0V> 
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4» Langua^eeVBScript X 
^Option Explicit ^ 
<l— nncluds virtualo < 



ccMnmn/adovbs. 1 nc" 



<KTML> 

^jETA^HAME-'CGNeitATOii'* concent^"Mlcrosoft visual studio 6.0"> 
<trrLE>PiJatisHEits detazud pedisrcc upoArc</Tm^ 

<H3>PUBLISKeRS OGTAItCO PEOXGIUIE UPMTE</H3> 

</H£AD> 

<fiODY> 

<HR> 

<x 

' Response .Wf 1 ta "aH djd01«"*requ« stC"grid-i dOl") 
'came fro» dbsrchjO.asp 

'This progrim lets a vtewer choose and pay for nanws. 

'The first tima this page Is retrieved, and any tfiie It ia 

'submitted without being completely fined out. tm fioni 

'Is displayed. If it It submitted and eomplataly filled out, 

'the fom la processad in the Else clause. 

•Rasponst. write "XXX** 

'Response. write requestClzne.cnt") 

'ftasponsa.Wrlte "W" 

•Response. Write RCQMeSTC'GllXOJOOr) ^ ^ ^ . ^ ^ ^ m 

If requestnincLjcnt''>al then * If only one nana cenes ^n, take It nvlthout a checkbox being set. 
rrART^ERSON.I(»=REQUESTe"GRIO_I00001'') 

FOR XpI to rMuestnine_cnt") '25 

ITRX=RI6KT( "00OO"M . 4 1 

IF REQUCSrC'CHK-SrSTRXj-l THEM 

START_FERSOH_H>MlEQU£ST C"a«0LJ0''4STia) 
EXIT FOR 
EMD tP 
NEXT 

end If 

• Response. wHte start.personlio 

'If Re<|uestC''start_p«rsorL.id")a'*" then 

'Enter the rturbcr of the person latere you would Ilka to start the 
'PAr-PEft'ViEW pedigraa search .<p> 

'<R>RM METHOO-POST ACTION>'''dbsrdh20.«sp'* Ida^rml nafflesfonnl> 
'start Person 

*<IMPUT TYPE-'TEXr llAM£«"Star^_perBOn.id'' SIZ&>M> 
'Owner ZD 

•<IWFUT TYFE-'TEJCT" »IW^"«meOd" SIZE-S> 

■^PUT TYPE-"6iAm1c" value-'start Search" Idssubnritl name>subfii1tl> 

•</FORM> 

'-dteUe 

'dm strSQLTempi tab1e_|iaine, owner_1d 

' create temporary table for cookie processing 

• tabi ejiane«"trace-4r1ghtCstr1ng« ,"0'')*re<iuestC''ow»er.id'') ,»> 

• tabl e^affie3*'trace*'ft1 ettCrequestC" Start_per»or\_i d") , ») 

Dim cnsearch, rssearch, rsSearchF, rsSearchM, rsSearchC, rssaarchs 

Oiw m«tartj»er«on_id, x, STRX. 5TART_PERS0MJ0 

Oira StrSQLp, strS^UF, StrSQLlM, ttrSQLlC, StrSQLlS 

Dim strSQLiP, strSQLMar, StrSQLF, strSQUH 

Dim rtPay, rsUnkF, rsLinkM, rsLinkC, rsLinks, rsLlnkP. rsLlnkMar 

Dim 11ne_cnt, fath«r_id, mother_id 

O-ira child^nt, Spoiise_cnt, parent.cnt, raBrriage_cnt 

Oira XKx, XX 

Set enSearch • server. Cr«ataObject("AD008 .Connection") 
cnsearch .Gpen "dbl" 

Set rsPay a Server. createObJectCAOOOB. Recordset") 

Set rssearch ■ server.CreeteObjectCAOOOB. Recordset") 
•S*t rssearchf= - Strver.CreateObJectrAOOoa. Recordset") 
'Set rsSBarchM - S«rv«r,Cr«at«Ob]ect<"AOODB.Recordser ) 
'set rsLlnkP « server .Createobiectf"AXX3D6. Recordset") 
'Set rsLinkM « server.CreateobjectrAOODB. Recordset") 
SBt rsLlnkP ■ serve r.CreateObjectC'ADODB. Recordset""' 
set rsLinkC • Server. CreateOb1«ctC"ADOOB. Recordset' 
sat rSLlnkS ■ Server.Create0b3ect("AD00e .Recordset' , 
Set rsLlnkMar • server.CreateObjectCAOOOB. Recordset") 



I 

et", 

'mstart^eraon^ld - r1ght<ctr1ng(8,"0'')&requestC'start_person_1d"),12) 
instart^erson_id e start.ferson.id 
sessionC" ttart^erson_1 0-SCartLpersorul d 
'from the opening screen 

'Response, write viKtart^crsoiuld 

'xeL ' temporary debug 
'00 while x<S ^2o3 

StrSQLps^SELECT p€r»on_id, persoOnuMi parsoo-fnane, *tu 

"persorunneme, persoiusex. «c 

*'fa1rth_ye»r. birthjnonth, b1rth_day, b1rth_country, 

"b1rth_state, birth_county, birth-clty 

"f ron person_t "iu 

"where pcrsoruid • *" Anstart-parsoOd «f""* 

strSQLlFo "Select • from LlnkS;.t where personl m 
toitr — '- 



& " and Relate LIKE 'Xf) 

itrSCLlib "Select ♦ fr« 
0"** Anatart.^ircoiu1< 



strSCLiM- "Select ♦ from Lin|(s.t Where parsonl • 
~ rt^ld i"*" 
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CI Vftat»ntV»iodu1 t»\0SSRCl40 .asp 



* «\d R«1&t« LIKE *)M('" 

ttrSQOPte "S«1*ct * from Lirtk»_t ni^r% pcrsonl • 
*••** SRatart_persoiuid tT*" _ 
8t * and (Relate LIICE '%PX'or Relate like '%M'y 

strSQLiCa "select • from Llnks_t where p«rsonl » 
1**" SmstArt_perton_id A"*" _ 
<r * and f(«lac« LXKE '%CX"' 

atrSQLlS- "Salect • from Llnke^t whtre personl • 
ft * and Relate like 'XsX" 

strjQliHar- "Select ♦ from »i«rH*g«_t inhere iaaprJhtt««no m 
4"'" «mstarc_p«r$on_1d _ 

Ir *■ or narrjrtf^^ « ** _ 

Ir'*"* te»tart^er»oa_id 
'Response .write ttrsqlp 'MsgboxCstrSCU.f) 

]Sub testlCxx) 

'End Sub 

'teitl 123 
'te»Cl 4S6 
'Response .Write xxx 

ir rssearch.sace « adstateopen then rssearch.dost 
rs$«rch,Open ftrSQLp, cnSearch adopwidynmic, adLoc top tlmi Stic 

rtSe arch .Open strSQLp, cnsearch 
'rsUnkF.open scrSQLlF, cn Search 
•rsLirkM.open strSQLlM, cnSearch 
rtLlnkP.open itrSQLlP, cnSearch 
rfUnkC.open ttrsqclc, cnSt^r^ 
r>tink9.open strsQuls, cnSearch 

if rsLlnfcc.BOP and rsLlnkC.eOF then 

ch<ld_cntaO 

«U« 

do until rsLlnkc.EOF 

chi 1 (Lent^hl 1 d..cnt«l 

rsUnkc.Moveif«xt 
loop 
end if 

rsLlnkc.close 

if riLinkS.BOF and rsLlnkS.EOF then 

spouse_cnt=0 

•U« 

do tfitll rsUnkS.EOF 
spoiJse_cntBspous«_cnt<*-l 
rsLi nkS . Movekext 
loop 
end If 

rsU nkS. close 

if rsUnkP.BOP and rsUnkP.EOF then 

perent_ent-0 

eU« 

do until rsLinkP.EOF 

parent.cn t«parent_cntfl 
, rsLlnkP.MoveNext 
loop 
end if 

rsLlnkP. close 

f«Link«ar.Qpen strSQLMar, cnSearch 

if rsLinkMar.BOF and rsLinkMar.COF then 

narriaga^cntPO 

else 

do wttil rsLinkMar.EOF 

narri agei^cn t"«>arri age.ent+1 

rsLlnkMar.NoveNext 
loop 
end if 

rsHnkMar. close 



. m5tartj>«r«on_td - rsLlnkFC"person2"> 
*father.id - rcLinkFCpersonS") 

'Response .write "facher^ld-ifather.id 

.•5tr5QLF""SELECT person-id, pcrsorulname, persoa.fnane. "*_ 

Eersorusname, p«rson.^ex, *u 
-Js2j-y!*ri «>i;**V»"*« birth_day. birtiucountry, 
;;;b1rth^state, birth.coiinty. birth-clty 
fpoin persofvt **<u 
"where persor^id » «father.id 

'rsSearchP.open strSQLF. cnsearch 

. ^ "^^'^Ti^ii " r»LinfcM(*per»on2'') 

•n»th«r„id » rsLlnkHC person2") 

'Response.wri ce mstart^r»on_id 

[scrSQLM." SELECT pcrsoiuld, pertoOnwe, per»on.fhwie, "Su 
• persoru«name . p«rsoa.sex, 

i«u]''ft-*'f*r' ^JftKjwnth, birriuday. birth.coiintry, 
"birth_»tate, birtKjcounty, Mrth^ity "4. J* ^ 

•"from per50fv_t 
where p«rsoOd • ' " Aiwther.id *"•*' 

•rsSearchH.open strSQLM, cnSearch 

^KLOW WAS <»rNC TO 08SRCH2i .ASP, then redir02.aap 

-rfORM MEniOO-POST ACTION.-dbsrcMl.asp" 1d«fond2 nMa>fonM2> 
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startino Focus Pcrton<p> 

<ZNPUT TYPEsn-EXr" NAMEa-staptL-lname- SIZE^S value»"<d&irsSearch(''person_lnaine**)9^'*> 
First 

<INPUT TYPES Text" NAME«t"staPt-fname- slZEslS valueB"<XBrssearchCpersorufhaine'')SI>"> 
Middle 

^NPUT TYPE»*TExr' NWE*i"staptjnn«ne" SIZE^IS value8"^rsSearchC'persorunnaffle''}S&-"> 
Birth! Year 

<INPUT TYPEa*'TEXT" NAKE=-$tart-birtluycar" SIZEip4 val«e=-«dfcirssearch("birth_year")as>"> 
Sex 

<INPUT TYPEs'TExr* NAMEa"start_persoius€x** SIZE-l valuea**^rsSaardiC**per8orus€X">3e>'*> 
Regi stryjJ^ 

<INPUT TYPE»"TEXT" NAME8"start^ersoruid*' SZZE«14 va1ue«"<^rsSearchC*persoiuid")X>"> 

<Bto ifii.i— <BR> 

Parents of Starting Person <br> 

Data contains ^parent»cntj& parent record(s) .<br> 

<INPUT types" checkbox" NAME»"parent" VALUE'-V' checlced>Show Parent Name(s) 

<BR>=s«====!<B R> 

Spouse of Starting Person <BR> 

Data contains <d^spouse.cnt^ spouse record(s>.<br> 

<IWP UT TYP e="checkbox" WAMBs"&pouse" VALUE='V checked>Show Spouse NameCs) 
Marriages of starting Person <BR> 

Data contains <5feniarri age_cnta5> marriage record(s) .<br> 

<3KPUT TVPEs" checkbox" NAMEs"niarriage" VALUE^'T' checked>Show Marriage Event(s) 

<BR>=a== ^ <BR> 

Children of Starting Person <BR> 

Data contains <5t=chTld^cnt9£> child record(s) .<bp> 

<INPUT TYPE=" checkbox" NAME="chnd" VALUE="Y*' checlced>Show Child Name(s)<br> 

<BR> 

<IWPUT TYPEc** submit" value-" SHOW details for names SELECTEO" 1dssubnrit2 name«subnrit2> 
</FORtt> 



<R>^bsp{</P> 

<p>-<a href="menuiDXl.asp">Retum to Indexer/Publisher Main Menu </a></p> 
<a href±idbsrcl38.asp>Retum to Name Search screen. </a> 

<p><a href^'*we1come2.asp">Return to Main Menu </ax/p> 

<p><a href«". ./Welcome? •ht7n">Return to Welcome Page</ax/p> 

</B0OY> 
</HTML> 
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<lNPur TYPE-" hidden" NAME»''parent" SZZ&l va1ues)'*dE5reqijestC''parenO]&''> 
* TYPEs'hldden" NAMD^'chnd" SIZC-1 v«1u«>"^r«qutstrch11d")X>*'> 



C>\patfit\ltedu1«sV0BSRC141.<CP 

s"cannoix/adovbB.1nc" — > 

<HniL> 
<HEAO» 

^CTA NAME^'GCNOUTOR" Oontent^'DriCPOSOft VlSUal StUdIO 6.0"> 

^TZTU>OETAILeD PEOZOtEC WWTK</nTLi> 
<H3>DETAlLeD PEDICREC UP0ATE'«/H3> 
</HEAO> 

<aoor> 

<HR> 

<PORM MCTHOO-POST Acriow«-dbsrcl45 .asp" 1d«fonnl naf*«s^fonnl> 
Starting Focus Per son<p> 

<iSuT TYPC-'Tocr" NAH&-*st«rt.1 n W SXZE-IS valu^'*^r«que«t("scartLln«fflB'*)]&"> 

<XNp5r TVPEs'*TEXr" NAME*" »tar^f nana" S1ZE=1S values" ^re4uestC'starC_fna«''3X>''> 
<XNR/T TYPCtt^TEXT" NAMEs"stafXjnnaiM" SIZEvLS va1ue>"^rtqu«st<'atartjwiame">%>"> 

<XNPVff TYPE«"TEKr" NAME»"start«W rth_year" SIZE>4 va1uea**^rcquescC'starOirt}uy«ar'*}]l^"> 
Snput TYPEa'TEXr" NAME?"start4>erson_sex* SIZ&l va1ueM"^r«quascC"*tart^arsorcaax")9^"> 

S8pufTrvpEa"T6Xr" NAMEe"swrt^erson_1d" szze>14 va1ua«"^p«que»t<"atart^«raon.1d")Jt>"> 

<INPVT TYPE«"h1dden" NAM£»"spous«* SIZEpI va1uc«"^r«qiJ«strspouM")S^"> 

<iNPur • " ' ' 

<lMPur ' 

<BR> 

<fofit colorvrtdXfpdatB notes: 

<BR>Alivays add spouse before addino related children. 

<QR>MK«n adding parents, always add both and then link then before golno on. 
</fbntxb rx6a> 

Sclttct ParsonCs) below for:<br> 

<tHWT type- "radio** nanM*s«l_inod« value«*UPDATE" checked> 
J tuant to update a Person (Choose only one nMit)'<br> 
<XNPjr typc=" radio" nane-seljnode values" focus" > 
I want to Change "Focus Person" (choose only one fUffle3<6R> 
<ZNPUr type*" radio" namesseljaode value«"NEW" > 
t want to Add a new Person <nbsp;Anbsp;&nbap: 
<XNPUr typ««rad^o n«i««>A0ORELATZVE VAUIE«C checkad>Add a child 
<INPUr typesradio nanesAOORELATiVE yalue«S>Add a spouie 
<INPUT typesradio naae-^AOORELATIVE value^p^Add a parent 

<8R> 

<INPUT type-" radio" n«neasel_mode values" LIHKPAREHTS" > 
I want to Link the Two Parents checked below 



choose type of data to upd*te<5R> 

<INPVT cypea"rad1o" nanje=rev_an value*2 checked>Bas1c Dat» and cites 

<INPUT typ»-"r*dio" naiiic=rev_an value>3>Marr1age Record 

<XHP\rT typeo'radio" nane-rev.al 1 valu««4>Blographical Text 

<IMPl/T types'radio" nancBrev.all velueoS di »abled> Photo 

<XNPUT type«"r&d1o" nanie=rev_a't 1 value=6 di sabl ed>Cl Ce imag«^R> 

Dim cnSearch, rssearch *, rsSearchF* rsSearchM 
Dim asr&rc_person.1d 

Dim strSQLx:, strSQtX. ftrSQLS, strSQLP \ StrSQLC 
Dim X, strx 

'Dim r*Pmy, rsLinkP. r&LlnkM, rsFees 
'Om FEE-BATEJ., feft_rat^ 

•DIM fattier.ld. eioth«r.1d 
iHa nameL.cnt 

'naine_cntesO 

Set cnScarch - Server.CreateObject("ADODe .Connection") 
cnSearch.open "dbl" 

set rtsearch - Server. CraattObiectCADOOB .Recordset") 
'SBt rtBuyer e server. Cr€atcObiect<"AO00fl .Recordset") 

nstartjersoOd=request(''5tarLj)er$0(i_'l<I") 
'ChectcandCharge requcstC 3tart_per*orvJd") , "00000001", 1 



strSQLX-"SELECT person.'id. person_lname, person^fnaiw, "4i_ 

"personjsname, p*rso«u*ex, ^ 

"blrth_^ear, personl, relate 

"from Lnnks_t, persorL.t "4_ 

"where person2>per5on.1d 

"and personl* * tostan^ersoivld ft"'" 



•cbrxXNPin type-checkbox n«tw-fecus VALU&a> 

Current Focus Person - show details 

<X 

'Response .write *^sctrci>*'tastarcpersoiufd 
'Raquaac.wrlta *'spDuse«*'<ircqijestCspouse") 
nane.cn o>0 

'If r«questC*»pouse") -"V" then 

• sessi onC spouses el ect")a" Y" 
StrSQLSettrSQLX ft " and relate Like 'SX' " * should ba (NOtf IS) S 
*Str3QLS-strSQLX ft " and relate Like " ' should be S 



05/05/2004, EAST Version: 1.4.1 



us 2002/0032687 Al 



81 



Mar. 14, 2002 



C :\p«tentVittdu1 es\De$RC141 .MSP 



*respen*e.wHt« •trwU 
rsscareh.open »trSQLf, cnSearch 

!fift>SBO(M«* — — -At right, check ip«uie to use with child edds 

'parent, spouse, marrlase, child 

db while^fiot^sseapch.EOF «nd x<99 

resMrle^write'^"^r>^IMPUT typ«-eh«cldbox n»«-Se^ . ^_ , ^ .... ^ 

rSiponw Srlte C<IHPl/r typc^ext n»" « "slmwe- « strX & ~ va ue-"* -<^»$««r^$>«rsoiulrta««^H: ^^Anbsp;;^^^ i 
response .write r<INPLrT type=text name-- & "SfMrae" * strx & " value«-&'''-«frsSearchrpersofufnM«^>A; "f-"*^^ *ize-10> J 

response .write <"<in»vt typc=tcxt name-" & "SBine«ne- * strx t " va1u«a"*-;-&p»5earchC>ersonjTnara6;)f; '"i^ 
response.wHcc ("kINPUT type^text name.;; & llsbyear" 4 sm & ^ va -Jr»Sesr€hJ &irth_year^^^^^ 

r«spon>e .write C'<1MPWT type-text namaa" & "Std" A scrX & " va1ue« & '-ArsSearchC per»oiuia )* * 4nbsp; & size-l4> ) 

res0ense!!«rite C^HWT typearadle naa^spousel ink ^raluea" I strX A " checked>'*) 
else 

response. write C^-^MPUT cype«rad1o nme>spouselink value-* & strK 4 " >") 

•CheckandCharge rsSearehCpereoiuld"), "OOOOOOOl", 1 ' r i i m 

rssearch.novenext ... 
'if x-1 th«n firstracarssearch. bookmark 

loop 

research. close 
naai«..cntBnafliftjent4X-l 
'and If 

sassionCspouse_ent )snaffle-cnt 

nane^cnteO 
If rtfluestC" PARENT") »"Y" then 
Str5QLP=strsQLX A " and Crelate Like *m' or relate like *»«')" 

rsSaarch.Op*n strSQLP, CnSearch 

%> 

^>Parents 

'parent, spouse, marriage, child 

do while not rssaarch.eOF and x<39 
str»=r1flhtC"000O"to,2) , . 

response .write C"<brxiNPUT type=ch«ckbox n«nw«Pchk"&»trX ** VALUE-1>") 

r«spons*.wHt« i"<lUfMT type«text name"" & "Plname" & strX & " value«"&""*^$Searchf"por»Ofx.ln«n)e"l&'""*"«nb»p;"t'* tize«10>'') 
rcsponse.wri te C*-<iNfvr type-t«xt namas:" & "Pfaune" & strX « " valuc»"4"*"*r$searchc''person_fn«n>«ri&"*''*"«rtbap;"4" 9izei-10>") 
response .write ("<iNPin' type=text name-" 4 "Pranamt" ft strtC 4 " va1ue-"4'''"4rsSearchC"persoiuimaiM*)&"*''*"«flbsp:"4" slze»lD>") 
rasponsa.writ* r<XHWT type^tcxt naffle-' A "Pbyear" & strX 4 " value-'*4""'4rsSearchC"birth_yeap'*)4^ '"4''4nbsp:H" s{ie»4>*) 
response .wri te CkZUPX/t type^text name-" 4 "Rid" 4 strX 4 " value«''4'*"*4rssearch(''per6on_1d'')4'*"*4"ftnbsp;*4" s1ce-14>*) 
'Cheekandcharga rsSaarchC'person.id"), "00000001", 1 
rsSearch .mevenext 

'if KbI then flrscrac^rssearcn.boobaarie 

XeX-fl 
loop 

rsScarch.cleee 

name.cn t-nanMLcnt-Hi*! 

;end if 

MKi onC"parftnt_cnt" )Bnaffle_cnt 



•If ^queitrchlld") -"V" then 
strSQkC-sti ' " 



'StrSQU 4 <* and relate Like *%ai' " 

rsSeardt.Open strSQLC, cnSearch 

<8R>chi1dren 
<X 

'parent, spouse, marriage, child 
x^l 

do while not rsSeerch.t^ and k<99 
strK«right("0000"4M,2) 

response .write r<brxINPUT typescheckbox nam»<chk''4strX «r VALUE>d>'*) 

response. write r"<INPUT type-text ruene-" 4 "Clnafne" 4 strX & " value»''Sf'""4rs5earchPperaon_lnanie*^'"*'4*'4nbsp;''4" siie-Kk*-") 
response.write C"<INP1/T typ««stext name=" 4 •"Cfnarne" 4 strx 4 " value"''4'""4rsSearchC"person_friaiTie'*J&'""4"4nbsp:"4'' s1ze«10>"j 
rtsponse.wri te C"<IMPUT type=text names" & "Onname** 4 strx & " value-"4''"'4rsSearchr''p«rson-rnnam*")4'"''&"4nbip;''4'' sIze-lQv") 
rasponsa.wri tc C"<INPUT rype-text name=" t "Cbyear" 4 strX & " values"*"* "4r$SearchC"o1rth_year")4^'*"4'4rbsp:'"4- size94> ") 
response.write (-<INPUT typ^text name-" 4 "Cid" 4 atrte 4 " value«''4"*"4rsSearehrperson.id"34''"*4''tebsp/4" size»14>'*) 
checkandcharge rsSearchCpersoruld"), "OOOOOOOl-, 1 ^ ^ , 

rsSearch .movenext 

'if xsi then firstreoarssearch.booioaark 

x-x+1 

loop 

rtSearch. close 
naiii«.cntaniflie_cnt-t-x-l 
•end If 

»assionC"chi 1 (t_cnt">«=oanie_cnt 
'end of name listing for update 

'begin ADD options 

* rasponse.wri te C"<br><IHPUT type-radio namesAOORELATlvt VALUE-C checked>Add a child*') 
'rasponsa.wHta C''<brxlNPin' type- radio namaaAOOfteLATlVE va1ueBS>Add a spouse") 
'response.write C'<brxZHi>UT type-radio namexAOOfteumvc valuesP>Add a parent") 

<K 

sub chsckandCharge (NatneJCd. ftuyerjd, Current.Leve1) 

DIM pU>_id. SQLfees 

DIM SQLbuyer, rsauyer. rsfees 

DIM SOI.Publish, republish 

DIM SQtloQ, rsLos, rsbtiylog 

DIM FEESCb). X, charges 

DIM rsPast, SQLpaet, pasOevel , rcquestLlevel 
Dlei checCstate 

'Response .Wri te naBiOd4"/"«buyer_i <lft-/"4cMrrwi t«l «ve1 
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s«t rsFces • s«ifvfir.crt*t«obJfct("Aa>OB. Recordset"),., 
SQLfee«»"Select • from f«e_Stt^T Mhert fu_S<t - 01 



--,5or»F«e»C"feeClljia»e'') 

feesKWiFeesrf M02 J>asH c'^ 

ft8tC35=rsF€e«f "feeO J_c1 tei") 

f«e«<4WsFcesC''fc«04.citOmaO«*"} 

fe«»C55=rsPee»("f«e05«photB") 

feesC6)srsFecsC*fee06.texC") 

r«Fcet.Clo»« 

'SQLfcesa'5«1ect • fron fec_T wher« ftctype - *02'" 

'rfiFets.Dpen SQLfaM. cnScarch 

• f e«.r«teJ-r$Fe«s C'r«ft_rat«") 

'rsFees. close 

•buyiOdw'OOOOOOOr 

set r sPas tsServc r .CreaUObi «c t C'AOODB . Recordset" ) 

SQLptst^" select ♦ from buviofl«t " 4. 

•Nxher* buyloa3uyer • ftbuycr.id 

"and buylog^ame.1d 4na«*_1d «"*"*_ 

**ord«r by buylogJ)uy«r, buy1og_iiuie.id. buylO0_fee_1eve1 dcsc" 

rsP&st.open SQLPesc, cnsearch 
If rsPast.BOF and rsPast.EOF then 
pasOeve1-0 
•Is* 

paeOoveUrsPastCbuyl og.f •«_1flv«1 "> 

endTf 

'R*spons« .write "buyer^id Abuyer^fd 
' Respon se .wri te "f aiJie r_1 d=t"<rf xtne r_1 d 
'Response .wri ta "pastel evel ="&past_l evel f 
rsPast.dose 

'Ro5ponse.wri te "past=''&oast_l eve1&*'curr«nto"Acurran thieve 1 
check^state-currenOevei - pa»t_1«ve1 'convert to all nunerfc result 
■if cKackjatate <m 0 then , , .'^^ current is less than or equal t» past, stop, 
'ff past_1eve1 - currcnOeve! then *th1s apparent equal fty wasn't equal - needed conversion 
* Response.wri te "ms equal" 

exit sub * short cut the subroutine 
end if 

' Response.wri te "didn't exit sub" 
charQesaO 

for x*>pa5t.1eve1<»-l to current_lcvel 
charge jsch arge B■^f« e &<x) 
next 

puts^l dal eftCNan>€_1 d , 9) 
Response Mri te "pub.l da''&pub.1d 

*buyer_1dia - see above 

'we need to update three files at this point: the buyers, the sellers and the log for our statisrlcal runs. 

SQLbuyerc-select • from buyer.t where buyer.id - "«buyer.„1d 
Set rsBuyer - server.creatcObject(!''AD006. Recordset") 
rseuyer.open SQLbuyer, cnSearch.adopenOynamic.adljOckOptiRristie 
rsBuyerC" buye r_unpa1 d_acc t" )arsBuyer C'buye r,^ai d»acct")_ 

•lOiARCES*' rsBuye r(*'buye r_sal es_percent ) 
rsBuyerC"buyer^ales.todate'*)*rsBuyer("buy«r.sa1es.todate'*>_ 

iCHARGES^ rs Buyer C'buye r.sal es^rcent") 

rsBuyer.updace 
rsBuyer. close 



_er to initialize aU computational fields in the database 
otherwise the null value will kill any computation, and nother will be stored there. 
SQLpublisha" select * from publisher.t where pubjd ■ '"Apub.id ft"*" 
Set republish = Server.CreateObjectC'AOOOB. Recordset") 
rsPubli sh.Open SQLpubli sh, cnsearch, adopenOynanric , adLockOptini stic 

'Response.wri te **pubjiinam«B"4r$publi shCpubjnname") 

rsPubl1sh("Pub_unpa1 d_«cct")or»^ubl i sh("Pub_unp«id_ecct")_„ 

♦charoes*rsPubll5h("pub_$ale$_pefxent") " 
rsPubli8h(''Pub.salec_todate*')>rsPubl i shO'Puh.seles.todate''). 

•Kharge $*rsPubl i shC pub.sal e s j>e ncent**) 

'response .write "chBrge$fa"&chareesf 

'Response .write "pub^npal d-accte'^rspubllshCpubjunpai d.ecct") 

rs Publish. Update 
rsPublish. Close 



SQLlog*" select • from buy1og_t " 

Set rsBuytog s Server. CreateObjectC'ADOOB.Recordset") 

rsBuylog.Open s<}Llog, cnsearch,adop«noynamic.adLockoptlBristic 

rsBuyLog.Addnew 

rsBuyLog^ buyloo.buyer") buyer.id 

rsBuyLogC"buylog^ame^id**> - name.id 'nania_{d includes the publisher nunber. 
rsBuyLogc" buylog^jTecTeve I )«currenO eve1 
rsBuyLogi" buy leg^i ncome " )^na rges 

rs8uyLogC'*buylog^ate")«now 
' rssuyLogC*buylog_tiine")«tiMe 
rsBuy Log. Update 
rsBuyLog. Close 



sqLlog8**select * from loo_t " 

Set rsLog - sen/ar.creatcObjectCAOOOB. Recordset") 

r slog .Open SQLlog, cnSearch.adopenDynamie.sdLockOptimistic 

rstog .Addnew 

rctogClogJkuyar") a. buyer^id 

rstogriog.name.id") - name_id 'nama.id includes the publisher nunber 
rsLog C" 1oa.f cejl evel ")ecur rentjl evel 
rsLogC 1eo_i ncotne ')-cha rge s 



rsLog C "loQ^a te**)« 
r8UgC'1og_tiine"J* 
rs Log. update 
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rsLog. Close 
End sub 




^BRa.iii ui 

<BR> 

<INPUT lYPCs** submit" valuea"SKOW DETAILS FOR UPDATE** 1dssubm1t2 name-subrai t2> 

</FORM> 
<p>dnbsp;</P> 

<p><a hre'ns"menuIDXl.asp">Retum to Indexer/Publlsher Wain Menu </a></p> 
<p><a hre^"vrelcQRie2.asp">Recum to Main Menu </a></p> 
<p><a hrefs".,Atelcoine3.htm">Retum to Welcome Page</ax/p> 

</eooY^ 
</Hmi> 
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•dBOptlon Gxpllclc W 

<t" #1nc1tjde vlrtual-^comDon/adovbt.inc" — > 

<MTML> 
<HEAO 

<MerA HAME-'*G£N£RATOR" Cont«nt«"Micro£oft Visual studio 6.0"> 

<nrLe>PUSLISHEftS OETAILEO PEOZGREE UI>IMTEVnTLE> 
<H3>^PUBLISHCRS OETAZLED PEOZGREE UP0ATEVn3> 
-</HEAD> 
<B0OV> 



as 'begin person- switch routine 

Dim X, strK, chk^«r«on.1<l, llr^^nt 

Dim cn$«arch r 

01m ANvneWasChecked ' . CHECKANDCHARGE 

Dim start_per«onu.id, MarH ageUpdatad 

Dim OISPLAY_RELATIVEJTYPe 

Oiiii UNK^USEJIO 

aNanw*risCheck«d.*'N" ^ _ ^ 

startLperson.1 d«rcquestrscart^ersen.1ir) 

^ECK^FOR REQUEST TO ADO NEW PERSON/RELATIVE 

IF RE<lUEST<"SELJl«OE->--NEIi/' than 

t> 

<FORM HETH00=TOS7 ACTIOH="db3rcl47.a5p" 1d»fonifl f>a«ie-fdn«2> 
<br>TKa scr««ns will continue and add NEW 
^1f rcauestC"ADORELATIVE")=."C" THEMb- CHILD, 
^laelf request CAOORELATIvr'^"^" THEH» SPOUSE. 
<dt€l»e1f reqUBatrACXJRElATIVE-)."?^ TNEN3& PAREMT. 

•^nd \r%> 



if r«qu«»tC''A00RCtATZVO"C" THEN 



UHi;.SPOusEj:o=" 999999 999 99999" 'set to test for success 
s t nc=H gh t ( " 0000 " Arequ e 6 1 (" spou* el 1 nk" ) , 2^ 

LINICSPaU5EJ0=REQUESTC'5I0"4STRX) 
END IP 

%> 

<br>Start1ng PersorKp> 
Name; Last 

<IliPi/T TYPEst'TEXT" WVMEc"$tart_lnani€" 9IZE?tlS values" ■^rcquc»tC"start»ln«nie")X>">- 
Flrit 

<I1IPUT TYPE-'^BCr" NAME-" ate rt-ftiame- SI2Ep»1S value-"<dl^r«questC"»tarcfnaroe")%>"> 
Middle 

<IMPUT TYP&i"TEXr liAME--startjBniine" SZ2E-L5 value-- <*=requestCstartjananie")J&"> 
<eR> 

Birth: Year 

jlMPVT TYPEp."TK)cr IIAii6D"«tartJ>1rth»year" 5IZE«4 value»"<3fcrequ«strscartj)i rt*uyear")3t>V 
tfNPUT TYPE»"TE)cr' HA«EB"»tart_persoa_a«)(" SIZEbI value*" <9&>requestC"start^er«on_scx";x>'*> 
Regl stry# 

<IMPVT TYPE»*'TEXr" HAME=*«tartj)«r$oa_1d" SIZ&=14 valu«B"<5fcreque$t<"start_pBrsoru1d'*)5fc»'*> 
<INPinr TYPE»"TEXr" name."add_R6LATIVE_TVPE" SI2E»1 valuea*'<5&BrequestC'addre1ative'')l^'^> 
<br>Llnk-to spouse 

<IMPVT TVPE-"TE)cr" MAMEa-LlHJCSPOUSE-XD" St2E^14 val ue«"-dfcLIWCSPOUSE_HW^"> 
<Wf t.IN)eSPOUSej:o="999d«99999999- then %y ^r»»^»^ 
<font colon=redxh3>You have no valid spouse to link to Che new child record. 
Nomall^^u should return and correct that situat1on.</h3>Vfont> 



<INPtfr TYPE-" submit- values-AOO relative* Id^subnltZ nane»sufanit2> 

'END IP 



'GEGIN PROCESSING OF NEW FOCUS CHOICE, IP ANY 

Elself reque$tC'seljnode")»'*FOCUS" THEM 'DATA 1$ default 

FOR Xsi TO sessionCsDousejcnt") '2S 

STRX^GHTr OOOO "&X, 2> 

XP REQUeSTCSOttCASTRTO-l THEN 

CHICJ>CR50N_Z0-RE«ICSTC"SZD''«SnU0 

aNameWasChecke^Y" 

X> 

<FORM MeTHOO=PosT AcriONa"db$rcl40.asp" id=fonn2 nanie=form2> 
The screens will continue with the new focus name chosen. 
<br>«tNPtJT typescheckbox namtachkOOOl VAUIE-l checked> 



<IHp5f'?YPC-"TeXT" NAME-"gr 

<lNPUr TYPC--TEXT" NAMEB^Tlne^cnf * SIZEa2 valucol> 



<INPur fYPC-||TeXT;| NAME-;;ar1d.idOOOr sr2E-l4 value»'><<]lMk-person.1dX>**> 



<ftR>«R> 

<IHPur TYPEa**subn1c" val uea'CONTZNUE* 1dssubn1t2 nanessubnrit2> 

END If 
NEXT 

FOR >c=l TO 3es«ion("parcnt_cnt") '2i 

STRX=RICHTr'000O"&X , 2) 

IF REQUESTC'PCKK''«rSTRX)-l THEM 

CHR^£RSOfCZD«ltEqUEST<"PID''ftSTftX> 
8NaiMMsdieckads"Y" 

%> 
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<^ORM METHOOsPOST ACrZ0N>''dbf rcL'40.asp" IcfcifomZ nameaforn)2> 
The screens will cont-inue with the new focus name chosen. 
<br><XKPUT c/peocheckbox naine>chk0001 VALUC*1 checked> 
Re04 txty$ 

<1N^I/T TVPE-'TEXr- IMME-''9rt4_iil0O0r $IM-14 value«"<Xachk_per»iui<«>"> 

<INPIIT TYPE»"TEXT" IMMEb"T1 ne.cnt" SIZCs2 va1uc«l> 

<SR><Slt> 

^HfVT TYPE*'*subn1t*' value^'COHTZKUE" 1d»subia1t3 naffle-subn1t2> 



ENO IP 
NEXT 

FOR XbI to aessionrcM14.cnt"} '2$ 
STWC=ftIC«T< "OOOO'tX, 2 ) 

'Response .Write 5TRX 
' chkn«M«"chk"lrstrx 

IP te<yjc&T<'*ccHic"«STftX}«i then 

GHiCPERSONJMtEQUEST('*CX0"«5TWO 
aN«meWisChecked-"V- 

<FDRM kETMOO-POST ACriONo"<Ibsrca40.asp'* 1dafonn2 ni_ _ _ 
Thm ftcr«ens will continue with the new -focus nine chosen. 
<brxjNPUT typcscheckbox name»chk0001 VAIUM checked> 
Regi stry* 

<ZHPur TYPt-'TEXT- NAMC»"aHfL1<l0001" stZEsl4 value-".4kchk.person-1 dSb-"> 
<INPUT TYPE-'TEXT" NA«E3"Tin«_cnt" SXZE-2 va1ue-l> 



<INPUT lVPE-"subra1t" value*"COin'INUE" 1d-cubin1t2 nMia-subn1t2> 

END IF 
NEXT 

'if it gets herci there was no box checked, so re-use start person M. 

If aNaffleWasCheckeds"N" then 

5& 

<FORM METHO0=POST ACTI0«s"dbsrcl40.asp" 1d*fonn2 name-forro2> 

You vude no selection of a new focus naune, so screens will continue with original nsne. 
<br>-<INPUT type-checkbox nafna«chkO0Ol VALUE«1 ch*cked> 
Regi stry# 

<INPUT TYPE-"Texr- NAMEa"oHd_idOOOi" srzE=l4 va1ue«"<d(-reQuestC''start_persoru1d") V> 
<XNPUT TYPE* -TEXT' NWE- "Tlne«cnt- SI26-2 va1ue-l> 



<XMPUT TYPE-'suberit" value-^CONTlNUE" 1d>sufam1t2 nwessuboil t2> 

end if 



Elself requestC'sel^d€'')«'*UNKPAReNTS" THEN 'DATA 1s default 

Dlot perent_s1otj parenC_s1otl, parent.a1ot2 
Oi« pkr«nt_s1otl^sx, parent.slot2_5ex 
Din Father, Mother 
Oio) cnLinks, rsLlnks, SQLlInk 

parent_slots:l 
pa rentes lot IsO 
pafent.s1ot2*0 

FOR x=l TO »e5sion("parent_cnt") *2S 
STRXBRKMrC-OOOO-tX, 5) 

IP RCQUESTCPOiK-ASTRX)-! THEN 

if parent_s1otei then 
par«nt_*1 otl-REQUESTC" PID'ASTRX) 
pa rentLJSl o r entLS 1 o t«»-l 
else 

parent;.*! ot2«RCQMESTC"PZD''ASTRX) 
exit for 
end if 
end If 
Next 

If pBrent.slocU> or parent_8lot2«0 then 
'error case 
•nd if 

Set cnLinks ■ Server.CreateObjectC'ADOOB. Connection") 
cnLinks. Open "dbl" 

set rslinks e Server. CreatcObjcct("AD006.Record»ec") 

SQL] ink-* select parsorusex from PersonJT where persoruid e ' "4parent.^lotl A'" 
rslinks. open SQL link, cnLinks 
parentusTotl^exarsLlnksCparson^sex") 
rsLl nks. close 

SQL]ink='Select person_sex from Per*on-T vtiere personjfd - * "4parent-slot2 A"' 
rftlinks;op«n SQL! ink, cnLinfcs ^ 
parental ot2^ex*r6Li nksC"p«rson_sax") 
rsLinks. close 

if parentis! otJwSex«i"M" and parent.»lot2.sexp"F" then 
PAthe rspa nent^sl ot 1 
Mothen^arent_slot2 

el self parent.»1otl_»ex^"F" and parent_s1ec^sex»'*M'* then 

Fethc rcpa renc_s1ot2 

Mothen-parent^sloU 
else 

•error condition 
end if 

rsLinks.Open "Select * from Llnks_T", 

cnLi nks , adopinO/ntrai c . adLockOptiniTsti c 
rsLi nks.Addnew 
r»Li nks("personl")sFBther 
raLi nksi'*per8on2"J^lother 
rsLinksCrelate'Da-sw " 
rsLinks. update 

rsLi nks.Addnew 

rsLi nksf'pc rsonflaMother 

rsLi nksrperson2**3«Father 

rsLinksCf^ I " 

rsLinks .update 

rsLlnka .close 
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c:\Dit«nt\m>du1 e>\OBSftcl^ S .asp 

cnLlnlit.clost 
x> 

<fOlW NETWD»POST ACnOII«'*db«rel4l.a«p** id«fonB2 iunerfonn2> 
Starting p%rtcn<p» 

^NPur TYPEm'TGXT" NMtE-''start.lnifM*' SI2C^S va1utt»''^r«qu<$tCfttar^1namt*}»''> 

SnWT TVPEa"TOCr" N^ea' stBrt.fh«mt" StZE-U va1g«»"'d(«r«qu«fctC'st«rt;»fnanie"3X>"> 
Middle 

<1NIVT TYPE^"TEXr" NWE-** ■tartLi«nime" SCZEslS v«lues"^reque»tC"startjnnane")»'"> 
<BR> 

Birth: Vaar 

<XHFVT lYPC-'TEXr" iUM4E*'ttartJiirth_y«>r'' SIZCa4 i/aluta"^reqiJest("sc&fTJ»1 rttuy«aO]l^*'> 

<XNPi;r TYPCa'TEXr" tMNEff'starcparsonusex' $IZE«1 va1ue*'*4Kcrequest(''»taf't.pcr»on.a«x'*}xy"> 

IlNPufTrVPE-'TEXr" I«»c-"startjser80ft_1d'' SIZE»14 v«1ue="<afc=reque5t(''start^r»on.id")Slt% 
<BR> 

The Par«nt Links w«re established. You may add children to that family. 
<br>Marr-(age data may be added later. 

<BR><Bft> 

<ltiPUT TYPE-" submit" val ue«'*COVTXflue'' 1d>«ubmit2 raneaisubn1t2> 
</Fora4> 

?* 

* so go ahead and display the selected person 

ELSe 'end of person'switch section OR perfon^-add s«eHonK> 

<FORM METH0D=POST ACnONB"dbsrcl46.asp" Id^fomL name»fbnnl> 

starting Person<p> 
Name: Last 

^INRkn* TYPfi«"TEXT*' MANE>"start_1naine" SIZE»1S va1ueB''^ra4uestC"atart.lname'))^"> 
First 

^NPin- TYPE^"TEXT" NAMEa" start_fnan)e" SIZE-IS value="<3C=r«juestrscart-.fnane'*)X>*> 
Middle 

<lHPVr TYPE*"TEXT" NAHE««"scartjinanM»" SIZE^IS val ue="<^rcquestC' 9tartji)nanie")K>-*'> 
<<BR> 

Birth: Year 

^NPifT TYPE- "TEXT" WME«"scarcJb1 rttwcar SXZEs4 va1ije«"^request<"star01rcfuyear')]l&>"> 
Sex 

<INPUT TYPEtt'TEXT" NM1E«"start-person_scx" V4lue-"^requ«stC'*tart^«rson^K")tb>"> 
Registryir 

<IHPVT TYPE=-*TEXT" HAME»"st«rt_persofuid" SIZ6^4 v«lu«--<3lt-requs»tCtt«rt_|>«rson_id">SC>'S 



<INPUT 7YPE»"hidden** hamEp" spouse" SIZE-1 vBlue«'*<flkrequestC'*«pouse")»-"> 
<IHPVT TYPC-"Mddtn*' HAM&"parent* SIZEal valute"<dUrequ«strparent''5x>"> 
<IMPUT TYPEa"Mdden" IMM6»"ch11d" SZZC-l value-* ^reqtMStC'child*)9&'*> 
<BR> 
-<% 

S«t cnSearch » s«n/er.createObject("A0008. Connection") 
cnSe»rch.Op«n "dbl" 

' mi I ■■—————»—■— 

if roquescCfocus")*! then 



roquescCfocus")*! then 
CMLPERSOfUCMtEOUESTCstart.parson.id") 
OispleyNarae CHi;.PCitso»ciD, 'T^* • 



FOR x-l TO sessionCspouse.cnt'*) 

STRX-RICMT( "OOOO "liX , 2 5 
'Response .Write strx 

* chtcnaroes"chk.''&strx 

IF REQUESTCSCWCASTRX)-! TH£II 

CMfCJ»ERSOil_ID>iR£QUEST< "SI 0"45T100 

trisplayNMw CMiePERSOM_io, "s" '. start_per sordid 

di spl ay_re1 oti ve„tYpe="S" 

'Response. Write "cnfe''arStn< 

'Response. write REQUEST rchk'^Astrx) 

'Response .write requests" 9 rtd_id"4strx) 

' Response .Wri te START^ERSOILID 

'EXIT FOR 
EHD IF 
NEXT 

FOR »-l TO sessionC"PARE»fr«cnf) 
STRXs*rGKTCOO0O"*X , 2 ) 
■Rtiponse.^rite STRX 

* chkname-"chk''&«trx 

IF REqUESTCPCHK"&STRXj»l THEN 

CHiCPERSOfLJO-REQUEST C PID"«STRX) 

OispUytUine OMK.PERSOH_JO. '*P" 

di spl ey.nl ati vft.type-" P" 
EMD IP 
NEXT 

FOR Xsl TO sess1onC"child_cnt") 
STR;&iRXGHT("0000'*«X , 2 > 
' Retponst.wri te STRX 

* chknnee''chk"&stn( 

IF llEQUeST("CCHK"&STRX)-a THEN 

CHIC^£RSOILJDBREQUEST(''aO"fiSTRX) 
OisplayName CHKJiERSONUO, "C" 
di spl ay.rel ativ«_typ«p'*C" 

END IF 
ME> fni> 

•<M> 

<INPUr TYPE»"TEXT" tMMEi-**0XSPlAYJlEtATIVE_TYP6'' value-''<dbOISPUVJieunVEjrYPQ&"> 

^INPirr TYPEm-TBCr- Haine»~rev^ll*^ aiZE«l vol ue>ir*^SBREqucsrC* reveal 

<XNPUT TVP£«**TeXT" NMIE«*'UP0ATE..perSOrL.1d" ilZ&'U Va1tlC«''<X>CHK^ERS0*CIO)G>''> 
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<IHPUT TYPE«"TEXT" NWEs-fiiarH ageUpdated" 5X2E-1 value-" ^X-narHtgaUpdatadfcV 

<i5p5t%CPE»" submit" va)ue3"UP0ATE MAME" id«sut)ni1t2 n*a»=»ubnri t2> 
</F<5WI> 

d(END If * «nd of main progrun 



•If requestC"MljMAME**5-*S0ME*' 

•2.Baa1c Oaea S.Cltes 4,TexC S.Clta Imaga 6. Photo. 

Sub 01 iplayNane (Name_{d, ralatlonfthip) 

oin raSearch raSearchP, rsSaarchM 

Oin strSQM» 't atrSqulF, str»4LlM, SQLfaat 

(Hh strSQLM. rsMarr, persorusex 

01» ■iappJius«no, i«aprjirif€_no ^ ,^ „ 

Olm StrsQLT«xc, rsText, rev_an . linOwld, Hna_naiPe 

iHin STft_T. T 

Set rsS«arch a s«fV«r.Crcatcobject("AW)OB.Record»et") 

StrSQLpa" SELECT * "«u 

"from pBPioa-t . . „ . 

raSearch.Opan strSQLp, cnStarch 

p«r»oruaex srsSearchCpertoiusex") 
•Father of Starting Person <BR> 
•If request("rey_ai1 ")>1 then 
if re1ationih1p= F" then 

Response .write ("■<SR» ■■■«»Focm Parson n m n i") 

end If 

If r«1«tionsh-tpa"S*' then 

Re$p<mse. Write r'<SR>»a— «»»-"==»Spous« Name ■■ ■ -n rntmrna'") 
end if 

if relation*Mp«:'*P" then 

Response .Write C*<BR>«————— Parent Nana « ■■■■■■■ 1 ") 

end if 

if re1ation»hip»"C" then 

Response.wrlte C"<gR>*-' " ■■ ■ ' " cMId Nana " ) 

end if 

Responae.write C*<eR>Nanei Last") '(mbspj 

response.wrlte c"<input typestext naneBpersonulname valMe""&'""4rsSearehC''p«rs«n_1na«a")*"'"ft**M32;'*&" sizesSO >") 
Rasponse .Wri ta C" Fi rs t" ) 

reqionse.write ("<1nput type^text namei^ersoiufname va1ua»"A**"&r«SearchC"person.fha«a")ft""'*"M'32;''ft" sIzesSO >") 
RaspoRSC.wri te ("Middle') 

response.wrlte ("-aNPVT type-text nama-personjimame values"4'""«r*SearchC**persciijiinaine")8i*""4"&f32;'*&" s1zes30 >-) 
Response.wrlte r<br>Third Given") 

rasponse. write ("<IKPi;t typeeitext nawe-pe rson_3nama va1ue="4*" "4rs Search C"p«rson.3najre")8i 4'*arf32;"&" size-30 >") 
Response .Write C*Tltle") 

response. write C'<INPIIT type=text naiitc=:pe r$on_ti t1 e va1ue«'&''*"&rsSe«rch<"person_title*')&"*"A"A*32j**A" size*30 >") 
Response .wri te r'sex") 

rasponse. write <"<INPUT type-text nane-parson_aax va1ua***lrrsSaarchC'parsotusex*'>A''Mr32;"Ar slzesl >") 



'Rasponse .writs <*<fiR>Birth Year") 

1 



response.wrlte ([-<1hput t^^oe-text nwne«up<U>i rth_yaar value«"triSaarchC*birth-ye4r")&"A<G2;''4" si2es»4 >") 



Response .Wri te r^Regi strytT ) 
response .write C<iNPirr type-text namespersoa_id va1uea*'&raSearchC"person_1d")&"&t32;''&" &l2e>14 >") 
'above, show name to be updated 

If request ("rev J 11") -2 t*>en 

Response .Wri te C'<BR>Blrrh: rear") 

pasponta .write C<INPUT typestext nane^blrth^ear va1ue«"4r$search("birtn_year-)«("«32;"4" size=4>") 

Response .wri te CMonth") 

response .write r'<lNPur typastext namesblrthjfoonth VBlue»"&r9SearchC"bi rth_inonth")&'&#3a sizea2>") 

ResponBc.Writo C'Day") 

response.wri te C'*<INPUT tvoe-text nBme«bi rth^da/ va1ueB"ArsS«arch(''birth^a/")4"A#32:"lr" s1ze92>") 

Rasponsa.wri te ("Accuracy ) 

response.wri te ("-^INPirr type-text nainasb1rth.yr^ccur values-ArsSearchC"birth_yp_accur"}*"«f32;"&" s1za»l>'') 

Response .Wri ( gepcom date ) 

response .write rKlttPVT tvpcstext name-bi rth.GED_date va1uie'6rsSa»rchCb1rchjGED.dace'*)«*Mr32;''&'' iiw=30>") 

Response.wrlte ("Year variance") 

rasponse .write ("kIMPUT typestext name«*1rtrcyr_var value«"*rsSearchC"birth-yr„var")«"4#32i"4" size«3>'') 
Response.wrlte 

response .write 
Response. Write 
response, write 
Response.wrlte 
response, write 
Raspense .Write 
response, write 



•'<aR>Place: Country Cor >eve1 1)") 

"<1HPUT typesteKt name-bl rth-^ountry value=***""to-ssearch("birth.country'*)&"*"4''«#32;''&" size-30>'') 
"<aR>Place: St^te Cor level 2)") 

''<LHPVT type>text naine»4»1 rth.state walue-"A'"*'&rsSt*rcKC"birth.«tate")*"'"*'**»32!**A* s1zaB30>'') 
;"<BR>Place: County (or level 3)") 

"^IMPUT type-text ^nama«b1rth_raunty value«''&'"**&rsSearchC''birttucounty"Xr---"&''««32t''«" slze«30 >-) 
;*<BR>Plftce: City (or level 4)") 

"<IMPUT typct*t«xt naneablrtK-Clcy value«"A"'"4rsSearchC"birt*>_city")4"'"A"«#32}"*" s1za-30 >") 
Response.wrlte (''<br> Latitude") 

response .write (ViWPUT type=text namcBbl rtiul at va1uc-"&r8SeirchC"b1rch_lat")4''Wr32;"4" siecolO >") 
Response.Vrite ("Longitude ) 

response, wri to c"<1MPUT typestext nameobirtiuloog va1ues"Ara5earehC"birth_long*')A"<M'32:"fr'* s4ze-10 >") 
Response . Wn te ("Accu racy ) 

rcsponse.write C<tHWT type«text naweOii rth-.geo_acc«r va1ua*"<rPSS«archC'birdug«o^ccur")«"tf32;''&" s1»al>") 

*umu wii rhristeninp below 

Response .Write ("<BR>Chr1sten1ng: Yesr") 

response.wri te C'<INPUT typestext namc-chria^ear value-"*rsSaarch("<hri«_year")A"4J32:"A" sizea4 >") 
Response.wrlte rMonth") 

response.wrlte C"<iNPirr type-text name-chria^nth value»"4rsSearchC"chr1 sjiionth'')«f"4#32;"&'' s1zes2 >") 
Response.Vrite ("Oay") 

respcnsa .write r<iNPt;T tvpe=text naineEChr1a.day value«"«frsscarchC*chr1s_day")*"«02;*'4" 5lze«2 >*•) 
Response.wrlte ("Accuracy*) 

response .write ("<INPin" type-text niffle»chris.jrp^ccup va1uea"<rrsSearchC'chris_yr_accur**)ft"ftf32j-ft'* size-l>*') 
Response .write C'CCOCDM date") * -r .r . 

response .write r<WP\JT type-text nine-chriicce0.date value-"ftrsSearchCchrisj5E0Ldate")S'' "A'' size-30>-) 
Response.wrlte ("Year variance") 

response .write ("<INPUT type-text nin»e-chr1»_yr.var v«1ueB"Ar5S«irchC"chrijs_yr_var'*)6"4#32;**&" Siie»3>'') 
Response .Write ("<BR>Place: Country (or level 1)**) 

response.wri tc ("<lNPUr type-text name»chris.country value-"&*" "ArsSaarchCchri s.COuntr/')<r'"'*&"<i#32:"&" sl2e«30 >**) 
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ResponM.itfritB 
responM .write 
R«tpont«.writa 
response .write 
Response .Write 
rasponse.wrlt* 

Response. Write 
respoftsa.wri tc 
Response .Write 
response .write 
Response .write 
response, write 



••.«R>Pl»ce: State Cor laval 2>") 

"<aHPUT typestext namenchpi s.state va1«e-"4" 
"4SR>Place: County Cor level J) ) 



■•*rsSe*r<h<-€hHs^t»ta")&"'**"'&#32r*" sirto30 >") 




^**<1K«IT type-text Mma«^rl »_county »/alue»**'""&rsSea.rch("chrii_county">4("'"a'*WJ2;"A" slze-SO >*•) 
^''<BR>Plice: city Cor lavcl 4)"> 

[-<IMPUT type-text nams«chri s.ci ty valuea-*""«frsSearch(-chrls_c1ty->& &'' "*" s1z«-30 >'*> 
["•«BR>L8Cl tude") 

"<IMPVT type-text nMia*chr1sJ«t value=i"4rfS«arch(*'chr1St„lst")4"4#32;"&'* $l2eal0>*') 
["Longitude ) 

•'•<INPVT typeatext n«ne«chri s^long va1u«a"ar»Search("chris«lono'')4"4#J2l*'*" slw-lOb-") 
' " Accu ra cy ) 

;"<ZNPUT typ««text nwne-chrl s_geo_»ccur va1ue-"<irsSeanchC'chr(s_oao^C€ur")&*'4#32;"&" s1ze3l>"} 

daath b«1ow 

<BIW>eath: Year") 

<ZNPUT typestext narnesdeattuyear va1ue-**dirsSeRrdi('*deatluyear^)<r''ddr32 ;**&** size»4 >") 

Month") 

"^INPin' typastcxt naneiulcethjiionCh va1ue-'*atrsScarch<"deatKjBontl>")&'*t#32;''Xi" s1zeB2 >**) 

*<<INPUT typeotext name-deatKjday va1ue-"<rBSearchC*'death_day")fr"t#32:"&'' s1zes2 >") 
'"Accuracy J 

<XNPllT typa»t«9ct nanie«deattv.yr-ACCur value«"«rsSearch{"death_yr_accur">&"*#32;"«»" size=i>") 
CCOCOM date") 

'■<INPaT type-text name«deat^_CEO_date va1ue=''4r»Se»rch(*'deati>_GE0_date''>4"**32;"A" tizt^lOy"") 
"Vaar variance**) 

"■KlHPirr type-text namo-daathjrr-,v«r va1u«B''<rf'sS«archC'*d*ath.yr_var")8r"M32;''&" s1zeB3>*'} 
-^R>Place: country Cor level l)") 

'*<lNPur type-text name-d«atK_country values"ft'*'"Ars$earehC"deattuc«untry~)V*'ft'' '*&*' sUesSO >") 
'<aR>Place: state (or level 2)") 

<lHPur typestext namesdeatlustate va1uaa"&""'ArsSeareh("deatlustat«")»'*"*fr" "&" s{ze»30 >") 
'<<ftR>Plae«: County (or level 3)") 

"<INPUT typestext n«ne-death_oounty va1iie«''&""*4rsSearch("death.county'*)A'*"*A'*<#32;"4^'' sl2e-30 >") 
"<BR>Place: City (or level A)") 

'•<INPVT type=te3ct nMie-death^clty value-**" "'<rrsSftarchC"death_e1ty")A""*£"ft#32;'*A" s1zcs30 >") 
"<BR>Lat1tude") 

"<INPur typestext nune-deaifulat value**frrts«arch('*death.1at")C*'£«32;*'&'' s1ze«10>*) 

•'tonflltude'*) 

<INPin- type-text nvne-death.1on0 value-"ArsScanchC*'deatli_long")&''M32i''&'' iizc«10>**) 

Accuracy ') 

•*<iNPin' type=text ninieBdeath^eQ_BCCur va1ue-''ftrs5earchC''deatluieo^ccur")&^*U32;'*dr'' s1zcsl>") 



Response 
response 
Response 
response 
Rasponsa 
response 
Response 
response 
Response 
response 
Response 
response 

Response 
response 
Response I 
response I 
ftesfMMise. 
response. 
Response, 
response, 



.WH t« 
.wrl tt 
.write 
.wrH t« 
.wri te 
.wHte 
Write 
.write 
.write 
jwrtte 
.write 
write 

.Write 
wHte 
Write 
write 
Write 
write 
write 
write 



ftesponse.wri te 
response, write 
Response. Write 
response .write 
Raapanee .wri Ca 
response .wri te 



^ria1 below 
^'<BR><8R>«ur{«l : Year") 

"<rNPUT typeatext n«nie=buria1_yeor value-"&rsSearchC"bur1 al_yaar" 2 «ixa=4 >") 
"Month") 

ViNPUT typa-taxt name-bur laljnonth v*lue-"*rsSearch("bur1al_wonth"3«"«f32;"A'' s1zes2 >") 
,*'Day") 

"<INPtnr type-text na»e=bur1a1_day valuex'*&rs9e«rchC'bur1al^ay''}ft'*M32i'*«" alze-Z >"> 

'"Accuracy'*) 

r<iNPUT type-text name-burl al^r^eur valua-''ftraSear«hC'burial_yr^ecur")A''A#32:*'A" s1zesl>") 

'^'*CE0O0M date**) 

•<iNpur typectext naites^rialjSEQjdate value-'*&rBSearChC''burial_CEOjdate")«^M32:"«" s1zea30>") 

•y«ar variance") 

VINPUT type=text nanie=bur1al_yr_var value»**4rssearch("bur1«l_yr_v«r")A" "A- s1ze->3>'') 
'•*<ftR>Pl ace : Country (or level 1)") 

"KlNPUT type»text naroe-turl a l .country values"*^ *"*r»iearch("buriaUcountry")&'""A"»#32r«" 6ize-30 >") 
"•tf Replace: state (or level 2;") 

•^IHPtfT type-text name-buH al.state value-*A"**4rrsSearch("bur1al^tata">lr*'*"&"4t32i'A" ftl2e-30 >") 
, -tflUPlace: County Cor level 3)") 

[yiHWT eyp«-textnaine«burial county values"*" •"4rsSearch("burial«county-3«*"-4"«5J;"tf' size«30 >") 

•<JR>Place: city Cor level 4) ) 
:"<<ll«PUr type-text nwieaburial^city value>"ft""'«r$SearchC''burial^ty~)^**'«"ar32;'*ft" s1ze-30 

;"<BR>Lat1tude") 

''xiNpyr typ«^text naine=burial_lat va1uea"&rsSearchC"burtal.lat")*"«P32r*" s1ze-10>") 
"Longitude") 

,D^PV|T^t)fje^ext nime-burl a1.1ong value3"*rsSearchC"buri al«l ong")a"4ir32 1 "ft" »1 ze^>'*) 
["■dNPUT^lEype-text nam»^r1al.40o.^eur va1ue«"<rrsSBsrchC'burial.8eo^ccur")&"«#32:"&'* s1ze-l>") 



Response .Write 
Response.wri te 
response.wri te 
Response.wri te 
response.wri te 
Response .write 
response.wri te 
Response .write 
response .write 



, ^BRxBRxl dentin cat Ion or Data Quality Notes* 
*'<8R>Not«l:*') 

,"<lMPirr type-text nane=pertor\^tcl values"*"' 
,"<SR>HoteJ:*') 

•'<INPVT type-text nein<-persoi\.^te2 value-"*"' 
"<BR>H0te3:") 

"<INPUT typeetext name-perftOfV_note3 valu^"*"' 
'*<BR>flote4:"> 

<INPVT type-text name-persoruiotc^ value-"*"' 



end If 'end of name update 
'<l- 



If request("rev_all ")»2 then 
Response.wri te T'<BR><BR>oria1nal Source Cltarlens*') 
Response. write f"<BR>Hote5:"3 

response. write ;"<INPin" type>text name-persoiunoceS value-"*'" 
Response .Write C*<BR>Motfl6:") 

response.wri te (■<rNPirr typeatext name-person^notee value-"*" ' 
Response. WHte C'<BR>Mote7:"D 

response.wri te L"-<INPtfT type-text nanwepersoivjwte? values**"* 
Response .write c"<8R>»iote»:") 

re93onse.wri ta C''<ZNWr type-text name-person^tcd value-"*"* 
eno If 

rsSearch. Close 

'-—start narriage 

If request("rev_*ll*')-3 



•**r55earch("per$onjx)Cel")*" ' 
"*rsSearch("p« rsonjiot«2")*" ' 
"ArsSearchC'persotunote}")*" ' 
***rssearch('*persorunote4")*" ' 



•&r$Search("perEon.noteS ")4" ' 
'*r»search<"per8on.note$")*" ' 
'ftrisearch("person_note7")&" * 
'*rs9«archC*personjnoteS")«'' ' 



'&"&«2:"4" »1z«=80 >•) 
**'*.#32;"*" sIzerSO >") 
%"U32i''V' sizc>aO >") 
'ft***#32:"*^ size-so >") 



'*"*il32;"&- sire-8Q>") 
■«"&#32i"*" a1re=B0v") 
•*-&f32: •*- Slze-E0>' ) 
-*"*#J2f"*" sl«a-80>.") 



iarriage event data-asan 



then 

If relationshlpa's" then 
Response. write ('*<BRxBR>; 
'end if 

Set rsMarr « Server .CreateObJectC'AOOOB. Recordset") 

If person^ex - "P" then 
oarrjujs_no - stBrtj3trson.1d 
inarr_wifft-no - nain«L.id 
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elM 

Barrjttj*^ a iuincL.id 
«arrjwl^j» • «tartjer«nu1d 
end If 

StrSQU*»*'S6LECT * "<L 

■from lUrrligct ^«,« . 

"where marrJius_no « •* *narrJiu$_no A ..^A- 
" and niarrjdftji© o AnaroinfeLJto & 

rsMwr.Op«n itrSQUN, cnS wrch 
If p»M«rr,eof pr rjMarr.bof then 

Response .write "<8R><Sft>Mo M&rri&ge record found, but one created" 
•«arri4fleUp(lated-*r' 'was 
rsMarr. Close 

riKarr.open "Select * from MarnaBCjr**.. ^ 

cnseanch , adopenOynami c , adlockop tian stlc 
rsMarr.Addnew 

rsMarrC*iiiarr_hiiS-no"i » m4rrJ»us_no 
r$HarrC"niarrjif1fe_no ) o «arrjirlfe«no 

rcNarr.updata 
rsMarr. close 

rsHarr.Open strSQLM, cnSearch 

Response .Write "<&ftxBA>Marr1age record found" 
end if 'end of tcKt record check 

MarriageUpdatad^'V' 

Response.wri te r'<BR>MarH age : Year") 

response. write C"<INPUT typeacext nameierairrjyaar valuea"ArsMarrC*'fflarr^ear'>&"&#32i*'&" «ize>4>") 
Re apense. Write r'M!>nth''> 

response .write ("<lNPt/r type^text naine^narr.jnonth valus-"<irsMarrC"inarr.jnDnth**)&"<i#i2;"fr" sizes^") 
Response. write ("Day") 

response .wHca ("•aNPUT tvpestevt name4narr_day value«"ArsMarr("narr.day")«r'*M92;"&" s1zcb2>**) 
Response tWrl te Accuracy ) 

response .write ("^INPUT typcstext name«fnarr^r^ccur va1ues"«r9HarrC"marr^r.accur")ft'*&f32;"A" s1ze*4>'*) 
ResponsK.wri te r*^R>PUce: Country Cor level 1)") 

response .write C-<INPUT type^ext nane^narr.country values"&""'*r$MarrC"marr^CQuntr/')*"'"*"**32 ;*•*•• size«30>"} 
Response.wri te ("«fiR>Place: State Cor level 2)") 

response.irrite r<INP«T type»text nasiesfjiarr.state value3"ft"'"4rs«arr("raarrjtate")ft"'"*"«32;"*" s1Zta30O 
Response .write f"««R>Place: County Cor level 3)") 

response. write C"<INI»ut type=text nane^jjarr.county va1ue«''4"'**IirsMerr("marr.eounty">ft'" ''A'' "&'* Slzea30 >") 
Response -Write C"<BR>Place: City (or level 4)") 

response .write C^ihpvt typ««text nai««=«arr_ci ty value='*&**"*4rsMarrC"marr_c1ty'*)Jf"'"*6"&r32;"4" sizes30 >") 
Response .Write C''<BR>Lat1tude") 

response .write r<lNf>UT type«t«xt nameiNMrr.lat valuea''&rsMarr(''aarr.Ut**)&" ''&" s1zes6 >') 
Response .Write ("Longitude ) 

responac.write r<WP\n type*t«ct nane3aarr.long valuea"ArsMarrC''iiarr.long'*)ft''ftff32;"^ s1x*>6 >"> 
Response. write ("Accuracy") 

responsft.write ^"<IHPUT tvpa-text nane^rr^eo.accur velue8"«raMarrC«iarr.jeo_«ccur'*>ft''«#32("A" BlKe«l>") 
Responsc.wri te (*<BR>Motel:") 

response.Nrltc <*<INPUT type«text nanie^rr_notel value-''A"'"«rsMtrrC«i&rr.jwtel*)A*'**'ft'*M32:"&'' size«80 >") 

'end if 'record founds 
rsMarr .Close 

end If ' end of marriage -"S" check 

end if 'end of marriage >data type check 

'-—-end marriaga — ->-- 

If reque St C reveal l">-4 then 

y> 

<a(^P«rson's description text appears here SHOW TEXr<BR> 
<% 

Set rsTcxt » Ssrver.CreateObJectCADQOS. Recordset") 

StrSQLText""stLecT • "4L 

"from Text»t -4_ 

"where person.id « *" teMia_id 

rsText.Open strSQLText, cnScarch 

if rsText.eof or rsText.bof then 

Response .write "<BR><6R>No Text record found, but one created" 
rsText. Close 

rsText.opon "select * from Text_T",_ 

cnSearch, adapenOynamic . edLockOptioil sti C 
rsText.Addnew 

r«TextC"person„id") ■ name_1d 
rsText. update 
rtText. close 

rsText.Open strSQiText, cnSearch 
else 

Response .Write *'^R><BR>Text record found" 
end if 'end of text record check 

FOR Tal TO 2S 

STILT-RICKTC" 000O"tT, 2) 

1 1 nejwl d*rtr1io<rstext ("t'istr.t)) 

1 i ne_naBieB"T"*str.t 

response.wri te (••<8R>"totr.tA"<INPUT type«text name-"4rl1ne_name 4" va1ue="' Aline^ldA" "' A" " 4" s1z6=aO>") 

'response .write ("<RR><ZMPVT type«text value=~ ArsText 4"C'T*" ASTRX *")" A-WJ2;" &" s1ze«»0>") 
next 

;eND IF ' end of text record check 

^Kend 1f * end of text update0lE> 
> 

^f requ«it<''rev_aU")-S then 
X> 

<BR>Photo shown here SHOW PHOTO 
aiend Iflb- 



05/05/2004, EAST Version: 1.4.1 



us 2002/0032687 Al Mar. 14, 2002 

90 



C;\pAt€nt\Wodu1 es\DBSRCl4S . ASP 



requestC* reveal T')=6 then 

%> 

<8R>citation Image shown here SHOW CIT£ IMAGE 
<l > 



*GheckandCharge name_1d, "00000001*' , request("rev_a11") 
cnSearch. close 

^End Sub%> 

<!-- was' ha»hVnow"no"used INCLUDE VIRTUAL=*'C0MM0N/OiARGE01.INC*' — > 



<P>Anbfip;</P> 

<p><a href="in8nuidxl,asp">Retupn to 
<p><a href s"welconie2. asp ''>Retum to 
<p><a hrefs** . ,/Wel come 3 . ht7n">Return 

</BODV> 
</HTML> 



Indexer/Publisher Main Menu <;/ax/p> 

Main Menu </ax/p> 

to Welcome Page</a></p> 
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ci\p«ttntVpiMfcilw\oasRci4g.*sp 

3CB LarguBOtavascHpt %> 

<% OptSon explicit te- 

<l— #includc vlrtuKls'cctmon/adovbs.Inc" 

•OfTML> 



^tETA nmiEb''generator'* Conttnt»'*MlcroMft Vltual studio fi.O**> 

•<TXrLE>UPOATe XNDmOUAL, OETAIUCH/TXTLO 

<H3;>UP0ATE ZttDZVIOUAL* OETAtLED 

</H£AO> 

<B0OY> 

<POR*i METHODM^ST Acrrai»"dl»sPcMl,««p" IdsfoniiZ n«u^nn2> 
starting Percon<p> 
flame s Ldst 

<IHPUT ■rvPb.'TExr- NAME-'*$t4rt.lnMne'* SiZ&ilS v«ltte=-^request( "stirt-lnmie")3fe'% 
Pint 

<IMWT TYPE-nEXT" NAME- "start-fhajne" srZE-l$ value-" -dUrcque5t("$tart_fname")X>'> 
^NPUT TYPEw-TEXr" NAMEp 'atartJmaine" SlZEslS va1ueB''^rcque9t("start_innaine'')X>"> 
•irth: Y«ar 

<INPtfT TVPe«nexr* NAME»-»tartJMrtluyaap" SIZEM valu«»'*^raqutatC''startJb1rth_year*')]&"> 
■aNPtrr 7YP6-'Tot" nWE^^atart.persorufex'' SZZM value-" ^requMtC"START_person_sex")fc-">' 
Regi ttryi 

^WP tfT TyPE^nE XT" NAME-"8tart.^ePS0fu1d" siZE-14 valM«-"<5l6-reque9tC"8taPt_p«p*on_i<r)5b."> 

-aNPlTT TYPE-*hiddefl'* NAHe=" spouse" SIZE«1 v«lue»"-dUr<quest("»pouse">J^"> 
<IMPvr -rvPE«''hfdden" NAM^^parent" SZZEsl valuca'*<Xar«uestC'parant''5S'*> 

<BR> 

Crtw cnlndiv. rslndiv, sqlPerson 

Dim S7ART_PERSONJ0. UP0AT6j>«rsorL.id, revjill 



start-persoruldsrequestCstart^ersoruld") 
update_person_{ d«reque»t<"UPOATE_p«P»oruid") 
rev_an.requ«strrew_a1V3 ' 



Set cnlr\dW • Server. CreateObjectC'AOOOa.connectioV} 
cnlndiv. open "dbl" 

if rev-all - 2 then 
'page 270 of ASP for dun 

Set rslndiv • sarver.Cr«ateObjectC"AD0D8. Recordset") 
sql Persons select ♦ front persofut " Ic 
'drfwpe persoruid «'" &requestOlPIlATE^ersorv.1d'*) i, • 
ralndiv.ooen a^l Person, 



^ cnxndl V . adopenpynwil c , adLockOpderl sd c 
rslndi V • Add new 

*rndiv.idL«tr -'*0OOOO000-A''l010" 

; Indi V i d str «ri ahtf string(14 , "0")* owner.id ,S). 
* rT9ht<strrn9Cl4.'v">4ind1vl{d.4> 

;rsindivr*per»oiuid'0 - indiv.idjtr '+ owner.idnooo 
rsindivCperson^ld") « _ 

"omer.id" Indiv_id + oi«n«rJd*ljOOO 
•rsindiv('>er5on.id") - Indiv^idjtr 

rslndi vrperton-fiMRie"^ - Reque8tC"persdn_fn*ine"> 
rslndi vCparsorxjnname") « Rcquest("personjiinima'*S 
"J"3J^C.'**''*^1""*-? «= Requeatrperion-lname-5 
'*i'*?1^V„P"''*®^0*r*-/ = ti«que»trper8onjr»»me") 
ralndivCptriofutitle-) = Kequest("pcrson_t1t1e*'5 
•If 1 - 2 then 'tekporahy * ^ ' 

•IF RJGHT(REQUeSTrPER$OHJSeX">*i)-" " TOEN 

* Response .Wrftc "JT WAS A SPACE** 

'Response.Vrite "IT MAS NOT A SPACE" 
'EKO IP 

rslndi vC*P« rsoo-sen") b tHBi<RequestC"P«rsoa.iex")) 

1^*44^ Jll^J^ "'Pi '^^^ ^ "TO FIT - SEE PRIOR SCREEN 

rsindlvCb rth^r^ccur'J » trlmCRequestCbfrth-Vr^accur-)) 
» tnmCRequestrbirth.year'iy 

"J"i^^Cy^2M2°"5t' > • triai^Requestrbirttxi»nth^5) 
rslndi vC birtfuday" J c tnra<Request("birth^ay"» 
rslndi vrbirth_yr_var'*) - trlm(Requ«st("bi rth^r var")) 
"J"^j^C?1'^^°""^ry^ " ^'•1«nCR«qu««rb1n*iIcountry")1 
rslndiwrbirth^tate") a trimCRequestCbiptiustate")) 
"J"^j^C^''Sy^S""Sr > ■ tri(n(Rtqueat("birth_count/)} 
rslndi wrblrttuclty-5 a trlroCRequestCblrtk.eity-)) 
if 1«nCRj?qu««t("birth_lat"))-0 th.n 

* rslndi v<"bi rth_l at")-0 

; e^«^ raindl vC'bl rth_l af*)*reque»tC"b1 rth^lac") 
rslndi v("bi rth_^ona")«£l 

)^«^y«IndivC"bi rtfLlong")-requestC'birtK.long") 

rsIndivCb^ rtfulong")" tniii(Reqv«i:r*bi rttulong-)) 

rslndi vCMrthL.geo_accur"3 = trln<RcquestC"bTrtfvjgeo^ccur"3) 

■■enristenin g — 
.2!^ 1-^* the output fron dbsrct4$ has an extra space at the end t» ensure e<»prM-«> 
'Sr^nVS °" ^" problems cSinS biclTin ScSsS ^^'^ 

tne^Tieid siay be too long. 

_ . ccur-)) 
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r»lnd1 vCch r1 ft.countrv") - _tH«<R«qu««t rchrt •.country-)) 
nindivrchH •-state") = trlmCRequeitC chH».it»te )) 

r»lfitf1vrchr1s.l4t*; 

rcxndnv("ehHOong^ , - - ^--i-s — >H-t- . 

rilndivC*chrtsj9eo.accur") - trtmCRiqu«st(*airt »^«i>^cur")) 

r»ind1vrdeathlyr_accur") - trifi<Requft»tC"death_yr Accur")) 
rftlndivrdeath-year") = trlmfRequestf'dea^uyMr')) 
rslndivc" death-month") » tHmfR«qu«stC"death_«>nth )) 
r$lnd1v<-death_d»y") - tHmCReque»trdeath_day")) 
r»Indiv<"death_yr_var") » tPifflC8cquest("death.yr_var-)) 
r»IndivC"d«ath-.country*) - trtr(Reque»t(''d«ath-country")) 
rflndivf-deattustate") « trlraCRequestCdeath-Jtate")) 
rilndlvC"death_county ) ■ tr1ii»(Requeitf"death_county )) 
r»lndiv<"death_city") • trl«CReq"«»t<"deatK_city")) 
rtlndiv<"death_1«t'') « triraCReQuestCdeatfulatr)) 



'If lenCRequestCdeath-lat"))-© then 
■ rslndl vCoeath-l at'*)eO 

• «1 M r«indi V ("death-l a f)=Creqoea$t C^death.! at") 



r»lndivf"death_lono") - cr1(i(Requ«it("dcath_1ong")) 
•if 1en(RequtstC*d«ath_1ong"))*0 then 

• rtindl vCdcath-l ono'O-O 

• el M r»lnd1 v("deatfL i ong'*)«requcastC"death„long'') 
*end if 

rslndl v<"dcath_geo_accur") - tr^m(Reque«t("deati\_geo_acajr")) 

p»lndivrbup1alj^r.Accur") a trimCRequestCbuflal^r tCCUr")) 
rsindivi**buHal.^e*r"> - tnn^eque»tf"burial_yc»r ')) 
rtlndivL-fauHaljnonth ) = trlncRequestrburialjnonth )) 
pslndivf"burial^day") = trim[Requ«5tC''bur1aljiay")) 
rslndl vr "burl al^yr^var") « trfmCRequest(''buri«1_yr.var'*)5 
rslndl vc"burial_country) = trlmCRequestCburlal^country")) 
riindivc"buHal_stat«'*2 " tnm(Request("bunal_state")D 
rslnd1vt''bupla1_county ) = trim(R.eque5t("burial_cotinty )) 
rBlndWCbuHal.clty") = trimCRcquestrburlal.cl cy")) 
rslndl vC"burU1.1 at*) - tHin(Requ«stC buHal.lat")) 
•if lenCReque$tC**bur1al_lat"))»0 then 

• ralndi vC'buH al_l at" )*0 

•else rslndiv("bur1 aUlat'OKreqticaftC'buriaUaf) 
'•nd "if 

rslnd-ivf'bunal.long") - trlnCRaquestCburial.long**)) 
'if lenCR€quest("bur1al_1ong"))«0 then 
' rtindi vC"buH *i«.long")=0 

' al »e ralndl vC burl al.1 ong'')*r«qu«as t ("burl al _1 ong") 
•end if 

rtInd1vC"bur1a1_g«o_accur'') = trlmCRequesrC'burial.geo.accur")) 



If 1anCrequestC"perserunotel")) > ao then 

rslndivCperaon^Otal") - lart(R«qu«st("pertonu/>otel"),SO) 
else 

rslndl v("personjiot«r') = RequestC~person_notel*') 
«nd if 

If l«nCreque$t("person»note2")) > W then 

rslndiv("peraon_f»te2'*) • 1afc(RequtstC''pfrsoiuwte2''),W) 
else 

rslndl vC''perserunot«2-) o RequestCpersoaj»te2*'} 
end if 

If lenfrvguestCpersofunoteS")) > 80 then 

rstndivCpersoa.noteS**) « 1efcCRequestrpersonjioceS"),80) 
else 

rslndl vC"p«r»on_note3*') • RequeitCperswjvjteS") 
end if 

If Ien(reauest("per80r\^ote4**)) > 80 th«n 

r»lnaivCper«oiW-npta4-) « 1«ftCRequestC'*person_note4">,eo) 
else 

rsEnd1vC"p*raon_note4'*) • RaquestCperaan^oce^") 
end If 

If len<rcfluest<"persoruiiotftS")) > 80 then 

rsindlv^'persoiunoteS") - lefcCRcquestC'person_noteS*'),ftO) 
else 

r9lndivC**per50n.note5*) - RequeitC'person-noteS") 
end If 

If len^requestC'parson^teG")) > 50 then 

rsIndivC"persoiunotc6*') • leftCRequestC"perMn^otfl6''),80) 
elM 

raXndivCpertorunoceS") ■ RcquistCpersorx^teG") 
end if 

If lenCreauestC"person_note7")) > SO then 

r»lndivC"pertoi\_note7'*) = lert(RequestC''per$on_noto7"),80) 
else 

rslndl v("persof\_note7"3 » Request("person-noce7') 
end if 

If lenrr«questrp«rsonjwte8*)> > 80 then 

rsindivC''percoR^te8'') - 1art(Request("perton_note8'*),80) 
else 

rslndl vC**pe rson.no te*") = Request ("persorunoteS") 
end if 

• rs IndivC'pe rBoft.no te2" 3 - Reque«tC"persorunote2") 
' rslndl vCperson-note)") - Request ("persoiupotcS") 

•end if 'TEMPCRARY 
rslndl v.usdate 
rilndiv. close 
end if 

• gaart i - as tart marriagfe»TB.^fa ji m 

Dim rsMarr, strSQLM 

Dim inarr.hu9.no t marrjNifc.no 

•Response .write "relative types"&requestCOISPtAY.relatiye.type") 

* Response. Mrite ''niarria9eupdatcd-''frrequestC''«arrfagaupdated*') 
If rev_Al1 ■ ) then 

IP request<"OtSPLAVjiEiATlve-TYPE-)-"S- and requ«stC"lterrtiaeUpdattd-VY- -mcil 



• scart^ersenj darequestC «tart_B«i 
'ownenJ daieft(stafX4»orsoru.id ,8) 



irson_id") 



05/05/2004, EAST Version: 1.4.1 



us 2002/0032687 Al Mar. 14, 2002 

93 



Ci\pat«nt\Modu1 »«\DBSRC14ft .ASP 



•p»ge 270 of ASP for dun 

S«t rtmrr « S*rv«r.CrMttObj*ct<"AOdOe.R«eordt«t") 

If trImCKeQucscC'persorL.sex'')) o "f** tmem 
marr_rus^o • «tan:^er«04\_1d 
iBarrjrtft^o • update^erson_1 d 
«lte 

nftrr_hus_no » upd«ce_persoru1d 
n«rutf1f«ujw • st«rc^erson_1d 
end If 

StPSQLMa-StLECr * 
"frcn MBrH«gtt_t 

"where marr.Jius_no » *" 4iiiarr_hu»«no ft"'" 4„ 
" and marrjtftfe_ro = •** iinarr_)i^fe_oo 4"*" 

nMarr.open strSQLM, _ 

cnlndl V , adopenDynaiirlc , adLDckOptimI sti c 
if rsMarp.eof or rsMarr.bof THEH 
Msponj*. Write "<8K>llo marriage record found" 
'Ma rri agcUpdateds^N" 
«!»• 

' Marri ageUpdateda-Y" 
'rsM»rr.Addncw 

'Indivjd^itr B"0OOOO00O"«f"1010" 

S rTchtCstrinQ<14.-0''5WndivlTd!S ' 
•r»Irdiv("per»oOd"J - Ind1v.1d.str owner.i d*100q 
ralncHvCperioru^d**) = _ 

"owmer.id" Indiv.id -f o«mer.1d*1000 
VslndivC^persoiuid") • Ind<v„id_9tr 
'If requeitCSTART^ersoa.»ex")8"M" then 
' rtM4rr("marrJ»usuno") « st*rtj5erson_id 
ViK«rrC««rrjrif«^'') « Indw_id_sCr 
'«1s« 

•rtMarr^"m«rrJ»u».j»o*) b IndiOd_fttr 
;r»Marr<"iii«rr,wif^o'*) » st&rt_persoru-«d 
'end If 

rsHarrr'flierr^ear") a Crim(8equ««t("iiarr^«ar")) 
r.Marrrmarrjynth'^) = tHiii^R«»|uest("iMrrjionth*)) 
r$»*arrriMrr_day*^ trlmCRequestC'narr^day*)) 
rsMarrrmrr^r^eeeur") - tHm<RequeBtC"nwr-yr„aceur")J 

r««aprC'inarr^oo/itry"3 ■ SequestCfflarr.country") 
rsMarrrm4rr_»tatfc"> > Requeat("marr_3tate") 
rsltarrrni«rr_count/*) = RequestCwarr^ounty-D 
r«MifrC'*m»rr_x:ity") •* RequeatC'marr.crty*') 
rs«a rrC'*nMirr_l at'0»tHaiCrequest("terr_1 at* ) S 
*^!f*''''C"'*''''-'°"fl^**''*'nCrequeat(*"marr_lono^')) 
If l«n<reoue»t("iiiarr_no«l-)> > 60 then ^sr-^-- 
^^rsMarrC'narr_twttl-) - 1eftCReque*t<*marr^tel"),M) 

rsWarrCinarp^notel") - RequeatC'marr^tel") 
end IT 

• rsN*rr("iMrr_not«l") • RequestC"«»rrjwtel") 
rsHarr. update 

Responie .write "<BR>MarHefle record was updeted" 
end if record found 
rsMarr. close 

€M0 IF • CMD OF MARRIAGE RECORD Update - check 0ISPIAYJIELAT1VE.TYPE and MarrlageUpdatad 

"?JL-. 1^*?.^ ^ WAKRiAGS RECORD Update - check revjn value 
'start blosraphicel text update 
Ola rsText, stkx, strSQLText, X 

If requastC'rev.all")^ then 

Set rfl-ext o Server. CreateOb3ectC''AOOOB.Rceordset"J 

straQLText^'SELCcr ♦ 
from Text_t "iu 

*V>«r« parccn^id •"' ArequattCUPOATE.persoruid") A 

Raiponse .Write "<ftR>Ho Text record found * 
e1»t 

Response. WHte "<eR>T«j<t racord found" 

FDR X-l TO 25 

STRXsRI CKT ("0000 "&X . 3 > 

*if tHm(raqu«it<"T*ftitrx))o"' then 

'r«T«xtC-r;4»trx)-trImCreque5t("rftstnO) 

«f lenCrtHim(r«quattC"T«'«strx:))>$0 than 

^^J«T«*tC"T*4rftni).rtHm(reque«tC"T"*etO(» 
next 

rgrext. update 

Response. write "-cwoText record was updated* 
rsText. close 

md If ' end of text 4/^date 
%> 

•<Xend If * end of text update sections^ 
•<xrf Err.Nunber » 0 Then 9^ 

««R><font s1ze«Sx1>The record was updated .VI >Vf^nt>^> 
<S( ELSE X> 

'"^•'•e waa an error updarlng the record .<p> 
STKd XfS*^* ' ^8rr.DeBcHpt1oi«xp> 
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C;Vpatent\iitodu1 cs\DBSRCl46 .ASP 

<NPOT TYP&"subnrit" val uea'COWTINUE" id=subnrit2 nanessubnii t2> 

<P>&nb5p;</P> . , . . 

<p><a hrefi*'menu1dxl.a$p->Return to indexer/Publisher Mam Menu </ax/p> 
<pxa hrefw'Ve1coine2.asp">R«turn to Main Menu </a></p> 
<pxa hr«fb*<../Welcom63.htni">Return to Welcome Page</a></p> 

</BODW 
-^HTMl> 
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^ UmouaaeiA/BScript X> 
<St OptHonlxriUcit 1t> 

<l— #1nclude virtual ■"conra&n/aclovbs.lnc" --> 

<HTML> 
<HEAO> 

<«ETA NAME-'GENERATOR" conrftnt-'Mlcrosoft vlttjal studio 6.0"> 

<nTLE>PUBLISKER - ADD INDIVIOUAL. OErAXUO</Tm.E> 
«H3>PUBLISHEK • ADO INDIVIOUAL, DETAZLCD ^HJ> 
</NEAO> 

<80(n> 
<m> 

<x 

•The first time this p&ge Is r«tntv«d. «nd «ny tiow It is 
'(ubmUtcd without being oompUtaly fi1l«d out, th« fom 
M» displayed. If it i> submitted and coopletdy filled out, 
'ttte form is processed In the Else clause. 

If RequestCpersorulname")-'"' or RequestCpersorufname")-"- or _ 
Re4uestC''birth_yeAr")a " or Requ««t("birtfucountry'')o'"' or. 
Reqtttst< p«rsofi_s«x }« **" then 

X> 

Please fill out ell the fields below for which you have date. 

A new name c«nnot be added without at least a first name, last name, 

sex, birth year, and birth count ry.<(z> 

When you are finished, click the ADO PERSON button.<p> 

<PORM METHOOaPOST ACnON>''OBSftC147.asp" Idsfbrml nafflesfon)il> 

Add person related to Person 10 

Starting Person<p> 

Nane: last 

<ri»PUT TYP68"TEXT* NAMEa"itart_lnanie" SI2Eb1S valufta"^requ««tC*start.1n«na")«>"> 
Fi rst 

MiddlT NAM£--start_fnMie" $126-15 velus-"^roquestr$t»rt_fn«iie")Jb.'*> 

<tJPUT TYPES -TEXT" HPME^" snrxjunmt" SIZEalS valuc«-^request(''starOvtMie''>X>''*> 
Birth: Year 

<IIIPUT TYPE--TEXT'' NAME-'*ftarTLb1rth_ye»r- sue-4 value-"<j&-request("start_b1rth.year-)x>-> 
<XNPUT TYPe»"TEXr- NAM£*"start_per$oru»eK" SCZe»X value»*<a{-request("startj>«r»orusex-)%>"> 
Ragi stry# 

<I WPUT TYP&i*TEX T" NAMe-"»tart4)ersofu1 d" 3I2014 v«lue--5Sfc.reque5tC'start_per$oa.id">X>"> 
Link-to Spouse ID 

KtHWT TV*»E.-Texr'* NAME«"LlNieSP0U5EJ0" SI2E3a4 Vllue."^pequest("UHIC_SPOUSE»I0")1fe.-> 

<ai b 

<I«PUT TYPEp"h1ddcn** KAH£s"spouse" si2e-i value-" <j&irequcstrspou5e"D»-"> 
<IMPUT TYPE. "hidden" NAME=-parenf ii2E»l valuea-^reouestCparont-iK-J 
<IHPUT TYPE* "hidden" NA«E«"child" S12e=l values "<il6=r«qu«»t('*chnd'*)J^"> 

<mPUr TYPE* "TEXT* NAKE^"ADO^CWTIVE_TYPE- SIZEsl V«luea"<««reque$tC"ADOJl£LATlVEJTVPE")«>"> 
<p> <l— OMiers assicned nuTt>er range 

<ZMPin- TYPE- "TEXT" HAME*"ov«er_id" $I2E><11> 
<8»— > 
Name: Last 

<lMPUr TYP6«"TEXr** NAME-''person_lnime" SI2E-30> 

<BR> 

First 

<INPVT TYPEp-TEXT* NAME-" percoiufhame" SX2E>i30 > 
<SR>Mlddle 

<l^f}^,TrP&i'yOCr'' NAME»-per5onj»n««' SI2Es30 > 
<BR>Th1rd Given 

<XNPur TYPe»'*TEXT" HA»iiEs"persoa_3n«ie'* SX2&>30 > 
^R>Tltle 

<IIIPUT TYPB^-TEXr- NAME-" persoi^tl tie" SZ2e.30 > 
-<8R> 

sex 

<INPUT TYPEa^TEXr* »MMEs*per$On^sex" SIZCbI > 
<I--Registry# 

<INPUT TYPE?i"Texr' HAMe="JREG" S12E-4 > 
OMner* 

•dMPUT TYPe-^TEXr* HAME.'IOUN" SIZE-« — > 
<SR> 

Birth: Year 

<IKPVT TYP£«"TExr' NAME»'birth_year* SI2C»4 > 
Month 

<IMPUT TYPfa -TEXr HAM£=-bl rttunOHth" Sr2£»2 > 
Day 

^MPVT TYPE="TOcr' NAME-"bi rth_day" $ZZ£«2 > 
Accuracy 

UMPUT TYP6o"TEXr' NAME-"blrth-yr_aceur'' SI2E-i > 
Ykar variance 

4NPVr TYPE»"TSXr' NAME^'blrtiv^r.var" SI2Cb3 > 
<6R> 

Piece: Country (or level 1) 

<lMPin" TYPE-nexr' IIAME*"birth_country- SI2E-)0 > 
Place: state (or level 2) 

<1MPUT TYPE-"TEXr' iWME-*birth_state" SZZC-90 > 
«R> 

Place: County (or Itvel 3) 

<IMPVT TYPE»*TEXr HAME«''b1rth.COUnty'' SI2E-30 > 
Place: City (or level 4) 

^HPUT TYPfc'TtXr MAME=-birth_city- SIZE»30 > 
<flR> 

Latitude 

<INPyT TYPf--TEXr M«4E.-b1rth.lat" $IZE>-10 > 

Longitude 

*xnhrr TVPE.-Texr' itt«iE«*birth.iono*' size«io >. 
Aeeurwcy 
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<iKPUT TYPEa'TCxr* NAME«''b1rth_gco^ccui' SIZCvl > 

<fiR> 

Chr1st«Mngi v*»r 

<iNPunvp€*"Texr' iiAMe«-chH»wytar" SX2C«4 > 

<XNPinr TYpfe«'*TOfr' NAMEa'chHsjoonth* sxze«2 > 
Day 

^ifiptrr TYPEa'TEXr* NAHE-"chr1$_d»y'* SIZE»2 > 
Accuracy 

<Ii«fvr TTP&='*TEXr' HAM£="chriv^r.accur" SIZGal > 
Y«*r Variance 

<INPin" TYPE- 'TEXT' NAWE-''chrts^r_var'' $IZEp3 > 

<BR> 

Plactt, Cowitry (or 1bv«1 1) 

<IHPl/r TYPe=*TEXr' llAME-"chr1»_country" »XZ£*30 > 
<RR> 

Pl«c«, St»t« Cer lavcl 2) 

«INPUT TYPe=**T£XT** »iAME"'^chrlt_st«te" SIZE-30 *• 
<&R> 

Plac«, County (or loval 3) 

<INPVT TYPB»'*TEXT" »U*(E»"chri 3L.county" SZZE«30 >■ 
<BR> 

Place, City <op Uwal 4) 

<INPVT TYP&«*TEXT" HA«E»"chH«_eity" SIZGe30> 

<8R> 

Latitude 

^HPVr TYPEPi'TEXr* HAM&9»chris_1at" > 
Long-itud* 

<IMPin' TYPEa"TeXF" MANE"" chfis Jong*" SIZE-IO > 
Accuracy 

<IMPtrr TVPE»"TEXT" HAHEs'chrliwgeo.accur'* 5I2C«1 > 
<BR> 

Ooath: Year 

<lH?\n TYPe-"TEXT" NAHE«*'dcath_year" St2E*4 > 
Month 

<INPUT TYPE--TEXT" NAME-"deathjnonth" SIZE«2 > 
Day 

<INPirT TYPEji"TEXT" NAME>**de«ttLjday** SIZEsZ > 
Accuracy 

<XNPVT TYPE-'TEXT** NAnE»"dtath^r_accur" SIZOl > 
V«ar variance 

KlHPVT TYPE-"TEXT" KAME-''doath^r_var- SIZEaS > 
Place. Country (or love! 1) 

<INPin- TYPEc'TEXr" NAMEB"dcath_country'* SIZE»30 > 
<BR> 

Place. State Cor level 2) 

4NPUT TYPEB'*TEXr" NAMEa'^deatK.state" SZ2E«30 » 
Place, county Cor level 3) 

•CINPUT TYPEs'^tOCT' NAKE**'deatluCOunt/* S1ZEie30 > 
<SR> 

Place, city Cor level 4) 

<INPUT TVPE»Ti)cr NiUilEa''deatlucity" SXZEc30> 

<aR> 

Latitude 

<IHPVT TYP&-"TEXr* NAMEs'*d«atK.Ut" SI2B=10 > 
Longl tudt 

<1NPUT TVP£o"TOCr KAMEs-deattulong" SIZE-IO > 
Accuracy 

<INPUT TYPE^*'TEXr NAMEB"deatK.oeo_accur* SIZ6-1 > 
<8R> 

eurlal : Year 

<INPUT TYPE-'TEXT" NAM&a' buH ll^aar" $]ZEe4 > 
Month 

<INPlfT TYPES-TEXT" MM&>"bur1al^nth" SIZE-S > 
Day 

<lNPvr 7YPC«"TOcr NAME«"burlaUday" SIZE-2 > 
Accuracy 

<INPUT TyPE«i"T6Xf NAME^''bur1a1_wf^ccur" StZEal > 
Year variance 

<IHPIIT TYPEttTEXT" NWE«"bur1al_yr_var" siZEi^ > 
<m> 

Place, Ootaitry Cor* level 13 

•CNPUT TYPE-'TEXT" NAME-' burUl .country" S3Z&:30 > 
<8R> 

Place, state (or level 2) 

<IHPin* TYPe»"TEXT" IU»IE-'bunal.9tate" SKZE-30 > 
<BR> 



Place, County (or level 3) 
KlMPUT TYPEo^eXT" NAME-'buH al.county" 5IZE-30 > 
<BR> 

Place, City (or level 4) 

<iMPur Tvpt.*rexr iiAME»-buHal.c1ty" size-30> 

<BR> 

Latitude 

<INPVrr TYpe»'*TEXT" NAKE-'buHaUlaf* SIZE-lO > 
Longitude 

<INPtn- TYPE-'TEXT' IIAHC-''buHal.1en9*' iXZE»10 > 

Accuracy 

<WPUT TYPE«"T£xr iUME»"buri»l_geo_accur" SIZE-I > 

<M> 

Cdentlfl cation or Data Quality Notes 
<BR>Notel: 

<INPUT TYPfo-TEXT' »IAME-"p«rson_NOTEl" SIZE-80 > 
<BR>Note2; 

<INPVT TYPE»"TtXT" MAME»"persorvJK}TE2'' SIZE-80 > 
^R>ftOte}: 

<INPUT TYPEts'TEXr* MAME»"pe rsooJWTES " SZZ£=AO > 
<BR>Note4 1 

<INPifT TYPE»"TeXT" NAME»"personJtOTE4'* SIZE^O > 

Original Source Citations 
<BR>NoteS: 

<XHPUT TYP6-"TEXF- NAMG-^parsorUIOTES" SIZEs&O > 
<&R>Note6 : 

<1MPUT TYP«."TEXr NAME«''Der»nj(0TE6'* SZZE«SO > 
<8ft>N0ta7 I 
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<»ipvr lYPCtt'TExr ttAHea"pcrsofUMnrE7*' sizEiseo > 

<BK>NotcS: 

<INPUT TYPB."TC)tr NAMEa"per$enJKrTE8" SIZE-SO > 




rcque«t('*ADOJlELATIVE.TYPE'')s*S'* THEN9& 
fio you wish to enter narriao« <teta and create a marriage record'' 
<XNPVr TyPC-'diackbex" HAMS-'addnarHage" SZZEna va1ue»''v"k 

<flR> 

If data Is entered In the narrlaae data area below, a marriage record will be created. 
Withotit It, the spouses will srtll be linked, but will not have narriage event data to display. 
Marrtage: Year ^ ' 

<lMPin- TYPE«"TEXT" NAME."na rr_yea r" SIZE-^ > 
Month 

KJHFin TYPE- "TEXT" NAME-'marrjnonch" SI2E-2 > 
Day 

<INPVr TYPEo"Texr" NAME="marr.d«y- SUEb2 > 
Accuracy 

<INPI|T TVP6»'^EXT" NAM£--mtrr^r_accur" SI2E-1 > 
<Sft> 

Place I country Cor level i) 

<INPUT TVPE-nDCT* NAM6«"marr_coontry" SIZE-30 * 

<aR> 

Place: State Cor level 2^ 

<INPUr lYPE^'TEXr* NA««£»'nurr.ttate" SI2C-30 > 
<BH> 

Place; county Cor level 3) 

<INPWT TYPE-'TGXr" NAME»"marr_coonty" SXZE»30 > 
<8R> 

Place: dty (or level 4) 

<1NPUT TYPEis'^TEKT" NANE-'marr.cltV" 5ZZE-30 ► 

<8R> 

Latitude 

<INPVr TYPE-"TOCr" NAME-''iMrr.1at" siz&ao> 
longitude 

<HP\n TYPe«"76Xr" KAME-"marr_long" SI2E«10> 
Accuracy 

•tfXNPUT TYPE-*TEXT" NAliies'narr.geo.accur" SIZE^ > 

<SR> 

M»tel: 

<ZNFVr TYPE^'TCXr'' NAME-''MARR.NOrEl*' SIZE^ > 
<XE KP IF %> 

^R> "'■"•■■■■« ' '— > 

<1NPOT TYPE--«ubBrit" va1ue-"AO0 PCasoN- SIZEpM Id-submltl n«M-subBltl> 

</Tom> 

^ EUt X> 

<FORM HETHOO-POST ACT10N-''0BSftC141.atp** 1d«ftnnl niine«fbniil> 
starting Percon<p> 
Nans: Ust 

<lNPUr TYPE-"TEXr' NWE»-start_lnafl>e- siZE»a$ value*- «<3fcreque$tC"stort_ln«ne'')3&^"> 
First 

MiddU «««»''«tart.fnainf" SIZ6-15 value«-<3fcrequest("5tart.fhM»")X>"> 

TYPE»''TeXT* iWMEB'startjBname" SIZC-15 value»-<)fer«que5t<"startjnnMne")«>-> 
Birth: Year 

<iHPur TYPEa-TEXT- fMME-' stan:_b1rth_year" siZE-fl v&lue--<3UreQuest("start^1rth_year")3&'"> 
RSl«rJ7^'"^^" «^^"»«*"^«"on-»ex" siz&rl valu«.-^requestC"itartj»«rMru*ex")X>"> 

^'"^"•<«-nqut»tC-«tart_per«wuid-3%>.->. 

<iNPur TYPE-'hlddan" NAME-'seouse' 



<tllPVr TYPE-"hldden' 
cXHPUT tYPE-'hIdden' 



I NAME-'seouse" SIZE-L value«''46irequaatC'*spouse'')5&"> 
C Ilf2f*-P:*TIS v.lue-"-flfcr5Snt{-pSi;S-j£''J 
r NAME^-child" SIZ£»l value-'-dlS-requestC^chlld-JfeV 

<rilPUr TYP&.-TEXr IIAME«-AOO_RCL*T1VE.TYPE ' SI2E»1 vaiue--<3i»reQue$tc-A00jiEiATivejTYPE")Jb-> 



ojm cnindly rstJwner, rslndlv. lndiv_id, Indiv_1d_next, atrSQL 
Dim lndiv_id_3tr, owner_1d -"-^ 
Dim start_persorL.1d 

5Cart_person_1 d« requests »tart_per»on_1 d") 
ownerJ deleft ($tartj)er$orv_id7l5) 

Sftt cnlndiv - Server. Cre»teobj«ctC"ADOOB. Connection") 
cnlndlv.Open "dbl" ' 
•»trsqu" Select ♦ from own«r_t where owner_1d » 1" 
»trSQL«" Select • fron Publisher.t where " «u 

"Pubjo* ttom^Kao 
Sat rsCNwner e Scrver.CreatcGbjectCADOOB. Recordset**) 
r^er.Open »trSQU cnlndiv, adOpenOynaeri c , adLockOptlnrtstlc 
««ner_1d = riownerf*pub_1d > 
Indlv.ld » rsownerC-pubjiext-no") 
Indi v.1d_ii«xt-3ndi v.?d+l 

If Indiv ItLnext < rsOii<nerCpuh_n«)tj>«xt_no") then 
rsCtaierC'^pub.next^o''} - lndiv_id ♦ 1 
rsOwner.update 
«1 B« 

'END TRANSACTtOM BECAUSE OP NUMBER OVER>RUII 

err.ntjiiberiii99 

rsoimer. close 

cnXndlv. close 

end ■ffto' 

if err.nuiiber &0 then 'skip all the code If errtir occurred above. 
riO«fnerC"piibjiej<tJ»"3 • ln41v_1d ♦ I o^urreo eoovc. 

'rsQmer. update 
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' ownfl r_i dal eft (»tartj>e r «on_1 d , 8) 

'set cnlndlv » Server .craAttObjectCAOoOa.Connection") 
'cnXndlv.Open "dbl" 

" strsOLn'sel ICC * from owmer.C where o«aier.1d » 1" 

*strSQijB'*seleec • fpom owner_t where " 

• "OWNEIUIO- " eOMOLXD 'A"'" 

's«c rsowntr s S£rver.createobjectC*ADOOB. Recordset") 

'rsAvner.Open strSQL, cnlndiv. adOpenOynaraf c, adLOckOptlnlstle 

'oMner.ld • rsowerf owner^id**) 

'Indiv^ld o r5CTim«r("owrer^eKCJ»o") 

'rsQMncrC~oMner.next.no') » lndTv_1d 1 

' raowner.update 

'page 270 of ASP for dun 

Set rslndiv • Server .createObjecc("Aix>DB.Reeerdaet**> 
rsindlv.Ooen "select * frm p«rson_r*,_ 

cnXndiv,adop«nDynamie .adLoekOprifin stIc 
rsXnd-fv.Addnew 

•indivjd.5tr a"oooooooo''&"ioiO" 

Indiv^Td_ttr -H9ht(«tHnG(14,"0")4 o*wner_id,9)_ 

A rTght<»trTna(14,"0")HndiOd,S) 
•r»IndivrpBrson..id''j - lnd1v_1d_$tr owner^1d»1000 
•r»lnd1vC"per»on_1d'*) = _ 

"owner_1d" Ind1v_1d ■♦- ovmer^l d*1000 
rsXndWf'*pBrson_id"> = Indiv_id.»tr 
rsrnd1vc'*person.fTi«iM"^ ■ Requestf''person.fnute") 
rslndivC"person_innsnie**) u Request(*perscnjnnim*'j 
rslndivr 'person.lnene") . Requestrperson_lname**) 
rsInd1vrpersDn_3n«iie"> = Reque»Cf"p«r*on_Sn*ii»") 
rslnd1vc'persBn_t1t1e'*> - Requestrperson-tltla"} 
riIndivr'person_sex*) » Reque»tC"person_sex") 
rsind1vrb1rth^r_acojr") « Requ«$t("b1rtlCyr.accur") 
rslndWrbirth-yeeO » RcquestrbirtluyeaPj 
rsXndivt" birth jnonth") - Request("birthjnonth'') 
rsind1vr"b1rth_day*) - Requestrbirt»uday") 
rslndwrbirth.yr.var") - Request("hS rth.yr.var") 
raindjvC'blrtJucountrv") - Request ("b i rth_country') 
rslnd1vC"b1rtJv.state''J = Request ("blrttustaie") 
psInd1vrbirth_county'') = RequestCbi rttucounty") 
r«Xnd1v(*'birth.eity") • RequestCbi rth.ci ty") 
If lenCRequestrb1rth>Ut"))=0 then 
rrtndi v("bi rth.1 at")«0 

else rslndi v("bi rth.1 ac'*)>reqiMst ("bi rth_l at" ) 
end If 

•rsxndivrbirthjlat-) = RequestC"birth.lat-) 'typa ni snatch 
if 1en(RequestCbirth-lon0' >)-0 then 
rsXnd1vC"b1 rth long" 

•ls«^ rslndi v("bi rtfu1on9")«reQuastC"bi rth.1 ong") 
•rsindivf "birth-long") . RequeatCblrth.lono") 

?:s3?rj>':r^5????s;f;j").i'^^''"«"^^"''^-*«"^"> 



isteningi 

rrtnd1vf'*chr1*.yr_accur'') « RequestC"chrisvr.accur") 
rslndivrchris^year-) a Requastf "chH $^eaP> ' 
"!'*iln!!«tn*-^th'*) - RequeatrchrtiuPwnthO 
r«lnd1vrchr1t.day") « Requ«stC"chrl$.day-) 
r«indivC-ehHa_yr_var") . RequestrehrislyJ.vap-) 

rslnd1vf"chH5_country") « Reque*t("chri5«co*#»try'0 
rslndiwc chi-i Instate") « Request("chris_5t*te") 

" Req"««t( "chris_county"J 
r*''?^.YC?*r''Ml^r5 » Reqoestrchr1s_c1cy-) 
•rrtndivC-diriOafc") a Request<"chris_lat*y 
if len(R«|ue3trchri5_lat-))-0 then 
rjindivCchn o«t 

elsa^ rslndivCchri 5_lat")-requestC''chri s.lat") 

•?f"'*}^^**'*l5Trl2"«*">, - ReqMestC-chris.long") 
if len(RMueitrchriOono*0)-0 then 
rslndi vC ch ri a.l ong " J-0 

«1»«^ rslndi vC"chriiJong">rw)uestC"chr4 s.long") 
end IT 

rslndi vCchrl«.Oeo^ccur") » Request("chria.geo.Accur"> 



- Requestrdeath_yr_Bceup") 
ratndivf-dcath.year'-} - Requests death.year') 
rsmdivrdeathjaonth*') » Requestrdeachjiooth^) 
'■•^^i^C^"**^***^") = Request(-death.day-) 
ralndivC death-yr.var") - RequeitCdeathlyr.var") 

ptlndivC;death_country") . 8equejt<"death_country") 
'"*?^J^C^«*^»^"«*'/. - Requests deeth.state") 
rsDidivJ-deatiycouncv') - Requestrdeath^county") 
rrtndi y(-d«tK.<ity^) - R^jueitf-death^eTty") 
ii'?'^lr^^**St?rl« 5 , ■.Requeatr<J«&th-l«t') 
ir lenCRequestC death.Taf)>«0 then 
rrtndi vC-d«th_Uf >«0 

•1 »« rslndi v("de«tiulat")=requejt("dettth.lat") 
end if 

'rsindiv<"death_long-) •^Raquest(-death.lon«"> 
if lenCR^uest('*de»th.1on0~))-O then 

ens" )- r«qu«stC" deachJIong") 

r slndi vC'desttugeo-JSCcur") » RequestC'dcath.geo^cur^) 

rslndi vC'bufial_yr^cur") • RequestCburial.yr.acair'') 
rslndi vf burial.year;') . RcquestrbuHel.yeaO 
•"•i^Sj^J &"'1*Jj?^5l? > ■ RaqMescrburlaljnonth^) 
ralndivj burjal_d«y*) » Raque»tl-buHal.<iay") 
rrtndi vC"burial^r.var-) - RequestCbuHallyr^var") 

rslndi vrburial.jcountry") b HequestCbu rial .country") 
rrtndivrbur1al.atate-> . RequeatC'buHal. state") 
rtxndivrburlal.county*') » RequestCbuplal ^county") 
Prtndiv<"burialjc1ty-} . RequKtrburiaUcTty") ' 
•rrtndivC-buHapae} - RequastC'burial.lat'^) 
if 1an(Request<"burial_1«t"»i^ then 
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ellse^riindlvC'burUl.lat- )=peque9tC"bur1al«Uf5 

'p»IndWC^uH«1.1onfl") » RequestCbuHalJong") 
If 1cnCRcque»trbuna1_1ong"»sO ttien 

elje^ rtiMHvCburt »T J on«")T«qiJtit<"buri 41.1009") 

r»lndW("buH>l_fleo^c c ur") ° R «qu«»trbuH •>_fl«o>»ecur-) 

If lenfregue$tC"p«rson_notel")) > SO then 
^^rjlndivCptrsorunctel") - leftCRequcatC'peraon-not«l"),«0) 

rstnd-tvCp«rsor>_not«r) «= RtquaitCp^rsorutonl") 
«i*d if 

If ler>Creauc«t("pepsoiurote2")) > 80 then 
^^JJInaivCptrsorv_note2'') - left(R«qMe»tC"p«r»on^ot«2")fW) 

rsIndiwC*p«rcoa_npt«2") = ft«questCp«riorT^t«3") 



end if 

If lenCregue»tC"personjnote3-)l > eo then 

els"" » 1«rt<R«qu«8trp«pfo»ijtoM3"),»o> 

rsindlwCpePSorunotoS") o Requ«st("personj»t«3") 
end -Sf 

If 1enrreque«tC"person_note4'*)) > 50 then 

•ij?" P«»*soruiiot«4"} - l«ftCReque»tC"p«rfon_note4-3,«0) 

^JslndivCpersofunote^") = RequestCpersoruiote^") 



If lenfrequestC'persofunoteS-)) > iO then 
^^JJIndivC'personjioteS") « left(R«questC"person_not«S"),SO) 

rsIndivC'persorunoteS") = Request("p€rson_not«5") 
end ir 

If lenfrequestC"pcrson_note6")) > «0 then 
^^«In«vC'p«r«>fUiiot«6") « left(R«questC''p«rsor^ot«6'-).«0> 

^rsInd1vC"pepsofVjiote6") » RequestCpcrson.noteG'') 

If 1 enf requoitCperson-jwte?-)! > iO then 

eli? » l«ft<R«quest("p«psofijiot«7-),M> 

^Jsip<*^vrp«rsonjwte7") - R«quest("per8on_not«7-) 

If UnCreauettC'perspn-notvS")) > «0 then 

ela? *''""^***"^ ■ 1««<Mqu««cC"P«r»Mu<ot«a-5,«0) 

rand1v<"person_not«S'') - Request (**person_not«8*') 
end ir 

;rslnd1vrperfion_not€l"^ - Requestf"pep$on_notel") 
rsind1v^per$on_note2"J = Requestr-per«on_note2"5 
rslndwCperton.notcJ") » Rtqtj«stCperson_not«3'*5 

mnd1v.tBd«te 
rslndW.cloM 

'Add Unkt as needed 
'Dim 'star<_persaru1d 

' »t«Pt_p«rK>iv.1 d-r«qu«»t("»t»rt_p«riofu< d") 

ifrjut^JJ* ^..Server.CreateObjectCAOODS.Recppdset-) 
r»nnk»,Open "Salect * from Linka_T",_ 

rsLlnks.Addnew 

•Ind1v_1d„acr ■"00000000*'4"10IO" 
•indlv.id-icr *rJaht<stHngCM ,"0")* owner Id 
* ri5htCstrfnjjh4/0*5«ndiv:i^^ 

r»Ind1vCp«r»ofU'id''3 « _ 

"owner-Id" Indiv.id + O¥(ner,id*lW0 
rsindlvrpersofuld") - Indiv.id.str 
rsindlvCpersocufname-) » Requesc("pertorv.fhame") 

'JliU^SSS-a;'^'''-"*" •"".rx'ooi-'"'"""-"''"^-"'"" 

^eljt«.wd««"C " '"MCHOOOl" 

raLlnk$rperson2"5-indiOd_str 

r«LlnksC"re1ate">«RELATt.a»e 

riL-inks.if>dat« 

•add spouse link, if possible 

isLlSKIidd^IH*^"*^" '""^ "»''««"C-LlNieSP0USE-lD->«-"M999999999999" then 

r»Ll nksf-pe rsonl'^srequestr LINK_SP0USe^O"> 

raLjnk«("per«on2'5-Indiv_ii.itr 

p»Ll nks (-rel ate*')«RElATX.C0De 

rsLinks.Mpdat« 

end if 



rsLinksjtddnew 

If REUTIVLlYP&i-P" then 
r«UteuCQd<«"CB " '"lOCHOOj" 
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«l«e1f HEtAnVE_7VP&i"S" and requ«»tC"p«r»ii^x*)-"F- then 

reUt«_code«"$H " '"OSwOOl** 
•iMit ReiATiviLTYPE-"s- and r«qu«*tC"p«r»n_«tx**)«"«" thtn 

r«lat«.code«"$W " -OSWlOor 
«1s*1f ReiATIVt,TVPE-'*C" and request("STAirr^crsor(_sex''>>"N" th«n 

PeUt«_codft=-PF ** -ISFAOOr* 

el self RELATivt-TYPe»"C" and reqoestC"STAIlTj«Pfon-seji**)«-F" then 
reUte_code»"pii " -MMOOOr 

ELSE 

reUt«L^aB**PP " '"ISf?*©©!" 
ENO IF 

rsLi nk£<"percon3 " J=»t«rt,p«rK>a-< d 
r»Li n ksc "per9onl*'pBind'i v_i d_»tr 
rsLI nksC* rel ete- )s<lEUTE.COOE 
rsUfiks. update 

J^I:*"^"^^^"^' »*«1"*«trLl»"C-S«WSej[0">*>-M9M999999999" then 
rsLi nka > Addnew 

rsLI nkiC'personZ "Jsrefluest r LItllC_SFOUSEJC0"3 
r«Unks<"per«onl")-Indiv_10tr 
If rel ate^cpdf B^PF * then 

pe1ate_codcs'*PM " 
el self r«Ut«.code*''PM " then 

r«lat«.cod«*"FF " 
end 1f 

rsLi nksC" rel •ce''>«fieLATE_GODE 
rsLlnks. update 
•Id If 

rsLlnks.doM 

IF reque«t<''llEUTlvCTYPe-3«'*S" and rtque»t("*ddwarpi»Qe")-"V them 

• sta rtje rmj d«requestC"atart^erson.1 d") 
o«m« r3 dal ef cCs t«rc^«rsoiu1 d ,8) 

'page 270 of ASP for duo 

Set rsMarr = Server.Create0bject("ADOD8.Recopds«t") 
rsHarr.Opcn 'Select « from Marnaqejr",. 

cnlndi V , adop enDynaffll c , ad ijockoptTml « t1 c 
rsMarr.Addnew 

'rnd1v.id_«tr «"0OO00OOO"fc''lO10* 

, ^ rl«htCstifnflCM.Vj*1nd1v_1d.43 
r«lnd1vrper6on.1d;5 • rndW.ld,^ + owner.l d*1000 

! '!9'*!!i''-^'*" »»d1v.1d -f ownBr_id*1000 
'rslndivC"periofi_"»d'*) » Indiv_1d>str 
If reaueet(' STARTj>er«on.Mx")-"«" then 
rsMirrrmarrJiuiLJto-) » »tarUjerson_1d 
rsMarrC'marpjirifejig*) = Indiv.id^tr 
else 

rsMarrrWr-huauno") ■ Indlv.ld^tr 
rsllarrC*in*rrjw*f«jM*) s start_persoiu1 d 
end if 

'**««'"pr;marr_year-p a Requestf~rnarr_year"3 
rsMarrf marrjnontK') c Re(;tjestr«iarr_n»nthS 
r*M«rrf enerr_day"> Reque»trinarr_day-) 
rsKarri narrjrr.accup**) . RequestC-narr_yr^ccur) 

nl|»rr< Wp^stato") = RcquestCroap rotate") 
r»M«pp<Wrp,countv'') - RequoBtCmarr^cQunty") 
rsMaprrirupp_c1t;f-> ^- Requestf-Wrp cTcy**) 

p«<aprf >app_geo_accup") ^ o RequestC'mappIgeo^ccup-i 
If len<pec|uestC"inapp_iioter)) > 80 tHen ^ 
tul*** '"•'■r.oot.l^) . l«ft(R.qu.«trmarrj»t«l">,*0) 
^^J«««'prmapp_notel-D * Reque»tC"marrjiotel") 
■rtMarpC"»aPPj»tel") - R«que»tC>T»PP_noCer) 

rsHarr. update 
psHarr. close 

E ND IF ' EXP OP imitlASB REOORO ADO 

end If 'testing ^p postlve erp.nueber 

enlndiv.dose 
%> 

"dttf Erp.mjnbep - 0 Then X> 

^nz s»«aj><l>7he new fepson was added. </1x/font><p> 

new individual's nunbep is ^<X-lndiv^1(«>^r> 
f\jll itping is <»'1 nd1 0 <LstPJS> 

Xelse %> 

There was an error adding an 1nd1v1dua1.<p> 
^ror #<X=Er p. Kui*>eP5fi>: ^Erp.D€»cnptionJL><p> 

<BR>You heve used up ell your name sp«ce for new recprds. 

5R>You nay peglster for an extension or contact the webmaster for ascicun^-. 
<t>p> vou may continue to update exlsrlng records. ""^ assistance. 

<P> 

<S End If 3& 
<BR> 

VflSL^*'^"*"**^^' v»^"»*"CONTIIIUE WTH UPDATES" sizSi^O Id-subnltl nu>e^bm1tl> 

•^End If 'check if entry «elds ere cnpty1K> 

<^<M hrefi-menu1dxl.asp->R«tum to Publisher Hein Menu </wx/p> 
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<pxa hrefs''we1co«ft2.aBp**>Return to Main Menu </9x/p> 

<pxa hrefc*\./We1coffle3.htn">A«turn to Welcome P^gt</ax/p> 

</BODW 
</HTMl> 
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•a(0 LtnguaoesVBScript 
<x opdon Explicit 

<l— #1nc1udB v1rcual9'*c(Xinon/«dovb9.1nc'' 
<head> 

-mta HAfCa'CElieilATOR" Conttnt>'>lUrowft Visual Studio 6.0"> 

<tit)e>zNDexn - add msr rmivr - mames, buthdate, LoocrzoM</tltle> 

<*l3>ri<DEXER - m FIRST FMZLY - MAMES, BIRmOATE. L0nTI0IK/h3> 

•</ha«d> 

<body> 

<hr> 

<3K 

*cr«at«d from addindpl.asp 

'The flrit tifnc this page 1$ rttrleved. and any tina 1t i« 
submitted without being oompletely filled out, the fonn 
'Is displayed, tf it is submitted and co«pletely filled out, 
'the forra Is processed in the Else clause. 

If RequestPperson-lnam*")-"" Or Reqtje»t("pers«n_fnW)="" Or . 

RBqu«»tC''bi rttuyear" or. 
^ RequastC'person_sex'*)s then 'Or RecuestC'bl Pth^country*)*"" or 

Please fill out all the fields below for which you have data. 
A now nana iriil not b« addad without at least a last nan*, or first nama. 
<6l&(Mote: Oo not use this screen more than once for each cotnplete pedigree. 
If you use It twice or more, the fragments must be comected by special! 
more troublesome and error-prone means.) 

<bf>Defaul t country name* are entered for convenience and nay be overridden. 
<br>Do not ovarrida default gandar entries , or links will not ba correct. 
<l— last name, 

sex, and birth year. , and birth country. -«><p> 

When you ere finished, click the ADO FAMILY button. <p> 

<fonn MFmoos**TOST* AcrroN»"dbsrca55.e»p"> 

<P> 
<TT> 

Hame: Last F1 rst Middle sex— ¥Y— mm— dd<BR> 

Country state-- county d ty<tt><bf> 

Husband - Head of Fafflily<BR> 

<input TYPE="T£Xr- NAME-" personal nafne" SIZE="1S"> 
<1nput TYPE--T6Xr'* NAME-"persoi\.fhame- SI2E-"1$"> 
<1nput TYPEa-TCxr M>«E«'per5onjinar»" S1IE«"1.$"> 
<input TVPE-"TGXr* NME«''person.*ex' value^'M" SIZ6«"r'> 
<input TVPE»-TOa- NMi(E-''birth_year- sjZE^".«-> 
<1nput TYPEa-TExr fUWEo" b1 rthjwnth" siZEa'*2"> 

<1nput Type-''Texr- NAME--b1 rth.day" SI2Es."2"> 
<8R> 

<1nput TYPEa-TOG-;; NAME»"birth.country" VALUEo"USA" SI2E«''1S*'> 
<1nput TYP6--Texr- MME-"b1rth.state" sizt--l5-> 
<1nput TVPE«-T6Xr" HAMEo-blrducounty" siZE^'lS"> 

<1nput 7VPE.*TeXT" MAME-'blrth.clty- SIZE."1S"> 

•cbr> 

KUBb&nd'i FKth«r<aR> 

<1npuc TYPea'TEXT " MAMEo"lnaJiJ€Pl" 3IZ£="15"> 
<input TYPE-* TEXT" HAMEb' f namePl" SI26="LJ"> 
<input TYPEB"TEXr " NAMEs'iBnamaPl" srzea"tJ"> 
■onput TYPES •TEXT" NAME="»exPL" value»-M- SI2E«"l"> 
<1npot TYPE--TEXr- HAMEa-yearPi" siZEa-a-> 
<input TYPE-'TEXT" NAME^'iRonthPl" SXZE«"2''» 
<1npUt TYPES-TEXT " HAMEc'dayPl- SIZE«'*2"> 
<8R> 

<input TYPE-'TEXT" NAMEa'countryPl" VALUEa"USA" StZE»**lS'> 
«dnput TYPE.-TEXT;* MAMEs-statePl" 5IZE="IJ"> 



<1nput TYPE«"T£XT" NAMEa-countyPl" SIZEs"15"> 
<input TYP6-"T6Xr' HAME-''ci tyPl" $IZE-**1S"> 



tyPl" 

<ER>Husband's Uother<BR> 
<input TYPC-''TEXT** NAME-" 1 nwnePS" SI2£-*'1$"> 
<1nput TYPEa'TExr* fiAMEs'TnameP?" 5ize="l$"> 
onput TVPEa'TEXr «A«E«-nnanieP2'' srZEB"15-> 
onput TYPE-"TEXr' fMME-"9exP2'' va1u«-"F'' SIZE«''1"> 
<1nput TYPE*-TEXr NAM&."yiarP2'' SIZE=-4-> 
<1npUt TYP£-"TEXr NAME-"iW5nthP2'' SIZE-"2"> 
<1npot TYPBo-TCXr* MA«CB"dayP2' size=-2*'> 

caR> 

<1nput TYPE-;;TEXr IIAME--countrvP2" VAU/E."USA- SIZE.''15"> 
<1nput TYPf^TEXr «IA«E.-St«teP5' SIZE="1$"> 
^nput TVPE-"TEXr lUME«"eountyP2" SIZE»"15"> 
<fnput TYP£-*TEXT" HAME-'cltyPr' SI2E-''15"> 

<brxfiR> 
Wife 1<6R> 

<input TYPEa"TEXr* MAMEa" 1 nameSl" SI2E="1$"> 
onput TYPEo*TEXr" MAMEa-fnameSl" 5IZ£»"15"> 
<input type»"TEXr lMME--mnaiijcSl- SIZE-''IS"> 
<1nput *nfPE«"TExr NAME«''saxsi- valuaa-F" SZZE»'a''> 
<1nput TVPE«"TEXr' NAMEs'-yaarSr S12E."4-> 
Cjnput TYP6B"TCXr IM«E»"nionth$l- SXZE^"2''> 
<1npUt TVPE-'TEXr* IJAME«"daySl- SI2B«"2"> 
<8R> 

cJnplJt TYPfa-TEXr' MAMEB"countrySl" VALUEs:"USA' SIZEs"lS''> 

<input TYPE-^EXT' «A«E--$tatesi" 5IZE-"1S"> 

<1npUt TYPE-^rtxr' MAKE--county$l" S1ZE-"L$"> 

<1nput TYPe»"TEXr' MAME*»''c1 tySl- SI2C-"lS-> 

<br>-^R> 

Children of Wife 1<BR> 

1. <1nput TYPfc-'TExr' l«M|«"lniniesici" siZE»''l$-> 
<input TYPE«'*TEXT*' HAMEa"fn«nc$lCl" S12E«"15''> 
<input TYPCa'TEXr MAME»"nnameSlca" SIZEs"XS"> 
<input TYPE-TEXr HAMEa^sexSlQ" SUE*"1"> 
<1nput TYPE-''TEXT" MAME-"yearSlCl* 5IZ6-"4-> 
<1nput rrPtm'Torr HAMEn 'monthsiCl*' $1ZE*'*2"> 
<input TYPt»"TEXT" MAME»"daySlCl" SIZE»**2'*> 

<w> 

<1nput TYPC«;;TCXr; MAME»;;cOUntrySXCl" yALOE«*'U$A" SZZEa'*lS''> 
<1nput TYPE»2|Kr HAM^ statesici" S12E--15"> ** * 

<1nput TYPl»*rDCr HA«E»"county$lCl" $I2E-*15"> 
<input TYPC«"TEXT* HAMEs"c1 tyslcl'* 5IZE«=*'XJ"> 
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2. <1nput TYI»E«"T£Xr' MAMe»*'lftam«5lC2'* $12e»"15"> 
<1nput TYPE«"TEXr NAMEB^fnafiaSlCZ" SIZE«''lS-> 
<(nput TYPE-"TEXr" NAME»"wnMi«SlC2" SZZ&>"1S'*> 
<1nptJt TYlPea-TEXT" NAM&s^sexSlCZ" SIZEp-1*'> 
<input TYPEB"TEXr «AMfe"yearSlC2" SIZEci"4"> 
<\nput ■m>£.-TCXr IMME-"lMnthSia" SIZE^*'2''>- 

<1nput TYPE-"TExr" NWE-' daysia" sizep"2"> 

<BR> 

<1npuc "ivpe«*TExr" NAMe*" count pysic2'' value-^usa* sizes" 1S"» 

•dnput TVPE«*TEXr NAMEs"$tatesia" SIZE?s-15-> 

<1nput 7VPE-"TDCr* •lAME»"countySlC2' S1ZE-'*15*V 

<1nput TYPEa-TEXT IWME»"C<tySic2- SI2E-"1S"> 

<BR> 

<BR> 

3. <1nput TVPCa'TEXT" NANEs''lnatneSlC3'' SIZE-"l$"> 
<iflput TYPEoTEXr NAME-"fnam«SlCJ" SI2E-"15"> 
<<liput 7VP€-"TEXr' MAME-"mf«m«$lC3" SXZe>"lS"> 
<1nput TYre-^TCXr" HAMEo'sexSlca" size-"i"> 
<input TyPC*"TEXr' liaMEo" years 1C3" SI2Eb"4"> 
<\nput TVPC«"TEXr* NAMEo"fflonthSlC3" SIZE="2"> 
<1npuc TVPCb^TExT* name-* days lc3" si2&«"2"> 

<BR> 

<<nput TYPEs-TEXr" N>g4£-'*countrySlC3'' VALUEm''USA" S12Eb"15'*> 

<1npUt TyFE«"TEXr tMKe-"StateSlC3" SI2Eb"1$-» 

<1nput TYPfi-'^EXr" lUMEs'teuntySlCS" SIZE*"1S"> 

<1nput 7VP«»-TEXr (UME-"c1tySlC3" SXZE-^IS'V 

<flR> 

<BR> 

4. dnput TYPE»"TEXT*' NA«e="1nani«SlC4" SlZE=*'15''> 
-dnput TYPEanEXT" MAME8"fn«MeSlC4'' SIZEo"lS-> 
<Snput TYPE-^TCXr" NAME«'ranameSlC4'' S1ZE»'15% 
dnput TVPE«"TEXT" NAME="»exSlC4" 5IZE="1"> 
dnput TYPe»"TEXr'* NAMCs'yearSlC4" SI2E="4"> 
dnput TYPEfi'TEXT" NArc-"monthSlC4" SIZE*''2"> 
dnput TVPt«"TEXT" NAME»"daySlC4'* SIZE»"2"> 

dnput TVPtB-TEXr- NAME«"cotMitrySlC4" VALIIE«''USA'' SKE-"IS"> 

dnput VfPU^ytXT" NAKE«''scateslc4" $XZE-'19''> 

dnput TYPC-"TExr lLMilc»*eounty$lC4' SIZE«"lS*'k 

dnput TVFt-"Ttxr" NJiME«*c1tysLc4** siz^"lS-> 

<8R> 

<BR> 

5. dnput TYPE»"TEXT" NA«E»"1 nwueSlCS - SIZE»"15"> 
dnput TyPE^"TEXT" NAME»"fhamBSlC5" SIZE='*1S"> 
dnput TY*>l^"T6Xr" MAMC-^mnwwSlCS" SI2fc»"a5"> 

dnput •nfpep"Texr" NMiEB"sexsics'* size="1"> 

dnput TYPWTEXr NAMEs'^yearSlCS" SI2Ej."4-> 
dnput TYPE-i"T6Xr" RAME-'nonthSlCS" SIZE--2' >. 
dnput TYPE>»"TEXr' NAME*'*daySlCS" SIZE-"2"> 
<BR> 

dnput 7YPI>*'T€XT*' NAME^"countrySlCS" VALUE* "USA* SZZE«'*1S'> 
^ - .. 5^^5« J - - 



dnput 7YPe»"T6Xr' MAMEs'stateskS** SI2eB'*lS"> 
dnput TYP6»"Texr' NAME»'*countySlCS" Sizes''15"> 
dnput TYPDi-TEXr' HAME^-dtySlCS" SIZE-^IS^ 
<ftR> 
<&R> 

6. <1npUt TYP£;B"TEXr" NAMEs^lnaraeSlce" SlZ&i"15"> 
dnput 7YP6b"TEXT" NAMEs"fnan«SlC6" SI2Ee"15"> 
dnput TYP6»"TEXr" NAME»"ninameSlC6" S12E»"15">- 
dnput 7YP&»"TEXr" NAME«"»eKSlC6" 5IZE-"1"> 
dnput TYPE--TEXT** NAME» "yearSXce" SZZE«"4'> 
<1nput TYP6-"TEXr* MAME>"monthSlC£" SI2E«"2"> 
dnput TYPea"TEXT" M>WE«i"d«ySlC6" 5IZE»''2"> 

^R> 

dnput TYP6-''TeXT** »WWE-''countrY$lC6** VALUC^^USA" tIZG>'*15"> 

dnput TYPea"TeXT" NAME=" stateslcfi" SIZeB''lS'*> 

dnput TYPE»"TEXr" IMMEo-C0UntySlC6'* SIZEp^IS V 

dnput TYPE-"TCXT" MAM6--e1tyslcfi'' SIZ&-*'1S"> 

<BR> 

<BR> 

7. dnput TYPe«"TEX7* NAME*"lnameSlC7" SIZE-"15"> 
dnput TYPE«"TEXT" MAME="fn*ineSlC7" S12e»'15"> 
dnput TYPEa-TExr WAME»"f«fflreSlC7- SIZ^''1S"> 
dnput TYPE-"TEXT" MAM£-'*«exSlC7" SI2£--l-> 
dnput TYPE--TEXT" HANE»'*yearSlC7'' SIZE«i"4"> 
dnput TYPE-"TEXr*' NAME-'*'ionthSlC7** S12E=:"2"> 
dnput TYPE*"TEXT" NAMea:"d«ySlC7" SIZEa"2"> 

<SR> 

dnput TypE-'TEXT" HAME»"cWintrySlC7" VAUIE^^USA" SIZE«"1S"> 

dnput TYPE*»"TEXr MAME»"»tateSlC7" SIZ^'l$"> 

dnput TYPE-"TEXT" HAMEs"countySlC7" SXZEv"15"> 

dnput TYPE."TEXr MAME«"citySlC7'' SI2E»*'1S"> 

<BR> 

<6R> 

e. dnput TYPE-'^EXr" NAME-"ln«n«SlC«" SIZE-"1$"> 
dnput IYP€»"TEXT" NAMEo^fnanesljcft'* srzc*"l$"> 
dnput TYPfa'TEXr* MAMEa"mn*meSlC8" srZE»"l5"> 
dnput TVPE-'TEXr NAME--»«XS1C«" SI26- '1"> 
dnput TfPEs"T|xr; NMHE-'ycarsLce" SXZCb''4"> 
dnput TYPe»"TCxr M«lE--BionthSlca" SIZE«*'2''> 
dnput TVPt-'*TCXr M*ME--daySlCS" SIZE-^rk 
<Bff> 

dnput TYPE»'TExr* NAMEB^countrySlCS** VALUEm'USA'* SIZE*''1S'*> 
dnput TYPE-* TEXT" KAHE^'stateSlca** SIZE-'IS"* 

dnput 7Ype='*TexT" nameb" county sic6" size»''l$"> 

dnput TYPEa'TEXr* MAME>i**ci tySlCS" SIZE-"1S"> 

<8R> 

<fiR> 

9. dnput TYPEw'TEXT" N/WEsi'lnwrMSlCS" SIZE»"1S">. 
dnput TYPE»"TEXT" NAMEs'fnwMSlCd" SIZE»"15"> 
dnput TYPEti'TEXT'' NA*iE»"iiinaffleSlC8*' SIZE3"1S"> 
dnput TVPE»"T6XT" NAMEp"»exSlC9'' SI2E»"1"> 
dnput TVPE»"TEXT" NAMEs'yeartlCS" S1ZEb"-4"> 
dnput TVPt«*T6XT" NAHE»*'nietnthSU:9" SIZE.-2"> 
dnput TYPEVTDCr fUME-**daySIC9" SXZE-'ZV 
<8R> _ 

dnput TVP6-"TSacr" NAMC-''countrySlC9" VALUE»-USA* SXZC«"1S''> 
dnput TVPi.**rocr- NAMEM-statcsIcS- sizc-isv 
dnput 7YPC»"TBCr HAME«"C0UntySlC9'' S£ZE»''1S''> 
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dnput TY««"TCXr NAMBs"c<tySlC9* SZZe««lS"> 

<eR> 

10.<1nput TVPE«"TEXT" llAME--lnameSlC10- SI2E-"15"> 
<input TY(»C»''TEXr" KAME- 'fhwwSlCIO" SI2E»"IS'> 
<onput TVPC-TEXr* KA«E--nr\im«SlC10'* $I2E»''15"> 
<input TYPEs-TEXr" NAMEb' wxSICIO" S12E-"1"> 
•dnpirc "TVPE»"TBXr** NAMes'yearSlClO'' SI2E-"4"> 
<lApUt TVPEb-TEXT" N>WE.*l1IonthSlC10" SI2E-"2"> 
<input TYP&="TEXr KAI*Es"d«ySlJCliO" SI2g»"2"> 

Kfnpwt: TYPE»"Texr IUM&>''COuntrySlCl(r VALUE-" USA" SI2C-"1S''> 

<1nput TYPE«"TEXr NAMeB'stateSiClO" StzeB'*lS"> 

-dnptJt TYPE«"TEXr NAME**'C0untySlC10'' St2&>*'lS% 

•dnpuC TYPEi-'*TEXr NAMS^'citySiaO" StZ(-'*lS'*> 



«dbr>Mm ■■■■■———■Mil ■■■■■■ I ■<8R> 

^r> 

<input TYPE-*»ubenit" v»lu«-"AOO PAMILV" SIZCs''80"> 

</fom> 

^ Else %> 

<% 

Dim cnlndiv, rsOwner, rslndiv, Zndlv.ld. Indiv.1d_next, strSQLpub 
Dim IndiOd_str, oimer.id. pub.ld 
Dim rsUnks 

Olm fachvr, mother, child 
Dim 10_P1. I0_P2 

Dim I0_Z1, Z0_S1, tD.SlCl, IDLS1C2, lOjSlCS, ZajSlC4, IDJ51CS 
Dim J0_S1C6, I0_SlC7, I0_S1CB, 1D_S1C9, IQJSICIO 

'UXOH CHECK 

If stGftionClndexar logaid on")o"indexar logoed on" then 
response. r cdi rcctC'logtdxOl, « J p") 'seo p. 337 of prog guide 
end if 

'If sesslonCpublisher logaed on*0*.''pubH sher logged on" then 
i>n 'pub.id c s«scion("pufcuid" 

0' «r r . numbc rsSt 
*ttnd If 



iy 



□ 



^ub_1 d^M tslon ("pub.1 d" ) 



m 

^« •pue.idm-oooooooooi" 
\n Sec cnlndiv = Serve r.CreateObJectCAOODB.Connectl on") 
cnZnoiv.Opcn "dbl" 

Set rsOwner = Server. creeteobiectCADOOS. Recordset") 
strSQLpubs"s«1ect * from Publisher_t where pub_1d a •" ftpub Id 4'*' 



sec rsLlnU s Serve r.CrcBteObjectCADOOB. Recordset") 
riUnks.Optn "Select * froa LinkL.T._ 
cnXndi V, adopenOyfunri c , edLoekOptiiin etl e 



sub Get-NextJ>ub_Nun 

rsOwner.qpen 5 trSQLPub, cnlndiv, adopenOynvnlc, •dLockOptSm-iitic 
"owner^id • rsoiim«r(*pub.id") 
Indiv.id « rsOwnerC pub_neKt^o") 
j , Ind1v_1d^eJ(t-ind1vJd+l 
isa If err. nuwb«r«0 and _ 

Zndiv.id-next < riOi»ner("pubjiaK.neKtjno") then 
jn rsOwnerC'pub^cxt-no") - indlOd * 1 
ll* p«OMn«r. update 
I i raOwner«cioee 
*«* else 

'END TfMNSAOlON BECAUSE OF NUMBER OVER-RUN 

f If trr.tamttrmO then 

err.nuiteraSS 
end if 
rsowner.clos* 
'cnindlv. close 
end if 

lndiv_1d_str -r1aht<itHng (14. "(>*')« pufa.id.9). 

A HghtCscringa4i**0')41n(l1v.1d.S) * wis 10 and 4 

End Sub 

Set rslm . 

rslndiv. O^en "Select • fnoni Pcr»on_T",_ 
cnZndi V . adopenDyntnl c. idLocicOpticRl Stic 

Cet^ext_Pub^un 

if err.nuttber -0 then 'skip all the code 1f error occurred above. 
I0_Il-1ndiy_id 
rslndlv.AddncM 

•lnd1v_id_str -rightC«tr1na(M."0'')4 pub_Jd,9)_ 

* HrghtatrTngCl4,"0»)4indiv_id,5) ' 10 and 4 
Z8L4I*ind1v.icL>t{ 



rsZndtvCptrscMX.Id'*} => ind1v_ld_3tr 
r»lndivf"person_fnamc-) » RequestC"person_fnaroe") 
r»lndiv^"per»onjnname") - Requestf"perMn_mn*i«"5 
r»lndiv^-person_1n«ne"> » Reqtiestrper9on_1n«ne") 
r«indivC*'per50fusex''5 = Request rperson_sex") 
r»Indiv("bf rth-yeer") • RequBStC-blrttuyear-j 
rslndivrblrthjnonth'') a Requeitrbirthjwonth**) 
riindiv^"birth-<**y") « Requeft(-birth_jday") 
rslndiv ("birth-country") • RequestCbirth-Country") 
rslndivrb1rth_itate-j = RequestCblrtft.itate") 
riXndWC-Mrrtuceunty*) « R«quest<"bHrtRLcciijnty*) 
riindlvC-blrducTty") - ReqweetC^I rtKjcTtjT) 

rtlndiv. update 
end if 

•gasssParents i - 1 i 

if requestClnamePl") o"" or re4ue»t("fna«oPl") o"" or , 
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r«qutst(**1naiMP2'*) o*" or requestC"fhameP2"} o"" then 



GctJiext-Pub_liua 
If err.nunbep bO thin 
iD_ia-1i»d'iv«14_«tr 
oojupd*t04ove» "Pi" 
tf>d If 

C« t_W« X T;_Pub_Nom 
If err. number •© then 
ID«P2b1 nd^ <Lst r 
Oo.UpdAtOtoves "PZ" 
end If 
'Add Unlet for parents 
rsLlnks.Addnew 
rs U nks^**pi rsonl" )eniL.Pl 
rs Li nksPpe rson2''}«ZD_ra 
rsLi nksr rel ate"5s"sw" 
rsUnks. update 

rsLinks.Addnew 
rsU nks^^pe rsonl" VlO_P2 
rsLi nksC*person2">iO-Pl 
r»U nksC"r«l«t«'')«"$H'^ 
rsLlnks. update 

r*L1nks.Addn«M 
rsLi nksf ••per»onl">slo«ll 
rsU nkfirp I rson2 ''>>I D_pr 



'skip ell the code If error occurred above. 



'skip all the code If error occurred above. 



rsLi nksC'Vaiat*")" 
rsLlnks. update 

rsLinks.AddneM 
rsLi nk s r 'pe rsonl" >1 D_I1 
rsLi nksr person2'')«ZD_P2 
rsLi nksC" rel ate")-"PM" 
rsUnks. update 

rsLlnks.Addnew 

rsLi nksf "personl" )«»ID_P1 

rsLl nksrperson2'')-I0^1 

r$Llnkarre1ate")-"C8" 

rsUnks.i^ate 

rsLinks.AddnflM 
rsLi n ks C' pc rsonl" ) =ID„P2 
r$Ll nksrpersonZ'JsIDLll 
rsLi nksC" rol«te-)-"C8r 
rsLlnks. update 

'rsLlnks.Clote 

end If *end parents section 
Sub Oo_update^v«s (suffix) 

D Indiv_id_str 
- Requests 'fnoine''&9uffix) 
" Requ«stc''nn«in«''&$uff1x) 

• RequestC'lnama-Asuffix; 

• RequcstC'8ex'*&suffix) 
c RequestC"year"&suf f i x) 

Re9U€ stc 'nQnth*«suf f1 x) 



& rToh 
rslndlv.Addnew 
rsx ndl V C' P« rson^i d") 
rsl ndi V C' pe rson^fhame " 
rslnd1vCperson_fnnaroe" 
parson.lnarae"! 
person_$ex") 
bi rth^year") 
bi rthjeonth'*) 
b1 rtfuday") 



rsZndivi 
rslndivi 
rslndiv 
rslndiv< 
rslndiv 



rslfwJIvC'bi rth_country") 
rslndiv r'bl rth_state") 
rslndl V ("fai rth_county ) 
rslndiv C'bl rth_city") 

rslndiv. update 
end Sub 



*«cKes=spout« and k1dsBni=33= 
'can't dd any kids «rfthout 
If requestPlnamesl'*) <>"" 
requasfcC" InameSlCl''^ 
reques tc " 1 nameSlc2 ' 
requestClnaneslcS" 
raques t C " 1 nam«Slc4 " ] 
reques tc " 1 nameSlCS 
requestrinamesice , 
request C" 1 namaSlC?" 
requestC " 1 naneSlCB " 
request C" 1 ruuQeSlC9'*' 
requestC" InameSlClO) 
then 



e Reques t("day"&suff fx) 

B Requestrcountry''4suff1x) 
- Request<"atate"A«uffix) 
o RequestC'count/'Asufflx) 
► Reque«tC"c1ty-*uifHx) 



a tpousa to link to 

or requestCfhameSl") o"- or 

"• or requestf"fnamcsici") o""~or 
or request f"fha(iieslc2") o"" or ~ 
or request C"fnainesac3") o~" or " 
or requestr"fhani€SlC4'*> o**" or ~ 
or reque3tf"fnan>€SlC5"> o"" or " 
or request rfnamesios"} o"' or ~ 
or r«9uastC"fnam«SlC7"> -o"" or ~ 

" or requestrfhameslCB") o"* or " 
or requestrfnameSlcS") <>"" or Z 
or requestCfnoaieSlClO") o"" _ 



CetJ(ext.Pub_Mifn 
if err.nmber aO then 
20.S1^1nd1v.«d-str 
Do.update.>loves "si" 

'Add links for apousa 
rsLlnks.Addnew 
rsLi nksC" pe rsonl~>slO„J 1 
raLl nkaC pa rson2">«io_si 
r$LinksCreUte-)i"$»?^ 
rsLlnks. update 

rsLlnks.Addnew 

rsLi nks^ "parBonl")aIO.Sl 

rsLlnksC"peraon2'*)»I0_Il 

rsLlnk$rre1ate")»"SH" 

rsLlnks. up date 

end If 

If raquastCnnanaSlCl") * 

GetJ4ext.Pubjiun 
If err.nunber -0 then 
lOjlcl^lndlv.lcLstr 
Do_vpdate.j«>ve» "Sid" 



•skip all the code If error occurred above. 



o"" or reques tCfnamaSlcr') o"" then 
•skip all the code if error occurred above. 
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AddjChild_Llnks IO_n, ID_5X, lO.SlCl 
end If 



end If 

ifvd if ' 



«nd of spouse and first child section 



Sub Add-Chi1d_Llnks (fadwr. nether, child) 
'Add links for child 

rsLlnks .Addnew 

rsLinksC*p«rsonl")ttfadwr 

r»Ul nk« r pe rt onJ ") -chl 1 d 

rstlnkiC'rel tt»")*"CB" 

r&Llnks .update 

rstlnks.Addnew 
rsLlnki C"p<rsonl'*^««i»th«r 
r«Ll nfcsC'parson2'*)«ch1 1 d 
r$Ll nksCTel ate")»"CB" 
rsLlnkf .update 

rsLink&.Addnew 

r* Li nkt^*'par»onl"^=cM 1 d 

rsU nks("person2")sf«ther 

pstinksrrelate'*)»"PF' 

r slinks. update 

psLi nks .Addnew 

r»Ll nks ^ "p e rso nl" ) «c hi 1 d 

rsLI nks ("pe p»on2'*)=«othe r 

rsLink»(~reUt«")»"PM** 
rs Li nks. update 
End Sub 

If requ«stC"1nznieSlc2'0 o"" or requestC"fnameSlC2") o"" then 
CetJlfxt_Pub_fiuffi 

If •rr.nunber bO then 'skip all the code if errar occurred above. 
lD_siC2-n ndl v_1 d»s tr 
Do_updatejiovcs "SIQ" 

Add.Ch11d..Llnks lOuXl, ICUSl. IDJK1C3 
end if 
end if 

If request C1naiii«SlC3") o"** or requestC'fnmeSlca") o"" tiien 
CetJJext.^_Num 

if err .number «0 then 'skip all the code If error occurred above. 
I0_S1C3«1 nd1 v„1 d_$tr 
Do_UpdateJ4oves "slcS" 
Add_Chnd_Llnk» lOJl, 1D_S1, I0«sic3 
end if 
end if 

if requestC*'lna«esiC4*) o"" or requestC*fnanieSlC4'') o"" then 
GetJlext-Pub_Nuni 

It t^^i^^f^ '^^^ •''1 «'^"»r occurred above. 

I0^S1C4«1 ndl v_1 dL-str 
oe-Update_Hoves ^slcA" 
Add_chnCl.1nks 1D.I1, ro^sl, 
end If 
end if 

"if request ("InameSlCS**) o"" or request C fnameSlCS") o"" then 
Ge t_NeM tJH)b_Ntn 

If err. nunber aO then 'skip all the code If error occurred above. 
ZOLSlCSsindl V.I d_str 
DQjUpdat<.jlove3 "SlcS" 
Add_chnd_Link$ IDJI, ip_sl, io_jSlcs 
end If 
end if 

If requestC'lnameSlCfi-^O'''" or requestC'fnanieSlce") o"" then 
G«t_Next_Pub_Nijm 

if err.niinber =0 then 'skip all the code If error occurred above. 
I0_$lC6*1ndi v_id_6tr 
Do.updeteLHoves "Slc6" 
AddjChi1dJ.ink« iCLil, xousl. I0.S1C6 
end If 
end if 

If reque»t<'"»naineSlC7") o"" or requestC"ffta»eSlC7"> o*'" then 
GetJiext-fMbJlun 

if err.nuifcer -O then 'skip all the cod* If •rrei- occurred abov«. 
I0.9lc7e1ndW_1ci.jtr 
Oo-Updatejfcve» -Slc7" 
AddjChn d_Li nks lOJIl, IQJSI, iBLSlc? 
end if 
end if 

If requestC'lnameSlCS") o"* or request ("fnemeSlC*") o-"" then 
Ge t-Kext;.Pijbt_Nuni 

if err.ounber -0 thtn 'skip all the code If error occurred above. 
I0jslca=i ndl y_1 d_» tr 
^i^e^f? V?ves ^1C«" 
AddLChtldJ-lnks ZD.I1, tD.51. XDJ51C8 
end If 
end If 

If requestClnaeieSlCS") o"" or requestC'fnaneSlrt") o'" then 
Get-Jie«t..Pub.lluw 

II t^'^'^^'' ^ occurred above. 

Oo_updateJ(ioves^lC9" 
Add.Child.Llnk* IDJCl, 10_9l, ZD_S1C9 
end if 
end if 

if requestC'lnameSlClO*') o" or request(-fnaniesicio-) o- then 
ce tjiex t_Puo_MuTj 

loJ£cLSS^1v"ld5t? ^^^^^^^ 
Oo.Updacejtove» "SlclO'' 
Add.ch114ainkt ID.I1. IDJSI. iDjslciO 
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C :\paten t\Modu1 esXdbsrclS S . asp 
end if 



* rsIndivCbi rth.yr«accur") = RequestC'bi rthLyr^accur**) 
'rslndivr'birtlucountry") ■ R€questCbirth.country") 
'rslndivc"birth_state") o RequestC'bi rth^state") 
*rsIndivC"birt*ucounty ) = RequestC'bi rtJucounty") 
' rsIndivC'bi Pth_ci ty") = RequestC'bi rth_ci ty") 



>slndiv. update 
rsZndiv. close 
cnlndlv. close 

^nd if 'testing for positive error number 
-^f Err.Number o o Then %> 

<font si2ea"S"><i>The new Family was added. </i></font><p> 
The new focus individual's number is '<^ZD«I1X> <br> 
<!— full string is <-5K=indiv_id.striK— > 

<% ELSE %> 

There was an error adding an individual or faniily.<p> 
Error #<3fe:Err.Number5lfi>: <a^Err.Description5K><p> 

<br>Error S8: You have timed out and must log on again to add records. 
<br>Error 99: You have used up all your name space for new records. 
<br>You may register for an extension or contact the webmaster for assistance- 
<br> You may continue to update existing records. 

S^End If %> 

<% End If 'check if entry fields are empty%> 
<p> </p> 

<a href="menu1dxl.asp">Retum to Indexer Main Menu</a><p> 

</body> 

</ht3iil> 
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C I \wttwt\M»du1 •%\€b t rcl60 . *«p 



^03 Lanaujigc^VRScrlpt 

'dSOptlon explicit Sb. 

'Response. Buffer^true lb- 

<l» flnclud* vf rtujilB'eeMmffi/tdAvbs.Inc" — > 

<d(CTA MAM&i'*CCNEftATOll" CbnUnts'Mlcrosaft Vicual studio 6.0'> 

<nTLE>]NOEXERS P£DICftEG VXEtf AND UPOATE<ArrLC> 
idl)>INDEXERS PEDIGREE VJEM AND UP0ATE</N3> 
</H£AI» 

"rltls praerm lets a viewer choose and pay for nams. 

'The first CiRNB CM» Is retrieved, and any cIm It 1* 

'tubmictcd without beino completely rilled out, the fonn 
'1c dUplayad. If It Is submitted and completely filled out. 
'the forai Is processed In the Else clause. 
Din sUrCPtrsofulnane, starvpersotufrume, ftarcpersorumwe 
CriM *tart^erson_byear, start_persori_1d 



if sesslonClndexer logged on")0'''1ndexer logged on* then 

reiponBe.mdlpectC'loflidxOl.asp") '&ee p. 3*7 of prog guldt 
end if 

•If ses$1onC"buyer logoedp.on' )o"buyer logged on" then 

; response. rediraecC-logonEy. asp") 'see p. J37 of proQ guide 

•end If 

yib.idatas«1on ("pubjd") 



[If KequestC'start^erscn.lnme'*}-'"' or RequestCstartuavrsorufnaiMn*"" 
or requestC start_persofU»y««r">="" and rcqu«st("startu>erson_1d'')s''^ 



rcqu«st("startLperson_1d'')s''^ then 

Jf RequestCttar^^rsea.lnm**').-" AND requastC'atsrt^ersaiu.ld")*"' THEM 

Enter the last najne. and then add one or more of the foUowlna fields - first 
nesie. middle nam* , birth year - as extra cHteria to describe the person where 

?2»jr^^f*r^^'<« "2.''^*^* PAr-P£R-viEW pedigree search. <«-.<NotiT Only the last nania Is used for testlno 5.-> 
<8R>0r, If you already have the person's Genealogy Registry ws^ing.j > 

ID, please use It to go direct and save time. 
<SK>9earch may be 

limited to names In a recent rlmc^range, such as those bom in this century. The 
pedigree-following process is used after that. <p> ^ 

<FOWi METHOftrPosT ACTioN»"dbsrcl60-asp" 1{Mbnn2 naneafbni2> 
Starting Focus Person:<8R> 



Last 

<INIVT TVPE-'lEJcr »w«iE="«tart-ptraofi.lna«e" SIZE-14> 
First 

^MPUT TYPEo'TExr- »«ME-"atart»persoft.fiMBne- SZZE44> 
Middle 

<jHwr TYPE-»TExr- NAME-"*tart_personjwianie- SZZE-14> 
Dfrtn Year 

•cINPin' TYPE-' TEXr" NAME«"starlLperiOf|_by€ar" SXZEa4><p> 
R^stry JO of starting Focus Person 
ggfWT^TrPE-jTEJfT" liAMt.-$tartjnrsorui«r SZ2esl4> 

•OMPVT TVPI-^TtST" NAHE-*'pub_'<d" value-'^ub.ldSb." SZZ&a4> 

Operation Type: Sal act Option :<br> 
I want to 

<INPUT^pe.=" radio" names^f)d«te«type vtlue»-viEW" checked> 

•<IHm type="radio" n«me^date„type value- "AOO" > 
Add Names 

^NPVT type**" radio" namesupdata.typ« valuea"CHAK6r'> 



Change Name Data 

-OHPUT 



^PUT tyve>" radio" namesupdate.typ« value>''OEi£rE''> 



<IHPVT tvpea^ radio" na(ne>updat«.type value«"DEUNir d1sab1ed> 
Ronove Links Between Names 

<?NPyT^TYPE»-subnrit- va]ue-"St«rt Search" Id-subnrita. nane«suiMltl> 

<(e1se 'second half of fonHX> 

'Mm strSQLTemp, tablajuma, oimar.id 

' create toiporary table for cookie processing 

Dim cnSearch, rsSeareh 
Ola msrart_p«rforu.id, x 
Dim strSQLp 

Oim firstrac. lastrac , strx, 11n«L.cnt 
Dim strSQLflelds. max.e11c««ed 
naK.e1 1 oMe^300 

**5 '!55*r**' ■ Jew'' '^'^•*«*J«ctt"^M. Connection**) 
cnsearcn»Qpen dbl 

set rsSearch • $erver.CreateObj<ctC"AOODB. Recordset") 

•fJS'^'iSSrlS i.fj9!j'^<*^"fl<'»'"0"^*''*«»««C-«tartu.ersoa.ld").l2) 
'Ruponse .write, mstar^eraoiuld 
iw»»re personjinamo >» (fflstart_p«rson.1d 
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C iXpttcntXtipdul t»\db5rcieO « no 

'construct SQL for oultlple i«arch cHt«Hlt 
If r«qu««t("ic*rt»j«r«oiv_1«r)o then ^ 
strsoLpa" SELECT periofuld. pirtorulnaow, pcrsofufhane, "4. 
"persorvJBnaiMi "K- 

"birttuyear, birouwnth. b1rth_d«y, blrtlucountry, 
"birttu»t*te, birttucounty. birtJuclty "4. 
"f rora p«rtor\_c "4- 

"where persojuH ■ *" 4requeit(-»t*rt_p«r»on.id'') 4"'" 
" and leftCptrfOiuld.S) ■ 4puh_1d7' " 
" ORDCR tY PUSOiUiUWE, pmrtonJUm, ptrtorumvn. bfrth_year^ 
'keep Co own naMS 



'•trSgLffaldo-" ** 'BXftTH_YEAR > '1900' ANO " ' ALLCW ANY YEAR FOR THt PROS 
StrSQLfleldsa" 1efc(persoru1d,9> • ipub.id A"' and " * but keep to own naiMS 
if requ«st("$t»rtLper»on_lnatfDe"5o"" then 
strS<}tfH«1ds-«trSQLf{e1d9 V p«r»of\_l nana - "* 4requastC''start_p«rsoiC1nuw"> 4"* * 



end ir 

If requestCatart-persofLfname")^'" then 

atrSQLfields-strSQLfleTda *" and peraorL.fn«ine - "* tr«qu«tt("start_parcon_fnaRi«") L" 
end if 

If radue«tC''8tar<_personjnname'*)o-'"' then 

strSQLfialdsBttrSQLflaTds ft" and persoajmaoic ° ^requestC'start.personjwuune''} &" 
and if 

if r«questC"tCartLjwrionJbyea,r")o"" then 

^^strsqLf1e1di»$trSQLf1eTds «r" and b1rth_year ■ IrrcqtMStC'start^rsonJbrcar") 4"' ' 

$trSQLp»"S6LECr parson_id, paracn_1name, parion^ftiame, 
"peraonjnname, 

"b1rth_year. biroLmonth, blrttuday, blrttucountry, 

•birth-ctata, bi rtfucounty. birthjnty 

"from person«t 

"Mhere " ittrSQLfields S(_ 

" OROtR BY PERSON_L*u«E, pa r*on_fhaiM , per^iumane. birtluyear" 
end if ' end of SQL creat* logic 

'Relational C<. >. <». >») - «om msom u operator, oohpartisom operators 

' response.wri te requestCstart.ptrton.lnanie") 
'R« spofiaa.wri ta strSQLp 

1f rsseapch. state ■ adstatecjpcn then rsSearch.Cloae 

research. Open strSQLp, cnScarch, adopendynajnlc, adLockOptlirristlC 



'use input screen like dbtrchlO 
'do aearch 



<atlf requast("update_type*3o"AD0" then K> 
-<FORM METMOO-POST AcnOM-'dbsrclSLssp" id-fuml naRie«fonnt> 



0{el»eif r«que>tC**upd«te_type'*)-"CHANGE'' then 
<FORM NfTHOI^POST AcnON-''8bsrcl«.tip'* Idrfonnl I 
4Ca1s«1f roquo»t("updata_typa-)-"OELli»r then %> 



cFORM METKOOsPOST ACTlCN«"dbsrel65.asp** id^oml naffle-fonnl> 
<JC«1se1f requestC'update.typa")s''OE».rrE" then X> 
<FORM MET>«OsPOST AcnOK3"dbsrcl67.asp*' Idisfoml ftame«fofml> 
<3ISelseif reqiJe5t(*"update_typc")-'VlE\r than X> 
<FORM METKOO-POST ACnOKs-dbarclCS.aap- 1d«fonnl nanie=fonnl> 

Select a startlnfl focus parson fro» th« following list by 
checking a single box, ' 

<X 

*if rsSearch.eof - skip 

do while not research. and x < aiax_Al1ewed *x<36 
ft trXTl ghtC''0OOO''te , 4> 

response. R^te r''<brxXNPUT type-checkbox nam««chk"*strx *" VALue>lv') 

rcspoflse.wHte f"<lNPUT type-text narrw." t, -SridGnnma- A strX 1 " valoL"l-'-2rftSMreh^"S.r««n~^ !]" . 

response.wHte <:<IHPUt type-text & 'Irid^S^ 4 ISi * " X^JS-f- -JSlSSK-EfrSiS?^)^^^^ 

"l2«h:!SiJ^i*''"^ type-text name-" 4 'griijlr 4 stoc ft " Y^^^^'V''47A'i^^t%'^ ^i^Sul'] 
'if x-1 then firstrec-rsseareh. bookmark 
loop 

<ENPUr TYPE-"hiddan" liMfc-pub«id" Yalue«"^requefttC'pufa_1d-)X>- SIZE-14> 
'Response .write x-1 

respontc. write C'*<lHP!n- typecMdden naMe-11ne_cnt value*" &x 4" s1ze>4>") 
If X - cnax^allowed then -b-^.- j 

end*lf°"*''*^** "<M>At Leest "4X 4" Naaies were found aieetinfl your cr1teHa</h3>* 
If x»0 then 

Response.wHt* "<h3>"4at *" Mamas were found iMetlng your cHteHeVha^** 

end if 

If xoO then 

^ft««^«>nse. Write "<h3>No Names were found neetlng your cr1ter1a</h3>'* 

' 1 a 1 1 rec- rs sea rch . b ookmark 

'tKO subnlt buttons that go forward or back 

<ZNPVr TYPE-"hidden" MAWE-"entry.type" value-" EKTER" SIZE-S> 



^af request ("update„typc")«" ADO" then %> 
<XNW TVPS-'*lubmit" value--BEClM EXPRESS I 



- i ,^ - - — — , ^ '< NAME Aoo" 1(^subm1t2 nama-suboii t2> 

<IMPin' TYPE-'subRrft*' value-^BECZN EXCESS NilME CHUNiES" 1dBSufan1t2 n»ie>iSUtai1t2> 
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C;\patent\Modu1es\dbsrcl60.asp 

<3te1se1f request C'updatc_type")5.'*D£aNK" then %> 

<lHP\rr TVPE*** submit^ valuft^** BEGIN EXPfiESS LINK REMOVALS** idssufamltZ naine»subm1 12> 
-aselself requ«$tCupdateL-type*')e"OELETE'* then %> 

<INPUT types'* submit*^ va1ue»^*6EGIM EXPRESS NAME DELETES" id=subin1t2 nain»-subni1t2> 
^ls<if r«qucst("upd«t^type*'>«**viEN" then %> 

<INPUT TYP£«** submit*^ values^'SEGZN EXPRESS NAME ynoT 1d-subm1t2 namcssubnri t2> 

^NO IPX> 
</FORK> 
<Xend 1f%> 



<p> </p> 

<p><a hrcfB''menuidxl.a$p">-Return to Indexer Main Menu </9x/p> 

<a href^dbsrcl60.a£p>Return to Name Search screen. ^axii>Snbsp;</|i> 

</Boor> 

</HTML> 
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^69 L«ngu4g«-VBScript X> 
^fiopdon Explicic 96- 

<!— findudft virtu»l»**conii»n/actevt».inc" 

<KTML> 



<M£rA UAM£m"G£HttiATOfr Contsnts^mcrosoft VisuO studio 6.0"> 

<n'ITL£>PAY-PER-\aE!(# PEDIGREE ADOS - SHORT FOIW</TITt& 
•<H3yPAY-P6R-VICW PCOI«R£E ADDS - SHORT F0IM</H3> 
</KEAD» 
<BCOV> 

'if requeit<"ie1_n»de**)-"A00" «nd _ 

reQue«tC"lniniePl")w'*' and requeitClnamePZ")*"" _ 
'and rtqu«stC*lrMn«MC0m-5-"" and reque»tC"lfMnitNC0201")=-" _ 
'and requattr'IfMnMNCOiOl'')-'"* and r«qu«it:(''1nafMNCD401"W"' _ 
'ind requ«itC"1nsnesi4'*3-'**' and requescC'InameSMd")-"" then 
if rtqu«stCentry_type**)»*'E»<rER" THEN 

'th« only tin* ENTER is not in tff«ct U whan data i% baing 

'processed by tha second half of this program 

'cede ceplad fron db«rcl40 

If rMu«stC11n«.cnt")^ then *1f only one nane oaies In. Uke It wltliout a checkbox being set. 

STA<aLPERSO»LJD-ftEQUESTC''GRIO.^001*') 
else 

FOR X-1 TO requcstCline.cnt") 2$ 

STItX-KIGHT("0000*'&X , 4> 

IF ReQUESTC'CHK"«SriUOsl THEN 

STAIITJ»ER5ai(_ia=REQUESTC"aRI0_ID"ftSTnO 
EXIT FOR 
END IF 
NEXT 

end If 

'Dim cnsearch, research *, rsSearchF. rsSearchM, rsSearchC. rsSearchS 
trim $TART_PER$0N_I0 instart_p*rson_id. x, STVX, 

Set cnSearch o server.createObJcctCAOOOa.CDnnectlon'*) 
enSearch.Dpen *dbl" 



Set rssearch ■ Server. CreeteobJectC'WODe.Recordsetr) 
•set rsUnkHar - Serve r.Create6bJect<-A00DB.Record»et-) 



'natan^rtofyid - HghtCstHng(S,"0''>«requestC''iUrt_person_'id").12} 
instart^ersorcid • start-persofuid 

ECT personal d, person. 
«. person^sex, ii^ 

, birtfLcounty, birth_c1ty. blrttuUt, blrth^long 



StrSQLps "SELECT p<rson_id, persoi\.1nanie, per5on_fnanj« , "fc_ 
"person.fiiname. person^sex, 
"blrth^ear, 61 — 
-birtiustato, t 
"from perionjt 

"where pertoOd - '" Astart^erson^ld *"' 



if research, state • adStateCpen than rsSearch.Close 
research .open etrSQUp, cnScareh adopendyneeric. adLockoptfarlscte 

research .Open strSQip, cnSaarch 



<FORH METKM>»POST ACnOKs"dbsrcl61.asp'' td=tfprml n«Be*foml> 

Starting Focus Per9on<p> 
Last 

<1NPUT typep-TOCT MAMC="$t*rt-lname" SIZE=10 v«lufta-^rsS«arch("per$on_1narae")lfi>~> 
First 

<iHPur Typ&i"TExr NAiiE-"stirt.fi«iie- sUEslO value-"^r«Search("perK>n.fnaine"}S>"> 
Middle 

<iNPin- TYP&a-TEXr NAME»*stirtjin»ne" sizebIO VBlucs'^rssearchCpersonjwnine"}]^*^ 
Birth 

jINPUT TYPE»"TEXr" NAME*" s tar cblrtTuy car" SIZE«4 ral uc*"<9bir»9carehC"bi rtk.year")]b''*> 
<ZNPvr TYP6»"TEXr'* iWME-'*ctart_persoiuseK" SIZE«1 va1us«"4jfersSaareh("person_sex")3l^"> 
Reglstryf _ 

^NPVT TrPE-"TExr' NAM£»"start^ersoruid" SXZ&14 va1uc-"<dfersSear«h("person.1d")«>"> 
Country, State, County. City 

<INPUT TrPE»-TEXr' SIZE»15 va1ue«~<3K=rsseirch("bi rth_PoiJntry")X>-> 
-clNPVT T)^Pt-"TtXT" SZZE>aS valu««-^rsSearch("bi rth_statB-5l&" > 
<INPUT 7YPe»-TEXT" SIZE-IS value-" <d^r»S«archrbi rtK^countv^JJU" > 
<IKPt;T TYPE*"TEXr' SIZE^IS valuf>"««>rsse«rch("b1 rth.jeity'')X>" > 

yINPUT Typ£-"hiddBn" MaMt«-pgb_id" value-" <«arequeBtrpuluid")1^" SIZE«14> 

<BR> 3 
Select oprien:^r> 

<lNPtn type*" radio" namesseljiode values" aoo" checked> 
1 want to Add Niaes<br> 

<ZHPVT type'"radio" nttmesacljeede value-" FOOJS" > 

X want to Change "Focus Person" (choose only one n»ne)<BR> 



rsSe arch. close 
' progran dbsrclCl created f ran dbsrel41 
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ci\pirgnt\><o<<u1et\dbsrcl61.»$p 



Dim cnSetrch, research ', r«s«archr. rsSearchN 

aim strSQLC, •trSQUC, fttrsQis. ftrSQLP ttrsqix 
Dim X, itrx 
Oin fiame_cnt 

(Km rmSpwjf, rsKlds, ttiiOC, CtrSX, tx. lOc 
Din strSQLSc 

S«t cnSetrch • S«rv«r.cr«iit«Ob]cctC"AO008. Connection") 
cnSurch.Opan "dbX" 

'Sac rtsatrch - $arvtr.CraiteObJectrAOOOft.ltacord>at**) 
Sat raSMuaa - Sarvar.Cra&taobjactC'ADOOB.Ilaasrdsat*') 
Set nidda « Server. Cr«aCBOb]tctC"A00DB.RaeordMt") 



'«ist«rC_per9Qn.i d»*'OO0OOOOO0UOS2'' 

'astart_p e rson_1 il> req uest C s cart_p« r son_1 d" ) 

StrS^H^'SELCCT p«rsotu1d, p«r»orv_ln«n«, perion_fnaniB, 
"perscruRname, persan_sex, **4_ 

•birth_»tate, birth_ccunty, b1rth_city, b1 rtJv^ountry . b1rch_l«t, b1rth_lonfl, 

"b1rth_y«ar, birtKjiwnth, birtJuday, paMttftl, relate 

"frwd Llnk»_t, p«r»orx_t 

•where p«rson2«erson_1d "4. 

"ind parionlo instar^erson_1d 

'Focus person 



>p«ranc stcti» 



*if rcquestC*PAREirr") o"V then 
StrSQLPastrSQUt ft " and relate ilka 'pX' " 

riSearch.Open strSQLP. enSearch 
X> 

<n> 

Mam*: U*«t — Flr»t-- Middle Seit-Y\r— M— OO-^tECISTRy 

<tt> 

<SR>Pa rents 
<s 

'parent, spousa, marriage, cMId 
3?**ine net rsSeardi.EOP and x<99 

XiOI'tl 

»tr»»r1ght("00(K)"a« ,2) 

rtsponse .write C'<brxlhPin type-ctieckboi nama=chkP"Astrx &" VALUEnl>") 

raspoosa .write <;;<iJiPyT typa=text nana-'; & "TranieP" & strX & " va1ue-*8i-'"*rjSe4rch(" person lnajne")4"'"i-&nbiD:-A- s1ze=15>''> 
response.wrjte C<rNPUT type-text name- ft "fnamaP" ft atrX ft " value='X- ' '^rlSe*rch^^•^«^:fnaine••5^ •••^l^^bsb "ft" sizeiSJ"} 
response .write r<I«PUT type»text name=" ft "mnamep" ft strX ft " *'elue-''ft"*"ftr»SeardiC'per»ofLW«ic''U"*"ft"ftnbio*"A" HzeZu^-S 

raaponie.wri te <.<INPiiT type-text name, ft ^byearP" ft strX ft " valuer."*" ' "Arise arch (-'bl rt»>_year'-54"* -«"&nbsp "ft- W^J^-S 
response. write r <INPUT type-text name-" ft "biponthp" ft »trtC ft " va1ue-"ft" ' "ftrsSearchC^i rtK^K^thnft''' "A^ftfAM 

^is^^rw^JJ* >-^22{J jyp^-j^j * * * vaii«."ft-'-4r,i;irSf-b r^Ri^^sJft^V^^ ^ 

retponse.wri te r^NPUT type-text name-" ft "Idp'' ft strx ft " va1ue=-ft-"*&rs5eardtrper5wri2"5ft &-4nbsb-"«" »iz«li4>M 

"•^s") r<*>r>*cib,p;ftnbspi <liiPi/T type-text na»e.- ft "countryp-ft itrtC ft - vSie:-*^r;siirch^bl^^tctlntf^^«"^ ^ 

response. write C-dNPUr type=tcxt nana-" ft "atatep" ft »trtC ft '* valu<.*ft"'"&rss<arch(-b1rth_stata"3ft'""ft"ftnb«e-"ft'' s1z*=is>-') 
response.wrlte C^ihput typa-text name-" ft "countyp- ft tcrX ft " value-«ft--"&r»nirS^MrSriounw 

raaponie.wHte ^-<INPUT type-text nar,e»" & "cltyp'^ « strX ft " ^lua.-ft-'-JSiJlfa^Mrti^liJ-^i'^-ft-tib^^^ ^ 

*Ch«cl(andChBrg« rsSearch("p«r9ort_1d") , "00000001*. 1 
rf Search .movenext 

•if xai then fi ratracsrs search. boolonark 
x-x-t-1 
loop 

rsSearcti. close 
oarant^cntisx 
naiiie_cftt»*\a«e_cnt+x-l 
; end If 

* scs si on ("pa ran t.cnt" >«nane_cn t 

%> 

<br>Add Parants (two at a t1n«)<br> 
l.<1npyt TVPC-"TEXT" NAHE-"! |»aa»Pl" SI2G-''1S'*> 
<lnpuc TYP&i'TEXT" ivmtm'ftvmtnr SXZE-"15''> 
-dnput TYPE»rT6xr (Wi«iEp"iinaMePi" size«'*lS"> 

<1nput WEb-TOCI" M««E."»exPl" SI2E-"l-> 

<1nput TVPE--TEXT" NAK&'byaarPl'' 5IZE-*'4'> 

<1npuc TYPE«"TEXr NAMew'bnnntltf*!'* SIZG-^ZV 

<1nput TYPe«"TEXT" NAMEa'bdayPl" STZt-~2"> 



isp; 

<tKP(ir TVP6-'*TEXT" NAME-'countryPl" SZ2E-1$ walua»*tJSA" > 

•aiiPtfr TVFE^-TCXr HAWE--statePl" SIZE-IS > 

<XKPIir TYPEf'TEXT" flAME»-counTyPl'' SIZE-IS > 

-anPlJT TYPEp*TEXT» »MKE=-cityPa" S12E>1S > 

2.<1nput TYPE- TEXT" i(AMt*"1nanieP2" sue-'15"> 
<1ftput ryP6o"TEXr" N>»«6-"fnaineP2" srZ£»"ir> 
<input TVP6-"TE)CT- NAME»"«namaP2" SI2£«"15"> 
<inpwt TYPe-*T£XT" N«4E-"aexP2" SI2&--1"> 
<1nplft TYPE--TEXT" NAME-^byearpr' 51ZEe"4'"> 
<1ftput TYPC-TEKT" NAI(E»"bn)0nthP2' SIZE-"2"> 
•dnput TyPC-"TEXT ■ MAME- "bdayP2" $IZE-"2"> 
<br>ftnb£p; 

<IMPVT TYPe«-TE)Cr NAME^' countryPZ' 5I2E-1S V*1ua»"USA" > 
<IIIPVT rrPt-"TE)CT" «AME» "stat«P5- SIZEslS > 
<XNPVT TYFE-'TEKT- NAME-"coi»>tyP2" SIZK-XS > 

KiHPVT TTPE«''TCxr' hamem-cI typ2" szze-is > 
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C AottentVmMiul ei\dbsrcl61 . «sp 



StrSQLSastrSQU ft " and r«1t«e tike *sX' " ' ^lewld be s, me SM 
'reeponee .write etraqls 
reSpeuea.Open etrSQLS. enseereh 
X> 

^>Spo(ises 

SXiiO 

do iNtiile not rsspouse.EOF end Sx<99 

•trsa&.r1 flhtr oooo"ftsx , 2> 
Msponse.wnte '*<8R>5pouse "ftsx 

resporise.wri te — —• 

responM.wri te 

response. write _ 

. _. ^ (-<iNFvr typeatext nem^" ft "mnwnes" ft strsx ft 

r<iwvr type-text name-" ft "sexS" ft strSX ft 
C<l**PVT t^e-text nene-** ft "byearS" ft strsx ft 
r<INPUT type-text nane-" ft "haonths" ft strsx ft 
("ciNnn- type-text nane-" ft "bdays" ft strsx ft 
("^INPUT type-text nafso-** ft "IdS^ ft strSX ft * 
C'<br>«nbsp;ftnbsp; <XNPUr type-text nanK-" ft "countryS* 



<BR>5pouse "ftsx 

r<brxl»lPUT type-checkbox nmw-chks-ftstrsx &* VALUEaU") 

*<IIW/r type-cext nmeB** ft "InaieeS" ft ttrsx * " va1ue«"ft""'ftrs5pouser''personJn«M'*)ft*""ft"&nt)Sp;''ft" s1xe»l5>") 
••<INPVr type-text nsiio-" ft "fnemeS" ft strSX 4r " vi1ue-''ft'"''ftrsspoj£erperson.fnane")ft'""ft"ftnbsp;*'ft^ ri2e=15>") 
"^NFVr type-text na»^" ft "mnwnes" ft strSX ft " value="4""'ftrsSpou3e("person_mnMws"5&"*"&"Snbspi"&" size-15>"3 



response.wri te 
response .write 
response .write 
response.wri te 
response, write 
response .write 
response, write 

rc^ense .write C*<lNnjT type-text 
response .write C<XNn/r type-text 
response .write C'<XNf>ur type-text 



values"*" 
yalue="ft" 

values'ft" , 

values"*" ' "ftrsSpouser'birttunonth 



"ftf sspou sef pe rson^ex 
'*ftf-sSpousec"M rtK_ye&r' 



"states" 



ft StrSX ft " value-"*" 

"eeuntys" ft scrSX ft " value-*"' 
"citys* * St rax ft " value-' 



' value«-ft-'"*r$5pousejC"blrt^jla]r>*'''"«^finbsp:^^^ si2e-2>-5 
value.-*" • -ArsspeuserpersoiLld*)*" ' "&"tab$p:*A" s1zeal4>-) 
intryS"* strSX * " value-"*" '^«rsSpouseC"birCK.coimtpy")*"'^**'J 

C*L ', !^"*•»>«*^!!M*S^^t■''2f .' "4"«nbsp;"«- si ze:^] 
Cfl rth_county*ift" ' "ft"*nbsp{"*" size. 

."A" • "ArsSpouseC'bl rth_ci ty")*' * "ft"ftnbsp ri" si ze«l! 



'Inbapi"*" sizeiv 



_ ze-lS>^) 
ze«lS>"> 



I spouse/lcid scuff he I 

'find joint kids of two perei __ 

$trSQLac*"$ELECr persoruid, person.! name, persorufnane, 



rerson_ainane. person^sex, 

iti rth-stato. b1rth.«ounty, birtK_eity, birtKjcountry, brirtK_1at, birtlclongt 
"birth_year, bi rthjnonth . birfih^day, personlt relate <u 
"from Links_t, person.c &_ 
"where per«on2-e«rsoru1d "ft_ 
"and personl- ' Cm8tert.^ersoa.1d ft"' " ft. 
" and relate Like 'dit' • *_ 
" AND person2 in " «u 
" ( - ft- 

"SItECT persoruid " 4- 

"from Links.c, persoruc "4_ 

"where person2aper£on_id "4. 

"end personl- ftrsSpous«C"p«rson_id"> ft"* " *_ 

" and relate Like 'dT ) "4_ 

" OMXR ftV BIimL.irEAR " 

•insert mother's 10 just above 
rsKids.Open strSQLsc, cnseanch 

lb- 

<DR>Ch11dren 
<X 

' OC » OLD RIDS 
Kx-1 

do while net rsKlds.EOF end Kx<99 

• strKx-nfl(itroooo"ttcx, 2} 

str$KX-riohtroOOO"<fix, 2)4r1 ghtCOOOO-ftlCx, 2} 



response .write \ 
response .write I 
response .write f 
response. write i 
response.wri te i 
response .write \ 
response. write i 
response .write i 
response .write i 
response. write i 

15>"> 
response. write i 
response .write i 
response .write I 

rsKlds.nievenexc 

kx«kx4^1 
loop 

rsMds. close 



iiie=il5>") 
$1zeea5>"5 



•^rxXMPOT type-checkbox nBme-ehkoc"4strSicx 4" valu&>1>") 

^yP^-i^S * 4 StrSKX 4 " valwe-"4"'"4rsKid5rperson„ln*in«")ft"'"4-4rb»p;"ft" 

JyP*'*«»S f * * V«3ue-*'4"*-4rsKidsf"p«r5orufna»e''54"'"4-Anbsp ^ 

JyP?^*** * >n"»OC- 4 StrSKX ft " vilue-"ft"*"ftrttCid$rpersonjw«iie'')4-'''4''Anbsp "A" iizS^S 

.52SiI tyP"^"* * ^ 4 strSKX a vslue>"«'""4riKidse"p«rson_«ex'>4'''-4-«nbsp7*ft" jizif^") 

type-texc nanie-^ 4 :by««j2£: * rtrSKX 4 " vilue="&"'-4rsKldsC"Eirth-year">4-'-4"4nhsp "A" iize-4>"S 
l-aupVT type-text name-" 4 "bmonthOC" 4 strSKX 4 " valuea-4"'"4rsKidk"birtiFunondr54"*"4"tobso'"4'* size'2>"') 
VaNPtfT type-texc name-" 4 -bdayOC" 4 strSKX 4 " v»lue--4"'-4rsKi2bcVrtSX-)4''^ft"A2^^ JizU""> 
^!!fV^i.*»P^«« "SJSr^ ft "Idoc- & strSKX 4 " value--4"-4rsKids^persSCiS->tf""4-AnbsE -ft" J ^J;!!,*) 
*^r»Anbsp;£nbsp; <INPIIT type^text name-" ft -countryOC"4 strSKX ft " v*?ue»''4"'--AMKld5C-b1rtl\.Muncry^ft"'^ siz 

''<ZHFUT type-text neme-" ft "stateoc" 4 strSKX 4 ' 
"<iHPur type-text name-" ft "eountyoc" * strSKX 4 * 
"^iNPUr type-text name-" ft "cityoc" r 



? SCPSXX ft - velue-"ft-"4rsKidsrbirth_state")*"'"4"ftnbsp{"ft" siEe«15>") 
»untyOC" * strSKX 4 " value-"4-- -4rsKids("b1rth.counl»^ft-'"4"4nbsp!-4" lu^S^^ 
n tyoc" 4 StrSKX 4 " value-"*" ■ "ArsKidsi-bl rthZcity 'jA*' "4"4nbsp;''i- siS-SJ") 



("<br><lNPUT type-checkbox n«n«-Cchk"4strlO( 4" VALlX-l>") t'MiZr 
,_<8R>"«KXA"<INWT types»text_raine»" 4 "InwieMC" 4 strSKX 4" size*15>") 



Md Mint Otlldren of Pocus Person and Miove Spouse 

KX-1 'NQTS W6 ARE USINC SX COUIvrER PROM THE SPOUSE ABOVE 
do While KX<6 *NC - NEW KIDS 
strSKX-riflhtrOOOO"45x,2)4right("0000"4Kx,2) 

'response .write 
response .wri te ' 
response.wri te 
response.wri te 
response .nri te 
response.wri te 
response .write 
rsspcnse.wri t* 
response .wH te 
response. write 
response.wri te 
respense.wHte 
response .write 

kx>=kx4l 
loop 



"fnameMC" 4 strSia 4" s1zeBl5>") 
||ninam«MC" 4 strs»a A" size-lSv") 



<lfiPUT type=t«xt I 
<1NPUT type-t«xt nw 

-aNPVT t)rp««t«xt Awne-" 4 "sexMC** 4 StrSKX A" size-Jy")' 
, <IMPVT type-cexc nwiie=" A "byearwc" A strs<x 4" size-Hy") 
KiNPlfT type=cext n«ne=" A "bmonthNC" 4 strSKX 4* s1ze-2>') 
<2MPirr typ««t«xt nsme=" A "bd^yncT A ttrSKX A" lize-Zv") 
-<IHPtn- type-text name." A "idNC" A strSKX 4" fize-14>') 

. .ii2l.5™*P type-text name-" 4 "countryNC"4 strSKX 4 " size-lS VALUE-' USA' >"} 

"*JSS!I 5yP«-5«S 4 ^itateMir. 4 strSKX 4 " s1ze-lS>") 

^HSS «yP«-"xc na»e»; 4 ^eauntyMC" * itrSKX 4 " aizeid!>"5 
xWPVT type-text naaie-- 4 "cltyiic" * strSKX 4 " size-l$>"5 



'■—end spouse/kid stuff 
rsspouse.novcnexc 
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UanguigeoVBScrlpc %> 
<X Option explicit %> 
<l'- #1nc1ude virtua1a'*CQninoi«/ftdovbs.inc^ 

-<«TML> 
<HEAO> 

<d4ErA MAMt»"CENERATOR*' contents'Microsoft visual sttidio 6.0'> 

<nTL£>UPGIlWE/UPOATe MM8YIST<AlTL6> 

</HEAO> 
<SODYV 

^3>LrPG<WDE/UPMTE H0BByiST</H3> 
<KR> 

'The first tint -tfiic p«9« is r«tr1avfld. and any time it 1s 
'submitted writhout being completely filled out, the form 
'Is displayed. If it is submitted and completely filled gut, 
*th« fonn IS preeassed in the Else clause. 
If R<quBStrhob_1namc'')«"*' OR RequestC'hob.frwmo")*'"' _ 
OP R«quastC"hob_«roan">="" OR ReauestC'hob_b1 _ 
OP R«que8C('*hob_cr*d1t.cd")="" then 

If ICS si on ("hobbyist logeed on*'>o''hobby{ st logged on" then 
hob.ld a sesslenChob.ld') 
end if 

Set ctiHobNun ■ Serve r.cpeateObjectC'AOOOB .connection"} 
cnHobNun.Open "dbl" 

Set rsHob a Server.creaceobJect("AOOOB.Kecord»et'*) 

rsHob.Open "Select • from Hobbyi«t_T where hob^id » Ahob.id A"**, _ 
cnHobNun * ,adopenOyn«nic,adLockOpt(inistic " 
If not rsHob.bof and not rshob.eof then 
x> 

KfOM METi40O=post AcrxON«''dbsre220.asp" 1d«fonBl n«niesfornil> 

Please review the data you entered at original rcaistration time, and «*ka sure 

it IS conplete and correct. QHant and birthdate will not be changed - thay make up the pessworcO. 

<br>Thc hobbyist upgrade cannot be ecconpllshed without at least 

a first nine, last name, birthday. «nai} address, and credit card number. Phone 

nunber and full mailing address are desirable. The credit card nunber will be 

used only for upgrade to larger nanM space and full privileges. 

<t>r>After the credit card Is successfvlYy processed, the hobby space size and 

privileges wilt be upgraded. 

<p> 

Your first name, last nane, and middle nune (i^ 
previously used) will continue to be your<6> logon ID,</B> 
and your birthday, given in the correct fonnat as Indicated 



and your birthday, .given in the correct fonnat as Indicated, sfill continue to be 
your <B>passtrord.</a> When you are finished, click the 
UfCRADC HOBBYIST button. <p> 

Hobbyist ID 

<INPtlT TYPt-'TEXr' NAME-"HOB_id" VALUE-" dfersHob('*hob«id")X>" SIZEslO > 
Name: Last 

<iNPirr 7YPt=2Exr; name="hob_lha«e" VAUUE--<8.r$HobC-hob.lname")X>- size«is > First 
<INPUT typl-'^ext- MAMe-''Hoe.FMAMe" VALUE=".d6.rsHobC»hobL.fn«aa"55fi>" SIZE»15 > Middle 
<INPUT TYPL-'Yexr- MAMe«-HOB,>WAME" VAUJE-"^rsHobC''hob3»n«ie-5j^- sxzc«l$ > 
<BR> 

Birthday Cand passMord) in MMOOYYYV fonwit. 

jlNPgr^TYPC^TEXr* NAMe«*HOBJBIRTH" VALUE-'^rsHobChob^i rth'SJb^" gTJC-a 

•MMple. 07101041 would be entered for luly 10. 1941. 

<P> 

eiUIL <IWHir TVPC-TEXT" NAM£e''H06_EMAIL" VAUJE»-'dfcirsHobC"hoh_eiBa11-)».- SIZE-50 > 
<8R> 

PHOjC <IHPUT TyPE--TEXT" HANE-'NOflLPHONr VAL«e*i-^rsHqbC"hobLphone-)»>* SIZE^ > 

AOMESS l<INPIir TVPE-"TE)cr IMME-"HOaj«X»l" VAL0E^"^rs»tobrhob.addrl")3b." $IZE»10 > 

AOOftCSS 3<IUPVr TYPe."TElcr Wlyie«-H0B_AD0R2" VALUE^i"<5Urs«obrhob_addr2")X>" $X2&>}0 > 
<BK> 

CnY<IIIWr TYP&r-TDCr KAMEa-HOBjCmr VALUE*- <aSarsMob("hoh,city")X>- size«3o> 
5TATE<I)(PUr IWME-"HOajfTATC" VALO&i"<jfcr»Hob<"hob-State")56>^ SI2Eb20 > 
COUHrTRYKlNPVT NM4E*'*H0B^C0UirTRV VALUE^'*<«»rsHobC*'hob_COUntry'')X>" St2E-20 > 
ZIP<IMPUr IMIIE-"HORJIP^ VALU&>--dihrsNobC*'hob-ztp->»^ si«3o > * 
<6R> 

uwnuoE <tiiFifr typeb-text- ham&i-hdb_lat" VALUE-"<JUrsHobC'hob lat"536-" 5IZE-7 > 
WNcmiPMiiPUT MAi(fc-HOB_LO»Kr VALUE»"<&rsHobC-heibjong'*)»." size-7 > 
ACCURACY<INPUT HAHE»-HOB.CEa>CCUR" VALUEs-^PSHob('hob_oeo_accur'^i>' SI2E-1 > 
4R> 

«MT CARD^MIPirr TYPE^"TeXr" HA«E=-M0BL.CREDrr_O>- VALUE» '<5fcrsHobChoh_cred1t_ed")X>- SIZMO > 

Narei<INPVT TYPt-'TSXr NAHEm-HOB.MITEI'' VALUE*"^rsltebC'hob^tel")J£>- SIZC-SO >■ 

<HR> 

<XNPU1I^TYPE«'*sUba1t" value*" UPGRADS HOeBVIST* SIZE • SO id-subaiitl name«subnrftl> 
<% 

rsHob. close 
lobNun. close 
I if 'was reed OK? 



else 'ether half of page 

Dim cnHobNum, rsHobNun, rSHOb, Hob.ld. H0b.1d.Str 
Oim raMastMuB), str^LHob 

'set cnHobNum « Server.CreateObjcct("AD0OB. connection") 
'cnHobMun.Open "dbl" 

'Set rsMastNuR = Server .createObjectCADOOB.Reoordsef) 
'rsMastMin.open "Select * from KMastJiob jwn" 
* cnHobffcAi,tcfopenOynaRnc,adLoekOptisiistic 
*Hob_1d • rBM&ttMunC'Kast-Hob^ext.jw'') 
•rsMastMuiCMastjiobjiext-no") • Hob.ld ♦ 1 
VsKastMin. update 
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\UQ CREDIT CARD CHECK AND CHARGE MONEY. IF 0K> COMTINUE WITH UPDATE. 



'Response. write "pub^id^" 
'Response .Write pub_id 
'page 270 of asp for dum 

Set cnHobNLin s 5erv«r.CreateObjectCA0OOB .Connection") 
cnKobNum.Open "dbl" 

Set rsHob = Serve r-createObjectCADOOB. Recordset") 
'Response. Write "hob_id-"&requ€stC'hob_id") 

strSQLHob - "Select ♦ from Hobbyist^T where hobjd = 4requestC"hob«1d") A***" 
rsKob.Open strSQLHob, _ 

cnHobNum, adopenoynami c , adLockOptimi sti c 
if not rsHob.bor and not rshob.eof then 

'rsHob.Addnew 

• Hob^l d.str>;RlGHTC"OOO000O000"&hob.i d . 10) 
•rsHobChob.ld") = hob_id-str 
•rsPubrpub^Td") = pub.id 
•rshob("hob_next_no ) =1 'set at 1 to start 
rshob("hobj«ax^ext_no"J = 9999 

sessionC" hobbyist name limi t")orshob(''hob_i!iax.jiext_no") 
'rshobf hob_fnanie"^ = Requestr'hob^fname") 
'rshob('*hob.jnnanie") = Request C'hob_nwajne") 
*rshob("hob_1name'*) = Requestr'hob^lname"; 
'rshob<"hob_b1rth**) = RequestC'hob_b1 rth") 

rshobr'hob.emalT'J = RequestC'hob^emai 
r$hob("hob^hone" J = R€questr*hob_phonG"3 
rshobC*hob_addrr') = Requestr'hob.addrl") 
rshobr'hob.addr2") = R€quest<"hob_addr2") 
rshobC"hob_c1ty") = RequestC^hob^city") 
r$hobC"hob. state") = Request("hob^state") 
rshobC'hob.country'') = RcquestC'hob.country") 
rshobC'hobjSp") = RequestChob^zip") 

1f len(RequcstC-hobJat"))=0 then 
rshobC"hob_1at")=0 

el se rshob( "hob_1 at" )=request C'hob.1 at") 
end if 

if 1 enf Request("hob_long"))t=0 then 
rshob(*hob.1onq")«0 

else rshobC"hob«long")»request("hob_long") 
end if 

rshobC"hob«geo«accur") = RequestC"hob_geo_accur") 
rshobC'hob^notel") « RequesrC"hob_notel") 
rshob("hob.credit«cd") « RequestC"bob_credi Ccd") 

rshob. update 

rsHob. Close 

cnHobNum. close 

end if 'was read OK? 

%> 

<8R> 

^If Err. Number » 0 Then %> 

<lfont size-5xlb>The Hobbyist record was updated. <l/b>< I /fontxp> 
<X ELSE %> 

There was an error updating a Hobbyist. <p> 
Error # 

<X=Err.NU)d>erX> 

<36=E r r . Oe sc ri p ti o n9S><p> 
<af End If %> 

<* End If 'If RequestC"hob_lname")="" then%> 
<P>Anbsp:</P> 

<a hrefs'menuhobl.asp">Hobby1st Main Menu</a> 

</B00Yi> 

</HTML> 
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^ L4nguage^VBScr1cc X> 
option Explicit & 
<5KResponse. Buff ervt rue 

<l— fincludi v1rDia1o"coninon/adovbs.inc" --> 
<«eAo> 

<MCTA names" GENERATOR" Contenta''Mlcrosoft Visual studio 6.0''> 

<nTLE>M06ftr VIEW PEDIGREE - Start Search^/tlTLEv 
<H3>HoeBY VIEW PEOtCREE • Start search^H3> 

<fiOOYV 
<HR> 

'tMs program 1ert5 a. viewer choose and pay for names. 

•The first tine thi» page is retrieved, and any tine it 1i 
'submitted prithout being completely filled out, the fono 
•ie dlspl&yed. if it U subnri ctcd^and completely filled out. 
'the form is procetaed in the Else clause, 
oiin $cart_person.1nan«, scart_person_fnaira« start_persoruinwie 
Dim st«rx_por«on_bycar. $tart_person.id 



'LOGON CHECK 

If seasionChobbyist logged on")o''hobbyiat logged on" th£N 

reiponse.redirectC'lognobOl.asp") 'see p. 337 of prog guide 
end if 



•if RequestC"start_persoru1nafn«">»''" or RequastC'»t*rt_person.fnaio«")»"" _ 

or reqUBStCscart^ersonJiyeaO*"* and request ("start^er»on_id")-"" then 

If RequestC*5tart_per»onL.ln«nie'*)»'"' AND requcst("»tart_per»on_id")-"" THEN 
x> 

Enter the last name, and then add one or more of the following fields - first 
name, middle nane. birth year - as extra criteria to describe the person where 

you would like to eeart tho p«d1gr*« search, cl— (Note: Only tii« last none is used for testing.!)— > 
<eRX)r, if you already have the person's cenealogy Registry 
ID, please use it to go direct and save time. 
-<ftfi>s«arch may b« 

litiited to names In a recent time range, such as those bam In this century. The 

starting/focus Person :<br> 

NamexBI^ 

Last 

<inpi;t NAMEs'start-pcrsofulnawe" SI2E»14 > First 
<IHPLrT KAME-"start_persorufrianie" SIZE^W > Middle 
<inpur NAMEB*'start.j)ersorunnaRie" SX2E314 ><p> 
Birth year 

<lNPur NAWE=-start^er«on-by«ar" stZM ><p> 

Person's Registry id 

<I«PV/r N>Mea"Start_person_id" SI2E»a4 > 

<P> 

<IHPVT TVPE-*'$ub«ii1t" value-"start Search" idMsubwitl namoBsubnii cl> 
<X 

*Din strSQLTemp, tablcLJiaine, ownerjd 

* create temporary table for cookie processing 

Din cnsearch. rsSearch 
Gin iistart>|3er$on«id» x 
Dim strSQLp 

Dinfirstrec, lastrec, strx, line_ent 
Dim strsQLfields, maxjallowed 

max^allewedsJOO 

Set cnSearch ■ 5erver.Createobj«ct("AO0D8. Connection") 
cnSearch.Opcn "dbl** 

Sot rsSeareh - Servar.creataObJectCADODS. Record sat") 

'mstart^erson^d ■ HghtCstHngC8.''0"Mrrequ<stC"8tarc^erson_1d*},U) 
from the opening screen 
'Response. write nstarC-per$on_1d 
•"where personal nane >« Snstart^erson^id fi'"" 

'construct SQL for nujlciple seardi criteria 

if requestC"start-per»on.10o*'" then 

strSQLpa" SELECT persoa.1d. person_1nanw, persorufhame. 

"personjnname, "II. 

"birth_year, birtlvnonCh, birth«day, bi rth-country , *'ft_ 
"birth-state, M rtKjcounty. birtKjcity 
"from Hpersorct 

"where person_1d - "* ftrequestCstart^ersen.ld") *"* * 

- ORDER BV PERSOM.JJWME. perMn^fnaneT persoojwiine , blrth^ear- 

else 

strSQLfields-*'" 

if requestC*start_persor\_lname**)o''" then 

^^tJ«Q«-fie1dsastr$qLfieTds *" person^lname « "* 4reQuestCstart^erson_lname") «"' " 
if requestC"start-person-fhame")o"" then 

strSQLfields-strSQLfieTds &" and person_fT)ame > *" fcrequest("startjer«on_fTiaine") " 
end if 

if request('*ttart_par>oryinaine'')o'**' then 
»trSQLf1eld»»strS«lLf1eTds «" and personjnname « ftrequeatCstart-personjwwme") A"' " 



end If 

if request('*at«r^cr9on->year-)o'"' then 
ftrSQLfleldssstrSQLfieTds and birthjrear « 4rBque»tr»tartj)er»ojU>year-) 4"' " 
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C;\p«tgnt\M0du1«t\dbsrc23a. «ip 

strSQLps**SELECT penoTcId, person_1name, penorufruMtet "At. 
"pcrsorvjnruMM. 

"blrtk^c^r, tirt^uaonth, b1rth_d«y( bi rth_coiintryi It. 
"b1rth.»t«te, blrttuoounty, blPth_eity 
"from Mptnoiut "4. 

* ORDER BY PERSOfCLMME, pvrsorufnaim, pmrmonjnnme, b-f rth.ye&r" 
mi if ' end of SQL create logic 

"•where perftoiulrune » &requestC'*st«rt;_per»on_1nane'') & 4_ 

•"iKh«re per»on_lnarne =c* ftrequestC^tart-persorulnane") 4, 

end per»oi\_fnaine -> &request(**stert_persorufnim«'') t"*" *u 
'I ptrwonjtnmM a> &request(*'«tanLpersofumam«'*) tf"" <L 
and blrth^ear - lir^uestCttartjMrteit^year^) A*" 

'Relational (<, >, ^, >«) - FROM MSON t« OPERATOR, CCMPARTISON OPERATORS 



'reiponse .write raquastC'startLperaoa^lnafne"} 
'Response. write ttrSOLp 

If rsSeareh. state ■ adscateapen then rssearch. Close 
rsSearch.OfMn atrSQLp, cnSeareh, adopendynamS £ » adLoekOptlnlsrIc 

'rssearch.opan strsQip. cnsaarch 



'use Input screen like dbsr^iljO 
*do search 
%> 

<FOM METNOD-post ArTIONs"dbftrc240. atp'* Idsfoma naMftofhml> 
select a »tarting focui person from the follomrlng list by ehedcing a single 
box. 

<BR>Th« person's relatives be counted and the 
resulting counts wrlll be shovm to you on the noct screen . 
<BR>You will be asked to choose Mhich groups of relatives you 

vrlsh to see. 
<X 

•If rssearch.eof • skip 

do while not rsSearch.EOF and x < maxjal lowed '<^6 
•trX>rl9hc(*'0000"&x. O 

responso.wri te ('•<br><IHPUT type-checkbox n«(ne^k"ftstrX A" VALUE-l>"5 
r«S0On$«.wr1ta C<INPVT Cype=t«xt name*" « "grlOname" « strx & " va1ue=-i 
rasponsa.wHte r<lHPOT type»text n*ro«=" 4 "orld^fname" ft strX * " valu.-"j 
response .wHte C<1HPUT type-text n«n»e-'" A "grldjnnamo" 4 »trx it 
response .write r<lMPUT type-text nam^" « "arlOyear" A strx ft 
reiponsa.wHtft C<INPUT typestext name-" « "arid-Id- ft strX 
rsssarch .nevonext 

*1f x»l then flrstrecBrsscarch.boolBMrk 

loop 

■Response .Write X-1 

r«pon$«.wr1te ("<lNiyr type-hidden namesllne^nt value-" &x ft- s1ze-4>-} 
If X - inax.al1owed than •«««-^-' / 

^jei^nse .write -<hl>At Least "«x ft" Names were found meeting your cHteHaVhJ>" 
If x>0 then 

Response .write "<h3>*'ftx ft" Nin«(i) were found meeting your cri teria</h3>* 
end IT 
If x-0 then 

^^sjonse .write "<h3>Ho Nantes were found meeting your cri teri a</h3>'* 

' lastreo-rssearch .boolonark 

'two fubmit buttons that go forward or back 
X> 

< I — BR> <8R»-> 

'^/aSar "f^E-- submit- value-'SHOW RELATIVE COUNTS" Id«subm1t2 name-subm1t2> 

VrORM> 




<P>&nbBp. 
<pxa hre1 



;</p> 

tf»''iiienuhobl.aip''>R«tum to 



Hobbyist Main Kenu<^a></^ 
<a hrefcdbsrc238.asp>Ritum to Name Search screen. </a><p>ftnbsp:<^p> 



</KTML> 
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<ae9 tangu«g<sV8Scr1pt %> 
option Explicit %> 

<l— fincludc virtual ■"cemnon/adDvbs.tnc" 

<HTML> 
<HEA[)> 

<HETA RAME^'CeNERATOR" Content-'MlCTOSOft Vl$u*l Studio 6.0"> 

<TITLe>KOBBY VIEW PEDIGREE - Choose ReUtlonshlps to View<AXTU£> 
<h3>hobbv VXCW peoxcrEE - Choose Relationships to Vlew</H3> 

</NEAO> 

<B00y> 

<HR> 

<X 

* Respons« .write ''ar1(Lld01»"&requictC'gH d_1 dOl") 
'came from dbsrchjO.asp 

*TMs program lets a viewer choose and pay for naoes. 

'The first time tMs page U retrieved, and any time It 1» 
'submitted without being completely filled out, the fona 
Ms displayed, if It Is suboilttod and completely filled out, 
'the form is processed in the else clause. 

• Response .write "'XXX" 

' Response .wri te reomestC" line^cwt-) 

'Rasponse .write "m" 

'R«ipon$e .Write RE<JVESTC''CRI0_ID02*') 

If requestC'11ne..cnt")»l then 'if only one name comes In, take It without a checkbox being set. 

START«PERSOICIO-REQUEST<"GRI0_IO0001") ^ 

el se 

FOR X-X TO reguescC" 1 1 ne_cnt") ' 2 S 

STRX-RXCHr(''O00O"<d( ,4> 

IF REQUESTCCWCASTIOOvl THEN 

STMnLPER$0K.XD-REqUESTC"6RID_ID'*«STKX) 
EXIT FOR 
END IP 
NEXT 

end If 

'Response .Write start^persok-XD 

'If RequestC"start_persoft_l (! )■'"* then 

'^Ise 

'Dim strSQLTemp, table_nane, owner^id 

' create temporary table for cookie proc«ssing 

• tabl e_name-'*traco''tr1 ght(s tri ngC8 , "0 ")fcrequt « t("own« rj d") . S) 

• table_nan»-" trace***! ertCr«iu«»tC"»t*rt»pep»on_n d") , 8) 



Din cns««rch, rsS««r<h, r«s«archP, rsSearchM, rsSearchC, rsSesrchS 
Oln ras^rt.47«rfton_id, k, STRX. START.PERSOIiJIO 
01m strSQto, strscK-lF, strsqUM, strsqUc. strsQLls 
Dim itrSQLlP, «trSQLMar StrSQLF. StrSQm 

ojm ripay, rsLlnlcF. rjclnkM, rsLlnkc, rsulnt«. rsUnkP, rsLlnkttar 

Dim I1ne_cnt, father.ld, nother^ld 

Dim chlldLcnt, spoute_cnt. parentjcnt, marr1age.cnt 

Dim XXX, KM 

'XXXa77 
'jUtoll 

Set cnscarch « Server. CreateObjectCADOOB. Connection") 
cnSearch.Open "dbl" 

Sat r*P»y > Sarver.CreateObjectC'ADODB. Recordset"} 

Set rssearch = Server.createobJcctC"ADOOB. Recordset") 
Set raSearchF - Server. CreateObjectrAOODB. Recordset") 
'Set rsSearchM « Server. createobjectC' ADOOB.Recordset') 
'Set rsLinkP m Server.CreateOblectrADODB. Record set**) 
'Set rsLlnkM » Servor.CreateobjectC'ADODB. Recordset") 
set rsLlnkP « Scrver.CreateOb1ect("ADODB.Recordset"> 
Set rsLlnkc « Sarvcr.Cre&teObiect<''AOOOB.Recordset") 
Sot rsLlnks « Server.CreateQbjeetrADODB. Recordset") 
Set rsLlnkNir « serve r.createobJcctCAOQDB. Recordset") 

•ni$cartj>ersoru1d « r1ght(itr1ngfa,"0'')4requestr»tart.persoru1d-).12) 
Ristart^erson_Td « scart_personL.ld — y, / 

Sessi on C* starti^a rson_10 ■ftCartL4>erkon.1 d 
'from the opening screen 

'Response.wri te nstapt^^ierson^f d 

•xal • temporary debug 
•Do *«hilc x<i ^2^i 

St rSQipa- SELECT person^ld, persoiulnwie, persofufnane. "ft. 
"pertonjmane. person-sex. 4_ 

"blrth-year, birthjnonth, b1rth_day. bIrtKjcoimtry, "a 
"b1rth_state. bIrtFLcounty, Mrth^city "ft. 
rron Npersoru.t 4_ 

"where persoiuld • •" tastartLper«on_ld t"'" 

'strSQLlPa "Select ♦ from i.1nlts_t where personl b " 
4'"" tostart_per»onL.1d ft"'" _ ~ 

• & and Relate LIKE XFX'" 

*itr$QLl»»» "Select * from Links^t where personl . " 
' if"'" &nstart_person_id & ~ 

• t " and R«1ata LIKE *Sa«'" 

'8trS0LlP*» "Select • from Llnka^t «4iere personl « " 

• ft*"" te8tart^rsen_1d ft'"" . 

• « " en^ Relate UKE 'PX'- 

'strSQLlP- "select • froei Llnka_t where personl « " 

• ft"'* fttJBtartj)er»oiu1d ft""' _ 
' ft ''and Relate UKE^PX'" 

'ft union ' „ 
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Ci\p*tntVModu1 «»\dbt rc240 .aip 



•A **Se1cet 



& - «n<* (Relate LIKE •%F%'or Relate LIKE 
StrSQLlP-'^SELECT persoruld, p«rsorx.1namt, pertorufftMie, 
"Mrsonjvnune, perton-s«x, "tu 

'*b-frth_year» personl, reUte, '0000000000' as ownftr 
"fnxn HLlnks_t, Hper»orL.t "dL 



"Mhcra p«r«on2««ercefu1d 
*tnd personla •* ImstartLPersoiuld A_ 

• and relate Like 'W "Hl 
"oMon " lu. 

• SELECT persorL.Hd, pcrsofulrMune, person_fnaflMi, 
'person_nname, persorusax, "^c 
•b<rth_y«ar, parkonl, relate, oinicr "4_ 
■fpom HLlnkt.t2, Hp«rsofv.t 

•*»tiere persoR2spersoru.1d "4_ 

"and pcrsonl* ^itart_p«rson_td &"***&_ 

" and ralata Like 'V%' " 

'acrSQLlos **se1ect ♦ from Linlca^t where personl - 

• A**'" ^tarta>er»on_1d & _ 

• 4 " and fieUte tlKt 'dt'" 

' ■* " and Relate uke 'icot*** 

strSOLlCB^SELCCT person_id, person.! name, pirson^fname, "<i 
"person-mnane, p«rsor\.sex, tL 

"birth.year, personl, relate. 'OOOOOOOOOO' as owner "JL 

"from HL>nks_t, Hperson_t "Sl. 

"where per$on2eperson.ld 

"and parsonl* CRistaPt^eraon.1d 

" and relate Like 'OC " <u 

"union " 4_ 

"SELECT p«rson.id, personal name, pcrsoiv.fname, "iu 
" person jmame, persorusex, "Sl. 
"birth.year. personl, ralari, owner "<u 
"fpom HLinkswt2, Hpersoa_t 



"where peraon2Boerson.1d "tu 
"and oarsonltt Smstart-person.'td 
antf^ relate Like '<%' " 



' strSQUls- -Salect • from Llnks.t where personl = 
' 4"*- tost«rt.per$on_1d &**•"_ 
• A " and Re1at« UKE^SSS'" 

"« " and (Relate uike 'SMK' or Relate LIKE *%M'y 
strsqLlSs'SELecT person_id, per sen.1 name, persorufhane. "Sl. 
"pcraon.jnnaine, person_seXi "A. 

*'birth.y«4Lr, personl, relate, 'OOOOOOOOOO* as ««*ner 

"From HLlnks^t, Hper»on_t 

"where person2-per6oi\_1d "iu 

"and personlB ' &ii$tart_person_<d A"'" 4_ 

- and relate Like 'SX' *• A. 

"union " «i_ 

"SELECT persoa_id, persoa.1naire» persoiufname, 

"personjananef person.9«x, "A. 

"b1rtli_year. personl, relate, owner "<u 

"froai HLlnkajta, Hparson^t "A. 

"where person2sperson_id 

"and peraofll^ dmstart^rsorutd &"*" A. 

" and rwlate Like 

strSQLMar^ "Select * from NMarr1aga.t whan marrJ)us_no ■ " 

«siitart.^erson.id ^ 
A " or inarr_iiirrrOio • " _ 
A'"" <mctart_parson.i d A"'" 
'Response .write strati p 'Msgbox(strSQLf) 

'sub testl(xx> 

'XXXsXX 

'End Sub 

•testl 123 
*testl 4S6 
'Rjesponse. write xxx 

if rsScareh. state m adStataOpen than raSaarch. Close 

'rssaarch.opcn strSQLp, cnSearch ', adopendynanric, adLockOptfnIstIc 

rsSearch.Open strsqLO, cnsearch 
'rsLlnkF.Opcn strSQLiF. cnsearch 
'rsLlnkM.Open strSQLlH, cnsearch 
rsLlnkP.open strSQLlP, cnScareh 
rsLjnkC.Open strSOLlC, cnsearch 
rsLlnks.open atrsqLls, enSearch 

if rsLinkc.BOP and raLinkc.EOF then 

children tM> 

else 

do until raLinkc.EOF 
Chi ld-.cnt«ch11 dLcnc4-l 
rsLlnkC-MoveNext 

rsLlnkC .close 

if rsLlnkS.BOP and rsLinkS.eOF then 
use_cnt)^ 



do until rsLlnks.EOF 
spouae^nt-spou8e_cnt+l 
rsLlnks.HoveNcxt 
loop 
end if 

rsLinkS. close 

if rsLinkP.SOF and rsLlnkP.eoP then 

parant_cnttoO 

else 

do until raLlnkP.eoF 
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C!\p*tt nt\iytodu1 et\dbsrc240.asf> 



par«nt-cntapartnt_cnt4l 
rsLlnkP.MovcNext: 
loop 
endif 

r»L1nkP.c1o»« 

rsLlntcHar.open strSQLMtr. cnse&rch 

if rsLlnkMar.BOP «nd rsLlnkMar.EOP than 

fflttrrlagccnt^ 

do until rsUnkNar.EOP 
marri ageL.cntaurri a0e_cnt<»>l 
rsLinkHar.MoveNext 
loop 
end If 

rsLinkuar.closc 



mstart-parsoruid • rsLinkF("person2") 
•fathap.id » psL1nkFC"pep$on2") 

* RtspoHM ,Vri tc "f ather.1 d"&f athe r_1 d 

•StrSQLF="SELECT persofuid. person_lname. person_fnane, "i 

•"persorumname. per$on_sex, &_ 

•"birth_year. birth-month, birth-day. b1Pth_country, 

•"birth_state, bi rth_county, bipth.city 

•"from person_t "4t_ 

"'inhere persoruid » "' &father_id A"'" 

'rsSearchf .open strSQLF, cnSearch 

m$tart-persori_id = rsLinkMCp^rsonZ") 
'mother.id = rsLinkM("person2"3 

'Response. Write nistart_persoru1d 



'StrSQUl3"SELECr persoa-id, personal name, person.fnaroe, 
*'*person_|Vfwnie. person_sex, A_ 

•"b1rth_y«ar, Dlrth_inonth, b1rth_day, birth.country, "A 
•••birth_state, biroLcounty, Mrth_city "4. 
•"from persoiut 

***wih«r« p«rsor\.id « *** Imothar.id &*"* 

'rs$«archM.op«n strSQLM, cnSaarch 

*BEtJOH WAS GOING TO 06SRCH21.ASP, than rcdirOZ.asp 

%> 

<FORM KETHOO-POST ACTION-' dbsrca^l.asp** id«f6nB2 n«n«sfonn2> 

Starting Person<p> 
Name; Last 

<XKPUr Trp^"Texr" KAME«"starOnama** SZZE»1S v«lue-**^r«S«arch(*'p«rson.lr»«m«")3&'**v 

Fi rat 

<INPLrr TYPE--TEXT'' NAME-" «tart_f name" SIZE»15 valuea"<at=rsS€arch("persori_fnaine">«>"> 

<INPUT mrpEo-TEXT- NAHE<="startjnname* SIZE»L5 valije»:-<atrsSearchC'persorT_>nnaffl«'')5fc-"> 
<8R> 

Birth J rear 

<IKWT TVPE«"TE)CT" NAME^'ftart-.birth.ytaK' SIZSM value="'dferssearchC"b1rth_year-)K>'> 
Regi stry# 

<I NPUT TYPEwnrE XT- NAMe«"start_porfion_1d" SIZE»14 valuer" afc:rtsearchC"person_1d")3fc'"> 

<BR>aased on your choices here, on the next screen you will ce« lists of names of relative* 
for each category chosen (and be charged a small fee for each name), 

<BR>You may select any or all of those names to see more detailed data <for more small fees). 

SIS^aSLSSjRi**" ^''^ ""'^ * «tarting/focu8 person, and use this method to move through the pedigree. 

Parents of starting Person <BR> 

Data contains <X=par«nt_cnt3C> parent recordCs).<<br> 

<INPUT TYPE-^checkbox" HAME«*parent" VALUEp'V checked>show Parent Nanie<s) 



Spouse of starting Person <8R> 

Data contains <Xospous^nt9^ spouse recordCs>.-dir> 

<lHP yT TYPf»"che ckbox" namc^" spouse" VAtUfe^Y* checked>show Spouse NaiM(a> 

Marriages of starting person '<br> 

oata contains <<fr«narriage.cnt3& marriage record(s).<br> 

<INPUT TypE--checkbox" NAME-"raarriage" VALUEs-y^ chack«d>Show MarHage Ev«nt(s> 



cmidren or starcino person <br^ 

Data contains <dt^hild.cnt%> child recordCs) .<br> 

<IMPUT TYPEo-checkbox" names' child" vauiEs'V checked>Shoii Child NameCs)<br» 
<1IIPUT TYPCa" submit" valuer" SEE NAMES FOR GROUPS SELECTED" 1d>subiiiit2 nafaessubarttz> 

</FOW^ 
<P>Anbsp;</P> 

<p><a hrefs"fflenuhobl.asp">Retum to Hobbyist Main Menu </vx/p> 



</800Y> 
</HTMU 
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Ct\p>f nt\Hodu1««\<P>»rc241.«sp 



^ LanguagaaVBScript %> 
adoption Explicit %> 

•<l— #1nc1ud« virtual -"eoBiaon/ado^^s.'Inc'' •-> 

<KTNL> 

<MnA liMMes*'<iENEIUTOR" Content-"Micro»cft Visual Studio 6.0"> 

<TITLE>H0BBY PGDE6REE - Select Specific Nanta for ftort Data <Arn.E>> 
<h3>ho88Y pcoigre£ - Select Specific Natnes for mrt Data ^3> 

</HLAD> 

<BOtrY> 

<HR> 

* Response .write "UKlT/USE0"&sess1onC''buyer_naffle_') Inil t')4i"/"&sess1onC"buyer.name».used") 
If s«ss1onC'buy«r^aiMunn1t*'} - i«ss1onC'buyer_nanes_iMed 3< 1 tften 



ses9lon(**buyer_1oggedLjon*'>«*'buytr looged off^ 
SESSlON("buyer_1ogjiie$sage'')s**Reached Name Limit for one day" 
%"> 

<l— <FOW< MCTMOObPOST ACTlO«a"logbyOL.a3p" idafppmS fiaine-form3> 

<1UWT TYPEi'TEXT" NAME*" LOG Ji4£SSAGE'' SI2E»40 va1u«s'-Reached Nsiae Limit for one Clay"> 

<IUPUT TYPE?" submit" value-" EXIT for today" Id^submlt) n«me»subn1t3> 

ELSE %"> 

<FORM M£TH00i.P0ST ACnON-"dbtrc245 .asp" Id-fonril name«fenia> 

Starting Focus Parson^> 
Nana: Last 

<INPin' TYPEa' TEXT" NAMEa"s Cartel name" iJZtMXi value»"^requestC''»tart.lname")»>"> 
First 

<iNi>UT typemText" NAME«"stafiL.fha«e" SIZE-IS valMe--^requestC~$tart.fname")3fo."> 

Mi ddle 

<INPUT TYPEo-TExr MAME«"scartJiina»e" sl2Efl5 va1ue»"<3(breqoe St ("ftartuimana" )%>••> 

<8R> 

Birth: rear 

<INPVT rvPE-'TEXT" NA«Es:**scart_i)i rch.year" sizez34 va1uea"<%a>reque>t("»t«rt-bi rth^tarnib-V 
Rcglxtryf 

<INPVT TYPfo-'TEXT" NAMe="»c*rt^er5orui d" StZE-14 va1ue«"<5IUrequest("start_p«rton_1d"}!&>"> 

<INPtiT TVPE-' hiddsn" NANE=" spouse" SIZEsl value="<afcrequ«stC" spouse ")5S>"> 
<INPUT TYPEs-'hidden" IMWD»"parent" SIZE-1 value-" d^reque5t("parent'*5»'"> 
<IHPVT TYPE-"hidden" MAMEB'child* SIZ£=1 valuea"-<*irequestCch11d")^"> 
<TNPOT TYPE-'-hldden" NANE^"lURl«A6e" SI2E-1 valua--^«-requiatC'Wri8ga")Sfr-> 



Select Person(s) below forj<br> 

<IMPUT type*" radio" namessel_rttde valuea"OATA" checked> 
I want to Display Data (choose any number of names) <br> 
<iriPVT typeo" radio" nuntt-se1_inode value-" person" > 
1 want to Chanoe "Focus Person" (choose only one nanie)<P> 

<l*-lf Display Data is chosen, <BR> 

<ZNPUT type-^radio^^naiMsMl-NMC valuer" ALL" checked> 

I went to select All N«bcs<BR> 

<XNPUT type-'radlo** namaasel-name valuea'SOME" > 

I want to select only some of the nflnes<P> — > 

SS22.*.5 l^lf*^2 *S4^2*« <*^»P'"yi' i'—fWOre-l^ B«ta testing, cunulatlve pHcing used, net 
<INPUT typea"radio" names re vjeethod valuea'ClW checked>0uniu1at1ve Selection 
<INP(ir type* radio" nun«*r«vjnethod value-''IH0">Ind1vidual selection 
<BK>Qmulat1ve selections 

<INPin' typea" radio" naiQeBrev_all va'lue«2>8as1e Data 

<lMPyT type>" radio" nancBrev.ell t/alue«3>Cites 

<INPUT type=*' radio" naine»rcv_all value»4>-Text 

<1NPI/T type-" radio" nmtsrav.all va1uesS>Photo 

<INPUT types" radio" names re v^all value=6 checked>cite image 

<BR>Individual Selections 

<ZNPUT type-"checkbox'' naiiw«sel02 value»"Y" checked>Basic Data 
•cINPUT type-"checkbox" naaieesclOS valgeB-Y" chcckedxHtes 
^WVT typea^chcckbox" naaiesseKM valoe»"Y" checked>Text 
•ONPtJT type>"checkbox" naine»selas valuft-"V" checketf>Photo 
•dNPUT typa-"checkbox" namessdoe value»"Y" checked>Clte ieia0e<br> 

01m cnScarelii rssearch ' , rssearchF. rsSearchM 
Din mttart-personjd 

Dim atrSQLC, strSQLX. strSQLS, strSQLP *, strSQLC 

Dim X, strX, buyer.id 

buyer_id»sess1onCbuyerJ d'5 

'Dim rsPay» rsLinkF, rsLinld4, rsF^es 

•dim PEt_RAT6J, f«e.rate^ 

•DIM father^id. mother.td 

Dim nain«_cnt 

'nane^ntsO 

Set enScareh - Serve r.CreateObiectCAOODB.Cdrviaction'*) 
cns«arch.Qpeii "dbl" 

Set rsSearch • S«rv«rXr«ateObiect^'*AOOOB. Recordset") 
'Set rsBuyer « Serve r.Creaceob}ectC"AOODB. Recordset"; 
mstart^erson_i(±=request(''startL_perioarid") 
'CheckandCharge requefit(''start-per6on_ld"l , "0000000001", i 
'ChackandCharge requcst("start_person.1d"), buyer.ld, "lOOOOOOOOO" 

Str$QUe*"SEL£a person»id, person_lnsme. person-fname, "4. 
"persorxjsname, person^sex, ^^-^ 



•elective pric1ng.»><eit> 



"birth_year, pcrsonl, relate * 
"from HL1nks_t, Hpersorut "«t_ 
"where pcrson2>person_1d 
"and personlw 8mstanLpersoa.1d ft"*** 

* Focus Person 
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^rxiiuvr typcschcckbox naraofocus VALUEol>currenc Focus Person • show data details 

<tt>---ust F1 rsc Mld<fl e Bl nth— -Registry Cink Owner 

^R>— -Nime*— — Name— ' utn» vtar— — Nunber— — — Hunber</tt> 



'Response. write "nscart-''&n5tart_person_1d 
'Requast.wHt* "«pouxfla"&requestC spouse") 
na!ne.cnt*0 

If reguestCspouse**) then 
*ses$1cnC'spous«useleer")»''v" 

*strSQUSsttrSQU( & ** and relate Like 'S%' " ' should be S. was "SMK* 
strsQLS«"SEi.ECT p«rson_1d. persorul name, person_fnane, 
'*per«onjnnanie* persof\.s«x, "<c 

"blrth.year, personl, relate. &lef c(Ristart_persof\_1d,10> as owner 
**fre«i HLlnks_r, Kperson_t "6. 
"miher* per»on2^er9oa.1d 
"and personls ' toi$tartL4)cr»on_id 4"'" 
" and ralate tike 'sX* " &_ 
"union " it^ 

"SELECT persoruld, personal name, persan.f^an>e, "^c. 
"pttrsoajmanc , persorusex, *'Ci_ 
"blrtlLyfar. personl, relate, owner "4. 
"from HLfnfcswtZ. Hp«rson_t 
"vfhere person2>parson.1d 
"and peraonls 4instarx.persofL.1d ft""* Si_ 
" and reUce Like *SX' " 

'response .write strsqis 
rsSearch.Open strSQLS, cnSearch 
X> 

<BR>>SpOUses 
<% 

'parent, spouse, marriage, child 
x-1 

do whtia not riSeirch.EOF and x<99 
strx«r1 ghc("0000r'4ix . 3> 

response.wri te C'<*r><IMPUT type=ch«ckbox naintt=schk"&scrx 4" vai.lie»1>") 

re spon»«, write r<lNPUT typestext najn«=" & "Slname" & strX * " value»"&rsSearchrp»rsofu1name")*" s1ze=10>*'; 
response.wri te f<IMPUT type-text n«m«=" & "Sfname" & »trX A " value-"ArsSearchrper8onL.fn«ne"5r" 



s1zc=10>*'J 
i")4" size^>"> 
!"3ft''ftnbsp;"&" si 



rvspanse.write C'<LH?\n type=text na»e=" & "Snmame" & strX & - value-"*r*Searchrper5onjnn«Be"3»"4nb»p:"4" sizealO>") 
response. write ("<ENPin' typ««taxt name*" A "sbyear" & stiOC ft " va1uea''<rfSSeBrchC'b1rttLyear")ft" s1zesS>":> 
response .write r<IMPUT type-tsxt name-" * "sld" ft strx ft " value--Ar»searehC'p«r«on_<d'OA'' aiz««l4>"5 
response .write C <1NWT typentext name-" & "Sowner" ft strx ft * valueWftrssearehC'owner")*" sUe-10>") 

'Chcckanddiarge rsSearchC'person.id") . buyer.id, "1000000000" ' e 
rsSearch jeovenext 

•If xal th«n firatree-rssearch.boolenark 

x«x-i-l 
loop 

rssearch.dosc 
name_cnt=nart>e_cnt+x -1 
end If 

ccssi on(" speuse_a> t'')«nBme.ent 

nane^cnteC 

If raquestC PARENT**) a**y" then 



StrSQLP«»"SEL£cr personal d, person.1nane, persorufnaroot "ft. 
"peraorxjnnamet pereoiueex, 4u 

"olrtluyear. peraonl, relate, '** A1eftOistart.jierson.1d,lO: 
"froB lu.1nks_t. Hperson-t "ft_ 
"wh«r« »erfion24arson-1a "11. 



10) ft"' as owner "ft_ 



Hperson-t "ft_ 

I per«on2>«arcoiu1a "11. 
"and personls '* SfflstartLperson_1d 4"*" t. 
- antf^ relate Like 'PJC* '^ft. 
"union * ft_ 

"SELECT persorv_1d, person.1naiiiet person_fnaine, "ft_ 

"persoojrtname, person_sex, "<L 

"b1rth.year, personl, relate, owner "ft. 

•from HL1nks«t2, Kpersorut "4- 

'*wner« p«rfion2tcper£on.1d^"ft:. 

"and personl" tostart^^ersoruld ft"'" ft. 

" and relate Like 'f%' ^ 

*StrSQLP>strSQUC ft " and ralate Lik« 'PK'" 

"StrSQLPsatrSQLX ft " and Crelate Like 'XFSt* or relate like *30«*)" 

rsSearch.Open strSQLP, cnSearch 
TO 

<Slt>Parentt 
<X 



'parent, spouM, marHtge, child 
x»l 

do while not r»S«a.rch.COF and x<S9 

strx-n ght {;;oooo*4x , Z) 




size^0>-) 



'CheckandCharge rssearch("persofu.1d"), buyer.id, 
rsSearch .movenext 

'if x*sl then flrstrecsrssearch. bookmark 

X<3X-fI 

loop 

rsSearch. close 
nam«_cnt<«i wML.cn e<«>x-l 
e nd Tf 

se ssl on("p aren t_ent*' >«nanie.c nt 
n<flf)e.cntMO 

If requeatC" child") -•'V then 
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•StrSQLCeitPSQLX A " and reUte Like 'tX' 

'StrSQlOistrSQU( & " and reUt9 Uke 'ICCX' " '0000000000' at own«r 

StrSQLO"&eLECr percoruld, porMfulnwiB, perton^rnane, 

"ptr»Ofuman«, p«rioru&«x. ^, ^ , u 

"Plrth-vear, penonl. r«l«t«, lilcftCmft«rt^«rsen.1d,10) a« o^mer "<L 

"from HLlnks^t. Hptrsorx-t "4u. 

"wher* pcrson2«o«r«oru1a 

"and p«r»onlB <ns tart^rson^id 4""* ^ 

' araJ rtlate Like 'CB' " 4_ 

"union " 4t_ 

"SELECT p8rson_1d, persoru'lnanie, peraonjfhamet "A. 

"parson.jmaM, person_sex, "t. 

"Dlrth_y«ar, personl^ relate, ownir 

"from HHnks_t2, Hpersotut 

"whara parson2«parkorui d 

"*nd personla <ni9tart_persoOd &_ 

- aiMf raUte Like 'OS' " 

rssearch.Op«n strSQLC. cnSearch 

<ftR>€h11dren 
<X 

'parant, tpou»a, aiarrlage, cM1d 
xsl 

do whila not rtSaarch.EOF and x<99 
St rx«ri ghtC'0000"«x , 2) 

response. nrite ^'•<br>-aMPUT typ^^^hackbox n*na=Cchk"&«trX A" valU£=1>") 

response.wri tft f"<inPUT type^text njne=" & "Clinwe" & strX A " va1uea"&r»Search("pepsoru1na<ne")*" »ize-10>*) 
response .wri te f-<lKPUT type»t«xt n*n€='* 6 "Cfnatne" & strX & va1ue='«prsSearchr'persoi>_fftainB"5&" s1z^lO>"5 
response.wri te r<lHf\fT type-text nama-" & "Onnama" * strX A " value3''&rsSearch(''person_innane'p&"<nbsp:"&" s1ze*10>") 
response .write r*<INPUT type=text nai>e=r" & "Cbyear" & strX A " values"&rsSearch<"b1rtluyear">A a1r«-S>") 
response .write r<lHWT typ*i?t«xt naraat=" & "cid" A strX A " value«"ArsSearchr'persoru1d"3A' slze-l^") 
response.wri te (**<I«PUT tvpestext name-" A "Cowmer" A strX A " va'lue>"AriSearch("o«m«p")A" s1ze-10>") 
'Cheekandcharge rsSearchC persofuid"), buyer.id, "IDOOOOOOOO" 
rsSea rdi .novenexc 

'If M«I Chen ftrftcrecBrssearch.bQohnaric 

i(mX-i-l 

loop 

rsSearch. close 
end if 

sessionCcMI d_cnt">>nani«.cnt 
1^ 

^I^^''^»»^OE^^^?SmH0N/CHARCE02.INC" ~> 



<BR> 

<rNPUT TYPE-" submit" va1ue-*'SH0tf DETAILS FOR KAME5 SELECTED" 1d=submit2 name3subnit2> 

Vform> 
-<l»>Anb5p;</P> 

■<p>-<a href ■"(nanuhobl. asp" turn to Hobbyist Main Uenu </a></p> 

dt'EMO IF 'This Is to skip the whole thing 1f the name quota Is reached ]& 

</BOOY^ 
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^ LanouagefVBserlpt 

aioptlen sxplicit IS ^ . 

<l" #1nclMd« rtrtuAU'*eMnnon/idttvbt.inc'* — > 



•dmiL> 

<HEAOi> 

^ETA NMa-'GeNERArOR" Content>»"Mlcr«80ft WniAl studio 6.0% 
<rXTLE>HQB8Y PEOXGREE - SKow tndfvidual Detaf1s<An'LE> 

<<m3>440BBY peoxcree > shcM Individual Detslls </H9> 

</HEAI» 

<HR> 

<l --> 

^ 'b«g1n person-switch routine 
Dim X, «trx, chlcperson_1d, 11nt.cnt 
Dim cnSearch 

Dim aNMwWasChecked * . CHCCKANDCHARGE 
Dim starts* rsoruid 
aNamaWasChcckeda^N" 

«t«rtj>erton_i darequest("starrj>«rson.1d**3 
•marr_hu$_no - startL^arsoruld 
•marr_w1f8_no ■ naireuid 

if reque5tr8Cljnodc")s"PeRSON" then 'data is default 
*11ntt_ent^ 

POR XbI TD scssionCspouse.cnt") '25 

snoteRIGKTf "0O00"4X , 25 

If REQU£STC"5CHK"««TI«)»1 THEN 

CHK.PERSO*(_I[)=llEQUESTC*SI0"ftSTR)O 

aNam«WasCh«ck eds'V' 

X> 

<FORM METHO^POST ACnON»"dbsrc240.a$p" idsfom2 natne=fonii2> 
The screens *rin continu* with the new focu» name chosan, 
<br><INPin' type=ch«ckbox naineschkOOOl value«1 chccked> 
Real scry# 

<INPUT 7YPE«"TOCr- NAME«"arid_idOOOa" SIZE^14 value»"<a^chk^«rson_idK>"> 

<INPUT typ€b"text" NAME-^lineL-cnf Size=2 va1uesl> 

<IHPVT TYPEa'subnit" valiM^'COtfTZMUE" 1d-submit2 namaxsubml t2> 

</fCM> 
<L 

EMO IP 
MEXT 

FOR X- 1 TO sesai on C" parent.cn t") '2S 

STRX=RrGHT<"OO00"&X , 2) 

IF REQUESTC*PCHK''&STRX)'=1 THEM 

CHKJ»ERSOItJD-REQMEST("PIO"«STR30 

aNam«Wa$checked='V 

%> 

<FOItM MCTHOO-POST ACTION-'*dbsrc240.%sp" idsf^rni2 n«in«3fonn2> 
The screen* will continue with the new focua name chosen. 
<br><lNPUT t/paschackbox nameschlcOOOl VAtUE-1 €hecked> 
Reg1stry# 

<lfipin' TYPC^i'TExr NAMEp'grld.idDOOl" S»E>14 valua«'*^itchkj>erian_1dlb'''> 

<lHPUr TYPC-"Ttxr NAMEB'Tlnaucnt" siZEsZ va1ueB]> 

<XNPin- TrPE»"stibn1t'' value«"CONTXNUE" 1d»subnrit2 nam«^ubn1t2> 

</PORM> 

END IF 
NEXT 

FOR x-1 TO sesslonCchlld^cnt") '2$ 

STRX-RlGtn (" 0000"«)C , 2) 
'Response.wri te STRX 
• chkname-'*chk-48Cn< 

IF REQUeSTCCCHK-ASTRJOal THEN 

CHi;^ERS0HJD=REQU£ST<"CI0"45TRX) 

aNametfasCh€ckcd--Y" 

x> 

<FORN MCTMOOsPOST AcnON-''db3rc240.asp" 1d-fonn2 naffl6*fonn2> 
The screens wfll continue with the neM -focus name chostn. 
<brxlNPaT typeacheckbox nmo-chkOOOL VALUE»1 check«d> 
Req1 stryf 

<INPUT TYPC-''TEXT'* NAli&t*'gr14.1d000r slZE-14 values" ^fcicht^rsoru1d%^"> 

<XNPVT TVPt-"TEXT- NAME»'*i1nejent'* SIZE^ value«l> 

<INPVT TYPEs'subnIC" va1ue«''C0HrxiiuE'' 1d>aubm1t2 name-iubmi t2> 

</FaR«> 
<x 

END IF 
MEXT 

'if ic gets here, there was no box checked, so ra-usa start person Id. 

If »NameWasChecked-"N" then 

%> 

<FORH HETHOO-POST ACriO«="dbsrc240.«sp'* Sd=fonn2 n«nc-fonn2> 

You made no s«l action of a new focus name, so screens wrtll continue with original name. 
cbrxINPUr type-checkbox nama-chkOOOl VAUUfc-l chackedv 
RcQl stryir 

<INPUT TVPE^^TOO"* NAMEs'-flrl d_1d0001- s]ZE*14 va1ue-"<aB-request(''startLj>ersoiu1d*)1i[^"> 

<INPifT TYPE-"TEXT" NAME-* Tina^nt" SI2E«2 value«l> 

<INPUT TrPe«"subai1t*' valuc-'CONTtNUE" id«subni1t2 nanwsufani t2> 



ELSE 'end of person switch sectiorl9l& 



<FOftM NETHOOcPOST ACTIOtt-"dbsrc24L.asp'' Idafomil nane=fbnnl> 

Starting Peraon<br> 
ttanie: Ust 

^HWX TYPC*TEXr* »t*rt,l name" SIZEolS valut«"^requestrstart.llwm8")X>-> 



05/05/2004, EAST Version: 1.4.1 



us 2002/0032687 Al Mar. 14, 2002 

125 



Ct\patent\>tedu1c«\dbsrc24S .asp 



ShpSt TYPEa-rexr* IMNE-'*ftCBrC-ftMmc" SXZe-lS v»lu«»-<as.requestC8tart-fm«e*')»>"> 

<iNPvr TYPEs'n'EXT" NAME**itart-innaiM* SZ2S*1S valuM*^rcqiiesi:C"<t»rtjwiMe'')5b''> 
<BR> 

Rlrthi V«ar 

■cINPin" TYPC»"TtXT'' NAME«''ttartJb1rtK.yftar'* SIZE«4 va1ijfs"^r€qutit("»t*rtJbirth-yMr")»"> 
R«a1scry# 

<XNMrr TTPCa'TExr* NAMEB'ftart.persoruld" SIZEb14 va1ue»**^requtstCstaPC^*r*ofu1d"}X>''> 

<XNIVr TYpe«"Mdden" HAH£«"»poose" STTF-l value-" AirBque»t(-«p8US«")%>*'> 
<1HWT TYPC»"Mdden" rWM&s"par«nt" sI2E=1 v«lue="<3fcirequestCWent"S38>"> 
<INPUT TYpe^"Mdd«fi" HAME«"chnd" SlZEal valu»="<3lar«queit(*cM ld")5ii"> 
<IMPUT TYPEo"h<dden' NAME-"ln&rr1age" SIZE-1 value-"^rtquatt("tnirriag«")X>"> 



'create fee_request 
Dim fee_reqoe»t, rav_a11 

reveal 1 ap«qwa$ t<" rev.al V ) 
fe«_rcquest>-'*0000000000*' 
If pequest("revjBathod*)«*'ajM'* Then 
for x^2 to r«v_al1 

f ee.reque » tol e f t (Fe t^rtq uc st , x-l)*" 1"4H ght (f e«_raquasT , 10-x) 
next 
else 

1f reque$trs«102'*)»'V then 

f ee_requeat>lef tCf ee^rcquest , l)4r"l'"«r! ghtCf«e_requ«st , 10-2) 
end if 

If requeltC'•^«103")•"Y" then 

fee_request>il«ftCfee^ request. 2)«('*l"&right(fae_requ«jt, 10-5) 
end if 

If nique«tC*se104")»'V then 

fea.r«qu<s«Bl af t<fte.requesc, J)*"!"*!-! ghtCf ee^requcst, 10-4) 
end ^f 

if reque8tC'»clO$")-*V then 

feeL_requeste1 ertCfee.request,4)«~L'dri ghtCf •^.request, 10-S> 
•od if 

If reque»t("s«106")«'V' then 

f ee_request»leftCfee_requast. SJ^'I'^nghtCfecrequest, 10-6) 
end -if 
end if 

*Aasponsa.lA-it» ''feej'equestk"&fett_r«quest 



Set cns«arch » Server. CreateObject("ADOOB.Connact1on") 

cnSearch.Open "dbl" 

If rBquesC(*'fDCu»">Bl then 

CMLfCRSOICXCMteQUeSTr' s ta rt^rson.-! ) 
OlsplayNaite CHICPERSONJtO. 



fOR X»l TO session ("spoute.cnt'*) 

STW^RIGHTC "0000 "AX . 2) 

'Response. write 5TRX 

• chkname-" chk**&s crx 

IF REqU£Sr("SCHK"4STWC)-l THEM 

CMICP6RS0«_IlfcREQUESTrSI0"&STfW0 
OlsplayHwM CKK.PCRSOr(_JO , "S" 
'Respan»e.WH tt "chlc'totrx 

'Response .Write Reque5T(''chi(*'«stnc) 



'Response Mri te reqiMst('*or{d_1d"ftstrx) 
'Response .write start_peji$chjed 

EXIT FDR 



FOR 3fal TO aess1on<"PAREinjcnt'*) 

STRXsRICHTC'*00OO''<(X. 2) 
'Responie. Write STRX 

• chknainea'*chk''«»trx 

IF RGQUESTCPCMir&STRX)*! T>1Cfl 

Oec.PCRS0«CJfMlEQUEST("PZD*'ASTRX) 

OisplayName CHICPEAS0H_ZO, "P" 
END IF 
NEXT 

FOR Xol TO se»f1on("chnd.cnt") 
STRx-Riarrr00CO"Ax , 2) 
'Reiponse.Write STRX 

* chknameas-chk'Astrx 

IF REQUESTC'CCHITASTRX)'! THEN 

CHICPERS0(CJD*REQUeSTC*CZ0"a5TR)0 

oisplayName chkj*er5on_zd, "c" 

CND IF 
NEXTX> 

<ENPUT TYPE»"subRrit" v«1ue>"LOOP TO OXSPLAV MORE MAMES" 4d-sufanrit2 nane-subfil t2> 

Vform>- 

«SEND If ' end of nain program 

'If reque »t f " sel _NAMC*)«*ALL" 
"If request C"»eUUM6")-"S0«E" 

'2.ftas1c Data 3. Cites 4.TeMt S.Clte Image 6. Photo. 

Sub (HspUyName (Naffle_1d, relationship) 

Oim rsSearch ' . rsSesrchF, riSearchM 
dm »tr$QLp ', strSQtIP, atrSQtiM, SQLfoes 
01m persofustx, marrjuicno, narr^ fcw.no 
Oim rsMarr, StrSQlM 
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Dill strSQl-Text, r»Text» UneJwM 
Din StrSQUoMO*. ninage ^ , , 
v\m strSQLPhoto. r»Phoi», fet_lev«1» 

' Hob_id. strSQLHob 



I rsHob, 



• dBier chargem &r« «dd«d balcw. if requettjad and data Is aeifailable 
set rsSearcA » s«rv«p.CreateObjectC AOOOB.«aooPd»«t j 

StrSQt|)"*5Ei.ECT ♦ "4_ 
-frow Mpcrsofut . ...» 

"Nhvre pcnon_fd » — <nBiie_1d A 

rsseareh.open rtrSQlf, cnSearch 
persorusex s rs$earch<~per»on_Mx") 

'Father of StartJng Person <«R> 
•if r«ju«strrBv_aTl"3>l then 
if relationship-'F- then 
RMponM.arfta ( <M: 

and If _ 
if relat1onship-"S" then 
Response .wHte ( -<8«>c 
end If 



level 1 was charged in pga dbsrc041 



If relationahlpo'P- then 
Response .Hrlte <--<br>=: 

if*rllationship--C- then 
Response .write <-<b«>— ' 
end If 

Response .Write 
response .write 
Response .Mri te 
respans«.Mr1te 
Response .write 
response .write 
RBSponse .Write 
response .write 
Response.wri tie 
response .write 
Response .write 
response.wri te 



^hild I 



-«rsScarchC*per5on_1 name" 



"A'Cnbsp ; 
"A"«nbspi 



s1ze»lS >-) 



1d»textl nafM-teKtl>') 



Response .write 
response.wri te 

Response .write 
response. write 
Response .Write 
response .write 
Response.wri te 
response .write 
Response .Write 
response .write 
Response .Write 
response .write 
Response, write 
response .write 

Response .write 
response.wri te 
Response .write 
response .write 
Response .write 
response .write 
Response .Write 
rcspMsc .write 

Response.wri te 
response .mite 
Response .write 
response .wnte 
Response .Write 
response. wrlte ^ 

Response .Write 
response .write 



Last"D 

^ <im>UT typestaxt values*** 

-SlSSr^typeatext valoe»-»---«r»Search(-persoajfna«e*')*- 

l^wJlJ^type^text value=«-»— arsSeareK-persoajsni-e-)*— *"«nbsp;-«- s1«-15 >-) 
l^lpUT^tJS^text value--*— *r.Searchrperson_3na««-)ar-A-«nbsprA- si*e-15 

'^S5T^tvpe*t«t value-*-*---»r.s«ifrt<>ersonj^ 1d«textl na«e:^tl>-) 

SNPurt^peatext value=-*raSearchC"P«r9on_s«»">ft"«nbspr*- s1a«-l >") 
f SMPwfTSSstent value=-A-*-4rsSearchC-person_1d->«---A"«nbsprA- s1ze=14 >") 

^SSJur'wiSSIt^elue^-ArsSearchrbi rth_year->&- -*- s1ze-4>-) 
^SSwT^typestext value.-ArsSeart*Cb1rthjnontl»-3*-anbsp;"»- 5ize=2>"J 
^Smwt t»e=*ext value--*r»search<-b1rttLJiay->*-«nbspj-4- sl2e«2>-) 
"JfSS?t^e=text value--*rsSearch(-b1rth_yr^cur-D*-lnbsp!-»- s1m-4>-0 

tSJ2«t value«-&rsSearchC"birthJGED_date-3«"«nbsp;-A" s1re=:S0 id^tl naioe=^tl>-D 
^3S5iiT*!SjSt2t value=-*rs5earchC"b1rth-yr.var-)&-«nbsp:-*- si»-3 Id-textL na»-textl>-) 



"KSlOPlace: Country Cor level 
"<iiiPUT type=text value-"* 



Re sponse.wri te 
re sponse.wri tx 
Response.wri te 



-*rsSearchrMrthjcountry-)*--»-«nbsp;-»- size=i30>") 
'3!!p5T^?JpiSSt^i3ue=-a" • -*rasearchr b1 rth_state**>*" ' -*-«»*spi-*- si ze.3a>-) 
^S^S'l^SrvSC.l^r-S^ear*^^^ ii«-30 >") 

t'SJpUT°xypS«x?iJlue»-*"*'-*r«search<*'birtK-cityO»^ si2a»30 >"> 

FSwT^i^ttxt value--*rsSearchCMrtlcl«f')A"4"»«P;"«'' »^»^ >"> 

^iwlf^ol-text ya1u^"ftrssearchrbirtfOon9-H-«»*«P:"*' >") 

<-^SwT%p»«toxt values-fcrsSeartACbirth-peo^cur-DA-anbap;-*- s1ie-l>"^ 
iristening beloar 

"SKS^wSSS^SwCsear^^ size-4 Id-textl n«««^texta>-) 

siSB-Z i**texta nemci<tBXtl>-) 



Response .write 
response .wrltx 
Response .write 
response .write 
Response .write 
response .wnte 

Response .Write 
response .write 
Response .Write 
response .write 
Response .wnte 
response.wri te 
Response .write 
response .write 

Response .Wri te 
response .wri te 
Response .write 
response.wri te 
Response .Write 
response .write 



?^IiSlT^type=«t value--»rsSearchrchrisLI«»nth-)*-*nb8p;-*- 
^<Mt tvpe^texc valuB--*rsSe«rchrchrisuday'*>«r*nbsp;''*' 



idwtextl nMW-textl>**) 



sizn-d 

iJSSf Spe=tej(t vaHie»-*rsSearch(-cbri».^_acair->tf*dnbsp;-*r siza-d 1iWt«ctl n«B^teKtl>-) 
SmpSt $pe-text value--ArssearchrchrisjGED_date->4''<nbsp;-** sizeaSO idstextl i 



■eKte9Ctl>') 



ye-1 _ 

--SSwrtypSJeit value=-*PSSearchC-ehri*-yr_vaK'>*"<nbsp;-*- s1»«3 itfetextl n«e-texta>-> 



'•-«SR>Pl»ce: Country <or level 1)") ^^^^ 

■-^♦iPtfr type-text value--*-'"*p«5earchrchrisjcountnr>* * «nbsp; * 



s1ze-30 itfstexta nanextextl>**> 

-SSr^?ip^St^Qu^-A-'-d«*sSeaf«hrcftri3^tate-)*'- "*-«rt t1«-30 id^tl n««rt«xtl>-> 

:2SK'J5De2l5?vSi;JSl?*-22e.r^^^ »««^ <«»-t«tl n«e^eKtl>-5 

r"2NPUT**JypStix? vil ues-ff* * -*rssearchr chrisuci ty-D*- ' "ranbsp;* 

r<fiR>chris Latitude"} _ , .x— 

C<WWT type^ext value^-ArsSearchCchrisL-lafO* ««bsp; 
("Longitude ) 

r^PVT t^Mtatt va1ue»'*ftrsSearchCchri8L.1ong''Hi"<nb9; * 

(•SHPUT*type*teKt va1u^'*«rsSearchC-chriauaeo-acair-»-tobspr*" 1d-t«xtl ni 



slzei^O 



'A" siz^JO id-textl nifli^ext3>~) 
id=textl n«Hie=stcxtl>") 



> 



rieath below 

SpSSSiSS r35jK*S^SJi\«lue-"ArsSearchCdeath^e.r-)A-*nb.p;-*- size-4 ^"J 

?SpS!!«:!!hS tSSwr^type-twtt valu--ArsSearchrdeathj»nth-)A-tobsp:-A- size-2 >") 
i.wHte C"Oay") 
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c;\patentVaHlu1ts\<fl>src2<5.a>p__ 



f SSSS'l^Jeatext «alu€--*P95€Qfxhrdeath-yrjecur-)4-anb5P5-4" .Iza^U-) 

rSwT MMXt valiJ««-Ar5S«»rchrAatiuGEBLriate-)&-anbsp;-A" $1ze=30 Ict^extl iuioc=textl>-) 
F3HP«T*^S52t va1u«=''4rsS€ardird«t*L_yr_var-)&-«rt)sp;-4- sim=3 «^e)Ctl namc-textl>-) 

J-SKof^t^tiext walMeB-ArsS«arch(-<ic«th_lat-)a-*«bBp;-&- s1ze-10>-) 
(-ISJSoTtJ^text valii*-"»r$se*rch<-iteath.long-)ft-anb»p;**" s1re=lft>'') 
SSuTtypeatett values-«r»5earehC-deiitHjeo_aecur-)6"«nbtp;"«i" iize=l>-) 



respons«.cfrite 
Response .UHte 
rospMtsc.orfta 
Refpon»e.ttrite 
response .ori re 
Rosponso.tfrita 
response.trrfte 

Response .un re 
respense.tsrlte 
Response.tirtte 
response .cnite 
Response.tArlte 
response .Mite 
Response .uHtc 
response .iMrlCe 

Response. UHte 
response .orlte 
Response .tftrl to 
response .bty te 
Response .t^tc 
r esponse .write - ^^y^ 

JSBSSIJIhS ^-SKr^^^«JSrJa1ue:,-ftrsSearchC-burial^a «1ze-4 >-) 

Response .write 



response .write 
Response .Write 
response .mite 
Response .tfrite 
response .mite 
Response .tf rite 
response .write 
Response .nrltfl 
response .write 



'"SnSjt^ type-text va1tte.-*r«Soafchrburt«ljJHinth*)*-anbsp;-A- «ize=2 >") 

"Smwt typ^text va1ues"ftrsSearch(-hurial_day-)*"«r*»l»r«" s1w-2 >"i 

"Accuracy > 



'<IMPUT type-text v»1ue-"ftrsSearch(-buHal^_»ecur'0*"**»P;"*" »^»=1 >") 
SSpSt SSlttxt va1iie=-&rsSearchC"bur1al_GCDjtate-)&-«nbsp;"»- s1as»30 Id-textl name=textl>-) 
^JSpu?'Jy?S?e« value=-arrssearrhrburial^r_var')4"tobsp:"4" size=3 i*=textl name«t«tl>-) 



Response. Orite 
response .write 



«1* 



"<BR>Place: Country (or level 1)") . „. . _ ^ 
. w. v-<lWPiiT typestext value-"*" '"ArsSearehrborlal^countnrH-'-A-inbsp; 

^ e.wHte rstata (or level 2)"} 

response .wHtft f*<lNPVT type-text val 
Response .Mfite ^ 

response .write C<i"W7 tyoestext i« 



30 >•> 

<INIVT type«t«xt val ua--*" ' -*rss«arch<-burt al_»tata->ft- ' "tf-Arbsps"*" el «e-30 >"> 



Response.vfrite 
response .write 
Response .tffite 
response .write 
Response .c/ri CD 
response .write 



~<BR>Latitude") 



;-<IiiPUT tyjjeatestt value»"«rsseanchC"bur1al_l*t">ft"tobsp;"*" 
^itHPuTtjitext yalue--4rsSearehCburial.1ong->6r-aiib8pr4' 
l-^IMpS^rpe-text waliie«-*r«SearchCbuHal jeajBCCur-)ft-«nbspi-*" >*0 



*&" sfzealflo'') 
slza-lO") 



Response .write c;<BRxSR>Ident1fi cation or Data (^11ty Notes") 

JJI?;«S:2JiS J^^KSr^^Ji^^ext value."*--ftrasearchrpersoajioter)*— S-«rt»sps-4- sIze-W >") 
if rs5earch("person_note2 then 



Response .write r<fiR>«Ote2: ) , 
response .wHte C^UfVT type»text valuer A 
end if 

If rsSearchrperson-noteS-Jo"" then 
Response .write f"<»R>llote3: ) , 
response .write C^UPUT typc«t«t value- A 
end If 



"ftrsSearchC"personj»te2")*--*-«nbspr«r- ftizfr>80 Id-texU noqe-texta>") 



"Araseerchr person-notes-}*- ' -*-«nb8pr*" e1»^ 



if rsSeardiC"pe«on_note4"5<>— th«i 

;«SS;":2h2 r-SS!lf*?Jieitextvalue--4--*r,Se.rehrperKmjH>te4-)»^ eix-K) 1«Utextlnan««textl>-) 



end if 
end if 



•If re«ie8trrev_an-)>2 then 

If «1dCi^e_reqiie8t,3,l>=-l-.then 

Rosponso.wrtte ("<BftxBR>Oriainal Source Cttations ) 

Response .WHte r<8R>t»te5:''3 , , 

response .wrtte C<1HFVJ type-text value-"*- ArsSear 



Ar5SearchCper«on_not«5->ft""'&"anbsp;"«- sizesaQ>") 



if r»5earchC"fersofU»ot«6">o; 
Response.wri te 



then 



^-^li^'^^^^text value.-4-"ArsSearchC-personjioteS-)*"-a-aobsp;' A" sizOi^O id^texd na 
If rs$earchpper$an-note7"jo then 

^-^^UT*typ»-««t valoe>-*"*"4r«SearchCperson-note7*>ar* 



»sitextl>") 



C' 

response .write <' 



Response .wi 
responr- " 

if rssearchi 



'A-tebsp:"*- alze-W id^texU name* ti m tl>-) 



xhCperson-notoS-Jo"— then 
I^S^mIShm i-SSuf^tJ^ext value--*— 4r.S€arch(-per3on_note8->»—»-«nbsp!-a- Biz»^ 
endTf 

If rsSearchrpcrson_note5-Vo--" or rsSearchrperson-noteJ^Vo;;- 

or rsSearchC-p«ir«or\_note7-)o"" or rsS«arch("p«rson_notc8 >o then 

fee_1evels - left(fee-1evels,2>*"l-*HBht<fee.levels,10-3) 'fee level 3 
end if 
end if 

rsSearch.dose 

ir^ili?lJr5MS"?"md"riiiistCin>rriage-r- -V" then^ *-ftarr1afle.^ m eys ok ts pay for 
Response .writs r<BK» LWj ■■■ ■ Mu rrtage event data ) 

*eno if 

set rsnarr - server.CreateOfaJectCADOOe.Recordaet') 

If person_sex = "F" then 
narrJiusLJxi » start^rsoruid 
aarr_irifejw - name^fd 
else 

Barrjtua^ « naiiiB_id 
narr-»rife./w - starc^rsonjld 
end if 



Id-textl n»a>^extl>*> 
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"from MManri«9e_t . _ ^ m. 

- and rwirrjrift-no - tewrjrtftjw ft 

r^rr.OpM strSQlM. cns««rch 

If rsitorr.tof or r«*Urr.bof then 
Respotwe.WriC* "-cBIb^ oarHage record found 
• itorri •geUpdated>i'*ir 

R^nse.WHte -<aR>Harria9e record found* 
•MarH«9allpdated='V ^ -^ 

KSSSirii: ^^'?JSX«"S«ie=«arr^r yal«e«"4rs«arrr«arr^e.r-)&-«#32r&- siie^>") 
!;5S!2:!!hS pSipST^type^ tu^^rr^rh vaW-*raiarr<-inarrj-onth")*-*#32;-«- size-2>-> 
KgSS;:!flJS KSKt ^aPii=te»t n«.e=i«rr^ valu«."*r«arr<-«irr_ilay)*-«#32r4- s1ze=2>-) 

Jn!S;S:S^S £S5S"t;;-SS2T:aiSJjr5oS v.lue=-*-"4r.«arrC«arr.counrry'>*-*-4#32;-»- .i».30>-) 
KllSSraliaS SielS^riJUe va,«e--.-'-ftrsMarr<-«.rr^tat.-)*-ft-«32;-r «».30>-) 

?:iK«*!!n2 i-SKS'SjeSSS'n&Jrr?^^^^ val«e--A--*rsMarr(~.arr^ty-)r-ft-«32;-*- .ize=30 >») 
?35S*S;e2iS^'Si^-!i^^ v.lue=-*--*r-UrrC-«.rr.oty-)*-ft-«325"*- >■) 
|2SJS*i^ttxt nw»=«arr_1at v.lu.»-*rrttorrCWrr_1at-)*-4#32:"A- size«6 O 



Respon&e .Writie 
response .wri Ce 
Response .«nr1t£ 
response .write 
Response, wrice 
response .write 
Response .write 
response .«fr1c« 

«nd If 'record found? 
rsMarr -Close 
end If 'end of i 
■ end anirrtape 



:-SIlwT'tjDl=text n-nr*arr^long value--*rsMarrCmarr_lon9->&-M32:-A- sl2e-6 >") 
|-SSp5*tvpe=tw»t na»e=«irr_«e«u»ccur value»-&rsMarrC»arr^_accu»^>&-»32;-4r- rlze=l>-) 
•"SK5r*^p2tieMt MMiarr^tel v*lue--«— 'ArslUrrOMrrjiotel")*— **"«3ar*" siM=«0 >") 



*B=s<1v« Publisher's email i ■ 
Set rsHob Server .createobjcctCADOOB.ReoordkeO 
Hob_Sd e leftCn«ae„id,lX» 
StrSQLH0b»"SElXCT * 
"froo Hobbylst-t 
-where Hob_1d - ■" 4hob_id 
rsHob.Open strSQUtob, cnSearch 

'%nSS;r£ri°«''23S;5^!«*yUr «n.r r«»rd fbu«<- 

rsHobTclose 
end if 



•if request rr€v_»U")>3_ then 

If ■ridcf««_r«iuest,4,l)= 1 then _ 
'iBEpirSS^Tdescrlptton text apgean her* SHOW TEXr<B«> 
Set rsText = Server.CreateObjectrMXXW.Recordief) 

strSQ^Teatt^-SELECT • 

-where perswuid = «naiBe„id ft 

rsText.Opcn strSQLText. ensearch 

if rsText.eof or rsText.bof then 

Response .write ''•<SRxBR>Mo Text record found" 
else 

POft T=l TO 2S 

ST1CT^6lff(j]0000-«r^) ^.^^ 

1f"lTiILhold «id ilncJiold o- scrlngCSO,* "),then_ *». -^ .^ 

regjorae^te C<w>"*»tr_tft"<iiiPur typeface valuo-"" ftllnejvid ft''*tf32; ftT sizo40> ) 

next 
END IP 

rsTcxt .Close 
end 1fX> 

<! —————> 

•If reaue5trrevjll")>4 then 
If Iii1d(;r*«_f*qu«»t,l.l>£l ^jen 

'<ftR>PhotD Shown here SHOW mOTO 

Set rsPhoto - Senrer.CreareObJectCAOODO.Recordset") 

5trSCJU*0tD-"SEl.CCT * -ft« 

-where person-id - ftnaB«_id ft 

rsPhotfi.Open strSQL Photo, cnSearch 

if rsPhoto.eof or rsPhoto.bof then _ ^ ^„ 
Rasponte .write -<BRx&r>No Photo record tbund 

Response -write "-«R>-«l»>rt»oto record f^>»»»<*<5f^" 

• Response .wHte -ppp-ftTRll<RSFWTorPHQfTQj.COVTIOii-)H"PPP^ 

RESPOnSE.WRITE r<I»C W1OTH-1$0 HEIGHT-150 SW>- ftTMHCrsPhotoCl^OtaJoeetlon )> ft > ) 
fee«levels - leftCf«OBveU,4)ft"r«right(fee_levels,ld-5) 'fee level 5 
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ct\pateiitMlodul€«\dbsrc24$ .asp 



<l— IMG WIDTHslSO HEICm-alSO 5RCs**\INACES\30NATHKl.GZF*> 

<SK=TRIMCrsphot»C*'pheto_locat1on**»1(> 

'<1— IMG WIimtBS95 HEIGHT«770 SROe'*APEX^. jpg** — > 

<X 

END IF 

rsPhoto. close 
end if%> 
<% 

•If request (" reveal! ->> 5 then 

If BidCfee-reqoest.S.l)""!" then 

*<SR>citat1en Image shown here SHOW IMACE 

Set rslmage e server.CreateObjectC*A000B. Record set") 

Str^QLinagesi**SEL£Cr * "^l. 

"from HIinage_t "*u 

"where person.id = *" Anane-id A"'" 

rslmage.open strSQLIIMGE, cnSearch 

if rslnage.eof or rslknage.bof then 

Response .Write '*<BR>^R>lk> image record found** 

el se 

Response .wri te '*<BR><BR>IiBage record found<br>" 

' Response .Wri te '•ppp-ATRINCr$lmage("I«ageL.location"))&**PPP*' 

RESPONSE .WRITE WIDrH>S9S HEIGHTeZZO SRO>" ATRIliKrsIinageC**Image_locat1cn'*» 

fee.1eve1s - leftCfe«L.l«vel$»5)A"r'Artght<fee_levels,10-6) ^fee level 6 

END IF 

rslraage. close 
end ifil£> 

<i > 



<i 

*checkandcharge naine_1dt sessionC"buyer_id") , feOevels VequestCrev.all") 
End SubX> 

t% *THIS IS FOR SILUINESS 
%> 

<\ 1 

<!— #INCLUOE VIRmLs'*aJMM0fl/CHARGE02.I»lcr* —> 



<p>Anbsp;</P> 

<p><s hre^'*nenuhobl.asp''>Retum to Hobbyist Main Menu </9x/p> 



</BODtf> 
</HTHL> 
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C;\pat«ntVMPdu1tVdbsrc2S».a$p 



-dn LaMuaoe-VBScHpt %> 

^espense.BuffeFBtnM X> 

<i— vfnclude v{rtii«1»"GanBon/«tovbs.inc** — > 

«M£TA IMME«'*CEIKRATOR'' Confcent^''iricros0ft vIsmI Studio 6.0*'> 

<nTL&MSW PEDIGREE UPOATEVTITLO 
<M3>H0BBV PBXGAEE W>BMTEVH3> 



' FRCM dbsrcl38 

"rtris progran lets a vieawr choose and pay for nnes. 

*T}i« first tine this page Is retrieved, and any tiae It is 
*subaritted idthout being carapletely fined out, the fbrn 
'Is displayed. If it Is atterittedand convletely filled otrt, 
'the ftna Is processed In the Else clause. 
Din startLperaofulnaMe, start;^rson.fnane, stariLpcrsoajvune 
Oim start_personJnrear. start_i>ersofu1d 



'LOGON CHECK 

If sessionChobbyist lowed «n")o'' hobbyist looped on' t>ieii 
response. redirect("1oghobOX. asp') *see p. 337 of prog ^'de 



•If >equest(*'startu>«rsea..lrHM**)-"** or RcquestC'startLpersofuffMnB")-'" _ 

or requestC'starC-persofubysar")-'"* and rcquest("start.person_id'*>»'"' then 

If ReqttestC'start.^rson.lnane'*)s"" md reque»t(-startj>erson_1d">"" TMEli 

Enter the last naM, and then add one or more of the fbllowlrH) fields - first 
none* niddle nane* birth year - as extra criteria to describe the person Mhcre 

you %wwld like to start the Hobby pedforee search. «l— Citote: Only the last mne is used for testing.>«> 
<BR>Or. If you alreai^ have the person^s Genealogy Registry 
ID, please use It to go direct and save rime. 
<SR>Search may be 

liorited to nanes In a recent rise range, such as those bom In this century. The 

pedigree-following process is used after that. <p> 

<R)fW NETHGl^sPOST AGnOH»-dbsrc2S8.asp'' id^fona Raae-fpni2> 

StartlnQ Focus Person: <br> 



Last 

<ZNfVr TYPE^-TEXr IMNE«''st»Xj)ersorL.lnine'' SIZEia4> 
First 

<INIVr TYPfe-TEXr ■MME-'start^raDfVjfhnM- szz&a4> 
Middle 

^wgjTTYFE^'TEXT' NAMe-'start^rson.MMne'* SX2S>dl4xP> 

<nPin- TYPEbTexT" NMM&i*start-person.^ear'* suMxp* 

Registry ID of Starting Focus Person 

•dHPUT TyPE«*^CXT- »WMEp"StartL4)erson_id" SIZCsl4> 

<P> 

•tfMPvr TfP&«'*subiirit'* va1ues"start Search" Id^sufanltl nM^subi1t]> 
5/F0f»^ 

'Oin strSQLTcnp, tabluuM* oMier_id 

' crtats tcivonry table fbr eookie processing 

Ola cnsearch, rssearch 
Din ttstart.^rson_id, x 
Oin strSQLp 

Din firstrec, lastrec, strx, 11n«.cnt 
Ote strSQLfivlds, naullowed 
■a?^jl 1 imeiVJOO 

Set cnsearch • Server.CreatcobJcctC'ADOOB.Oonnecclon'') 
cnSearch.Open "dbl 

Set rssearch - server.creatieObJect("ADOOB.Records«t'*> 

;martj>erson^1d - nghtCstHngC8,'*0->ftrequestrscirc_person_1d">.12} 
TiXM the opening screen 
'Response .write ostartLperaoiuld 
'Vhere person-Inane >» tasUrt_persoa.id 

'construct SQL for nultlple search criteria 

If rc<)u«st("startu'*'*saa,1d'*)'»'"' then 

strSQLpo'sELEcr persofuld, personjlnane, person-fnane, "IL 

'' p ei sofumane " ar 

;$1rthlye«r, ^IroLnonth. blrth^y, b1 rth-comtry, 
"Mrth^^tate, b1rth.county. b1rth_c1ty "i^ 
"fron l^rsonjc 

>lh«re persen_id - ArequestCstart^rsoiuld") 

" ORDER BY PERSQIUJMME, person.fhaM. persofumne. falrth.year'* 

else 

strSqtfieldsa" MRTHjrCAR > •1900" AND - 
if requestC"start.^rson_ln«me")o"" then 
strSQLf1c1ds»strSQLf1e1ds *" person_liM»e - - «rei|uestrstartj)ersorulnane-) " 

end IT 

if requestC'stvx.peraon-AiaBe'Jo*"' then 

^tr^fleldsBStrSQLfieTds *" and person_fhaM m *- »rcqiiestC''»tartj>eraofv.fnanB") *"* " 

If requestC*stut_persof^pmma'')o>*'" then 
strsqLf1c1ds-«trSQLf1e1ds ft" and persoojwune • ftrequeatCstart^rsoruntaae'') ft" " 
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end If 

If request C9tart_personJ>year">«>"" then 
^tr*QLf1e"lds-»treQLf1elds ft" end b1rth_year « 



• ftrequestC'starx^nonJbyeaO 



StrSOLps^SELECr persofu-td. person_1nMt, p«rMfi_f»t» 
"pcrsoruineae. "K. 

"plrtfLyeap. blrttunntl). birth_d«y, birth-couitry, "ft_ 

*b1rtK-statt, b1rth_county. b*rth_c1ty 

"froB iipcraciiu.t 

Nihere ^ iistrSQ|.f1e1dft ^ 

" ODER BY PERSOMLLIMME, persort^fnine, persoajwime. birth_y>ear^ 
end if ' end of SQl create logic 

'"where person_1nane - •" ftrequestC'start-persofu.lname") »"**^ 

"Hherc persoiulnaeie *> '" ArequettCftartLpepsoiulnwe") »"'" 4_ 

and pcrson_fMme «* - SrequestCstartLjwrsoa.fhaaB'*) ft"'" 4- 
I Pfrtoiumwe -> " ftrequestrstart.persofumaae'*) ft"- ft. 
and birduyaar » ftraquestrstart^rsMubyear-) ft*'- 

*RclatiOfMl (<. >. ««, >-> - FRCP! MSDN U OPERATOR, CONPMiTISOII OPERATORS 



'response .write reque»t<"$tart^rson_1n«ue") 
'Response .write strSQLp 

if rsse arch. state = adstateopen then rsSearch.Close 
rsSearch.open strSQLp» cnSearch. adopendynanric. adLodcOptiiiri stic 

'rsSavch.Ofeien strSQLp. enS^reh 



'use input screen like dbsrdilO 

'do March 

x> 

<F0f9l METNODmPOST ACnGNa"dbsrc260.asp** icMbrad. waMa »fw fl> 

select a ftarting fbCMS person fron the following list by chacklng a single 

<BR>The person's relatives will be counted and the 
resulting counts trill be shewn to you on the next screen. 
■«BR>You will be asked to choose whfich groups of relatives you 
wish to see. 
<% 

'if rsSearch.eof - skip 

do irftile not rsSeardi.eoF and x < taax_^11owed *x<36 
str»:ri ghtC'0000''&x , 4) 



response.write C'<brxIHPVT type=checkbox na»e=chk**AstrX ft" VALUE=1>") 
response .write C"<IIIPUT type^text naroea" « "gHd-lname" « strX ft " vali 
response.write C<1UP<JT type-text naraca* ft *gr1<t_f»»aBie" ft strt< ft " vali 



val ue»||ft" ] "ftr»5earch<"persoa_l nane" Jft' 



response.write C<X»PVT type=text name-' ft -gridjmaeie'' ft strt( 
response.write C<liiW type-text naBea" a "gridjsyear" ft strx 
response .write C<ZNPtfr typc-text naae-* ft "gri<L.id" ft kxtk 




'if xol then firstrecsrssearch.boolaaark 
loop 

' Response. wrtte x-1 

response.write r<l«P«T type-hidden nanie»1ine.xnt values" ftx ft" sizea4>*> 
If X D max^Howed then 

^^sjonse.write "^i^at Least 'tx ft" Nanes mre found Meeting your criteH»</h3>" 
If x>0 then 

^Jesponse.trHte "<hl>-iX ft" nanes were found Mcting your cHteHa</h3>" 
If »P« then 

^Jes^onse.MHte "'diSMo Nanes were found meeting your crlterlaVhS^" 

' lastre»<saearch .bookmark 

*two Bufamit buttons that go forward or back 

<l —tUC CBJt"> 

<niPUT TYP&»'subRit" value»*SHOW RELATIVE CDUKTS- id=suba1t3 tt»e-sulwi1t2> 



<p>ftr^sp;</P> 

<pxa hre1^*eienuhobl.asp''>Retuni to Hobbyist Main Menu </ax/P> 

<a hrefkdbsrc238.asp»itetum to Hobby Mane search screen. 5/a>^>teb^;Vp> 

</BOtH> 

</>rrw_> 
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^ Langiai9»^«Scrlpt %> 
^dBDption Explicit 1^ 

#1nc1ude vfrtuaU'ceonon/cdovbs.ine'* — > 



•4«rA NMEF'*«EilERATaR~ Centen^'prfcpoieft visual studio 6.0''> 

•crmOHOBBV PEDIGREE UPIMTEVVTrU> 

<BOOV> 

<tn> 
<x 

'FRCM dbsrcMO 

' Response.wri tt *grid_ld(aA'*&rcqtiestC~gnd-idOl*> 
'cmrn from dbsrctiSO.asp 

"This progrwn 1«ts • vIeMvr chooM and pay for names. 

'Tht first ti»e this paoe is retrieved, and any tiije it ii 

'Mtnrlctxd without being C0Rf»lete1y filled out, the fbm 

Ms displayed, if it is submitted and coqplatcly filled out, 

'the fom IS processed in the Else clause. 

•Rasponsa. write "XXX" 

'Response .write REQMESTCLXNEjair*) 

* Response .Write "Wy" 

'Response .write REquc5TC*GRZIlLYD<»"> 

If requestClin«^n[t">=l then Mf only ana mm comtt In, take 1c without a checkbox being set. 

STMtT_PCRS0ll_ID=REqMEST(*'GRIDLXDO0Ol" ) 
else 

FOR X=l TO I 

snuMaGHTC 

IF BBJMESTC . _ 

STMOLPERSORJCIMteqUESTCGRro-IO^A^TRX) 
EXIT FOR 
EID IF 



> request(''lin«_ait*'> '25 
C'CMCASTRX)-! THEN 



* Response .WHte START_pERSON_ZO 

'If Requesi " 



I if 

Series tC 9 tart_p«raon_i d^)> 

'Entar the nunter of the person where you would like to start the 
'PAY-PER-vzcw pedigree search.<p> 

•<FORM METHOOsPOST aCTIOIM''dbsrch20.asp* icMbnBl naai»-fbnRa> 
'Start Person 

'•^XMPur TYPE9*TExr* iUME«'*startj>er«on.id* size-l4> 
'QHRer 10 

*<IIIPUr TYPE^^TEXT' NME-''owner_1 d~ 5IZEi-8> 

'•<XllPUr TYPE»"suber1tr va1u»«*'srart Search" Id-sutamitl naDie=subeitl> 
'-dfelse 

'Dial StrSQLToii), tab1e_naBie, owner.id 

* create temporary table for cookie processing 

' table-nwe-'*tr«ce'&r1ghtCstringf« , "C'^ArequestCowner.! d~} ,«) 

* tab1«LJMneB**rrace*trlertCrequest(**starr^rson_id") .B) 

Din cnSearch, rsSearch, rsSearchF. rsSearcfM, rssearchc, rsSearchS 
Din «istartL4>erson.id, STRX. START_PER50I|_X0 
Oifl atrSQLp, strSQLlF» strSQLIM, strSQLlC, strSQLlS 
Din strsQUP. strSQUlar, StrSQLF, strS<MM 
oim rsPay, rsLinkP, rsLlnm. rsLinkC. rsLinks. 



I linajcnt, fatharjidp mother.id 
I cMliLcnt, 



rsLinkP, rsLlnlMar 



Din cMlcLcnt, spoust^cnt, parantL.cnt, narriageL.cnt 
Dili woe, XX 



set oisearch - server .CreateObjectCADODB.tonnecti on") 
cnsearch.open "dbl" 

set rsPay « server .CreateobjectCADOOe .Record set*} 

sat rsSearch » Senfer.Craat«*JecrCA«X)e,Record$cf > 
*Set rsScarchF - Serwcr.CreateOb1oct("MOoe.Recordset"> 
•Set rsSearctM ■ Sen«r.CreateObject("AD00B.Recordset"> 
*Set rsLinkP » Server.CreatecbjectCAOOOe .Recordset") 
*Sct rsLinkM a Server. CreateCbjectC'AOOOe.Roconlset") 
Set rsLinkP = Server.CreateObjectCADOOB.Recordset") 
Set rsLinkc - Server.createObjectCADOW. Recordset") 
set rsLlnkS a Serwr.CrcateObjectCAOOOB. Recordset") 
Set rsLlnkMar ■ Server.CreateabJectCaooOB.Recordset*) 

'nstart_person-id - r1ghtC9tringCt."C*)Arcquest(*start^rsiii^id"),12) 

■istarCjwrsofuTd « start.^rsof|_fd 

Sc ss i on (" startL4>e rson_i d^«start_peraofui d 

•frora the opening screen 

'Responsa.wri te astart-percofuld 

'xsl ' tenporary debug 

strSOLpa'SELECr persoa.id. persoajname, persotufnem, 
"personjmaMe, person.^ex. 4l. 

"birtiuyear, birtfv.fBnth, birth_4ay. birttucountry. 
"birth-state, bir^coun^, birth_city 
•from Hperson_t 

"where person_id = '" &BstartLj>erson.id 

strSO.!^ "Select • fro« HLinkswt where personl • "_ 
ft-^ 4fiistart:4)ersoruid A"" _ 
ft - and Relate UKE ■XP%"' 

strS0.1lis "Select • frow HLinka_t where personX • 
tT'" *mstart-person_id _ 
» - and Relate UKE '^a*- 
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strSQLli^ "select * from HLinkft_t iflticrc penortL - _ 

A " md (Kc1«te LIKE 'PFX'or Rclstc LIKE 'ntt')" 

strsq^lCs "S«l#ct ♦ from HLlnl(V.t nhare personl a "« 

AmstartL^rsofUid A"*" _ 
* • tnd RcUte LIICE 'KX'" 

strSQLlSa "Select • from M.ink«_t irfiere personl o 
A**"* tastart-persoruid A*'** _ 
A " end Relate LIKE 'SX" 

«trSQLM8r= "Select ♦ from HMarrtagct iihere fmrrJ«i«_iiD m 
A**"* tastart^rson_id A"'" « 

ft •* or raarrjrife_no e " ^ 

A"'" tesUrt^rsot\_1d A"'" 
'Response.wri te strsqip *M»gboxC9trS(y.f> 

*SMb tesUCwc) 

'XXXaKX 

'End sub 

'testl 123 
't«stl 456 
'Response .write xxx 

If rssearch.stect e> adsraraopen then nseareh.clOM 

'rsSearch.Open strSQLp, cnSearch adopendynnric, adLodcOptlinlstlc 

rsSearch.Gpen strSQLs. cnSearch 
'rsuinkF.C^en strSQLiF, cnSaarch 
'rsLinkM.Open strSQLlM. cnSearch 
rsLinkP.Open strSQLlP, cnSearch 
rsLinkC.Open strSQLlC. cnSearch 
nLlnkS.Opan strSQLlS. cnSearch 

If rsLinkC.BOF and rsLlnkC.COF then 

chlld-cnteO 

else 

do until rsLlnkC.EOF 
chl 1 d.cnbichn 1 d.cnt<fl 
rsLlnkCMoveMexc 
loop 
end If 

r»LlnkC. close 

if rstlnkS.BOF and r»Llnks.EOF then 
B^se_cnb4> 

do until rsLlnkS.B>F 

spouse.cn^KSpouse.cnt'^l 

rsLlnks-nowciieKC 
loop 
end If 

rsLinkS. close 

if rsLinkP.BOF and rsL^rdcP.EOF then 

parent_cntBO 

else 

do until rsLinkP.EOF 
pa rcn t^^^rent^cnt-fl 
rsLinkP.Movettext 
loop 
end if 

rsLlnkP.cleae 

rsLlnlMar.open strsqtMar, cnseanch 

If rsLlnkMar.aOF and rsLinkHar.EDF that 

mrri age.jcn«sO 

else 

d» until rsLinkMar.EOF 

narri aga^cntcmirrl a9e_cnt4a 

rsLlnkMar.HoveMext 
loop 
end if 

rsLi nkMar.close 



iRstart-persoruld - rsLlnKF("p«rson2-) 
*father.1d - rsLlnkPCpersonaO 

'Response.wHte *father_'id*Af«ther_1d 

•$trSQLFss**SCLECT person_id, persoc\_lname, persorufhaaie , "A. 
'"personjimane, person_sex, A_ 

•■Mrth_year, birthjsonth» IrirHuday, bIrtKjcountry, "A_ 

'"blrtluttate, birthjoowty, b1rth_city "«!_ 

•■frae peraotL.t *A_ 

'-where per&oruld « Afather.ld A"'* 

'rsSearchF.open strSQLF, cnsearch 

qistart_per9or\_id - rsLinkM('*Pcrson2*3 
*nother_1d » rsLinkM(''per8on2-) 

'Response .Mite mstart_persoa.id 

*strSQLM-'*SCLECr person_1d, persoOnsnep person_fttaae, ''A- 
**persorunnne, person_scx, A- 

•"birth_year, birthjvwith, bIrcKjday, blrthjcovntry, 
■•birth-State, birttucowity. Mrth_city "A. 
■•from persorut "A. 

'"Mhere per8on_id » Aaother_{d A*** 

* rsSearchN.open atrSQlM. cnSearch 

'BELOii was GOXK TO 0BSRCH21.ASP, then r«d1r02.asp 

4FgRN NETMODxPOsr ACTX0i»>''db«rc2€X.asp*' Idi^naz nm^forn^ 

starting Focus Persoi»q|i> 
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<iNpijr TYP&="TEXT'* iWME«"start_ln»ne" SIZE0IS value="<»»rsSearchrperson_1narae**)»'"> 

<XNm TYPBo'TCXr l4AMEo"»tart;.fname" SX2E=1S valiie=''<»=r»SeaPchC'peP5oa-fn»i»">»>'*> 
Mfddlc 

<lNf>UT TYP&."TEXr HAMBTsthrtjmm' 5iZEs>lS vaHje---dfriraS«archrpersoiumMime-)Sb-*> 



<ZNnlf T?p^*^Exr •WM&«*startJ>irth_year" sizEp4 valuee''^rsS€areh("birth_year")Sb'% 
Sex 

<INPUT TYPE»"TEXT" NAME»"start-per$oru5ex'' SIZE^I valuea"-dfc»rs5«arch(-person_sex")%>"> 
^•lp5T'TYP&>-TEXr" HAME»"start_persoruid" SIZ&>14 valueB"<5l&-rssearch("persorL.1d")X>"> 

Parents of staring Person <BR> * ^ 

Data contains <afcpapentL.cntaj> parent pecord(8).<br> 

<XNPUT TYPEs»"checkbox" MAMCs^parent" VALUfc^* chedcc<l>SKoitf Parent NameCs) 
<BR> ^ XgR> 

Spouse of Starting Person <BR> ^ 
Data contains ^spouse_cnt5C> spouse rccord(s).<br> 

<XNPUT TYPE?="cKeckbox" naiiie=" spouse" VALUEs'*v* checked>ShoMr Spouse NameCs) 

<BR>a=B k SR> 

Marriages of starting Person <BR> ^ ^ ^ 

Data contains <dfe«arrlage_cnt9& marriage recortffs) .<br> 

<ZNPUT TYP&s-checkbox" MAME=~marriage* VAUlEs«"Y* checkcd>Show Nam age EventCs) 

<BR9 ■ -'-^ C BtO 

Children of starting Person <Wl> ^ . 

Data contains ^ahchildLcnta£> child recordC$>.<bp 

<XNPUT 7YPE^""cheekbox" »IAMEo"chnd" VALU6-"Y" checked>sho«r Child Name<s)<br> 

<INI»UT TYPE="sul»rit" value="ME)a- 1dssubm1t2 na»e=subOTit2> 
</R>RM> 



<p> </P> 

<pxa hrefsi"menuhobl.asp">Return to Hobbyist Main Menu </ax/p> 

</BODy> 
</KTW.> 
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\ LBfiguageEVBScHpt 



•4B0pt1on Explicit L 

<l" #1nc1ijita virtual »'camion/«lovbs.1nc — > 



4CrA MMEv'CENERATOR" cont«nt>'Mcraioft vftual studio <.<r> 

^rXTLe>H06eY PCOXCREE UPtMTC</mi.E> 
<H3>N0BBy PEDIGREE UPDATe^H3> 
</HEACo 
<BO0Y> 

<l— FROM dbsrcMl— > 

<P()WI HCTWOO-POST ACTI0H="db3nc26S.«5p" iMtml rtaBie=fonal> 

Starting Focus PiersofKpe* 
None: Last 

<XNPin- TrPE-TEXT" names" starO name" SIZEslS value=i"^requestC'»tart_lnaiiic")Jt>"> 

Snpot TYPEa'TEXT'' lMNE3''startLfnaM* SI2C=1S valiiej*"^reque3trataix.fn3ne*')X>*> 

<INPUT TYPEsTEXT" MMEst"atart_pMi«" SIZCslS values"^ reqMestC*tarCJNnane*')ab>"> 
<flR> 

Birth: Year 

■UNPVr TYPfc=''T¥XT" l4AMEw"st«rtJ>Trth_y«ar" SXZE=4 wa1u«="-^r«qu««tC«tartJHrth_y«*r">5fr"> 
Sex 

<INPUT TYPfc-TEXT" MNEv'startLpersofUSCM* SlZEcd value-"-46-r«que$tC*tartLperaon_sex")3l^"> 

KiNPurnfypEa'TEXT** NMie«'*atart-parsoiu1d" SIZ&a4 valM«»'*-4lfc4-aqiMStCtt»XP«rserL.1d'*}3&'*> 

'aNPUT TVF&>"h1ddan" RME^" spouse" SZZEbI valuea"^reqiMst("spouM"3^'*> 
<iiipur TVPE^'hldden" hmef^" parent" 5XZE»l valties>~-d»>reQuest('*parefit''3»>*'> 
<IHPUr -WP&3-Mdden~ HMffis-chlld- SXZEal va1u»>'-<3fe^ucstCcli11d">3&~> 



select PersonCa) below for:<br> .. ^ . . 

<niPin' types" radio** naaiesse1_aiode value= "UPDATE checkec> 

I want to Update a Person (Choose only one nam><far> 

<INPUT t^>e=" radio" naneose1_piode valo^"FOCUS" > 

X want ts Change "focus Person" (choose only one namei)-^^ 

<nuvT tM>e»''rad1o* n3i>es«e1..piode v«luca"MEir > 

I want to Add a new tarson Anbsp;Snbsp;Anbsp: 

<ZilPUr type-radio naw^DWEUOlVE VAUIE-C checkcd>Add a child 

4ZNPvr typ««raiHo ill— n adoiieu>ttve valueaS>Add a ipouae 

<tNPUT typecradio ruMeaAOOREUVrXVE valiie»P>Add a parent 

<P> 

cftoose type of data to update<BR> 

<lNPtn' tM>ea" radio" nanearev^ll values} checked>aa*1c Data and dt 

<ZNPVT type-* radio" nwnearev^ll value»3>Marr1age Record 

<INPVT types" radio' nasiesrev^ll value94>Blo9rBph1ca1 Text 

<ZliPin' types" radio" nme>rev_al1 valuesS disab1e<^Photo 

«IIIPUT types" radio" nnwarvv^ll «a1ueE< disabled^te lBage<ait> 

<X 

Din cnsearch, rssearch * , rasearchF, rssearchN 

Oira mstart^jwrson^id 

Dim strSQLC, strSQLX. strSQLS, strSQLP *. strSQUC 
Dim X. str9( 

•oi« rsPay, rsLlnkP, rsLlnkH, rsFees 
'DIM FEEJUTE-X. fe^rat3e_2 
'DIN father.id. npttier.ld 
Din namucnt 

'na»e_cnt^ « ^ „ 

set cnSearch = Server .CreateObJectCADODB.Connectlan") 
cnSearch.Cpen "cftl" 

set raSearch » Senrer.CreateOblectrAOOOB .Recordset**) 
" ~ tCAIXNS-Record$etr> 



StrSQL)&s" SELECT person_1d, persoo-lnaRW, porsofuftia 

"peraoajmaaie, per3on_aex. 4_ 

"blrtJuyear, peraorU, relate 

"frwn Hl.1nk«_t, l^rson_t 

"Hhere persoii2Beer«oru1d 

"end persons* tastart^rsoiuld A"*" 

'Focus Person 
%> 

<brxINPUT type=checkbox naiDCsfocus VALilEal> 
Current FOCUS Person - ^mw details 



'Response .write "•start>-*'4iD5tBrt_persofuid 
'Request.wHte "*pou»ea"ArequestC spouse") 

L^cnts^ 



•if reqoestC Spouse ) then 

* sess1onCspouse^lecf)-"v" 
StrSQL^sstrSQLX A " and relate Like *SX' " * should be S 
'response .write strsqls 
rsSearch.Open strSQLS» cnSearch 
X> 

■«R>Spouse 
■<% 



parent, spouse. Barrlage, child 
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do Hhlls mt rsScarch.GOP Md x<99 

resoonse .write r<INPWr type-text iMme*** 4 "sby«*r" 4 BXt% 4 v«li»=*4i^S«irchCbfrth_ye^^>4 3 



response .write r<lNiVT typ^text nan^- ^ 

*CKKkanddiar«e rsSearchCperson^ld"). "OOOOOOOl*. 1 
rssearchjaovenext 

•if x*! th«n «r»tr«e=r»s«arch.boolBnark 

XsX-t-l 

loop 

rsscareh.close 
n«ine_cnt»«Mne_jcnt-»^x' 1 
'«nd If 

sess-ifinC spo4ise_cnt')«in4Me_ont 



•If reauest<-PWlElir) =-Y- then , 

StrSQLf^trSQLX 4 and Cnlate Like 'PF«* or relate like ntt > 
rssearch.opcn atrSQfLP. cnSearch 



<BK>Parents 
<% 

'parent. spouse« nafrlage, child 

X>>1 

do while not research. EOF and x<99 

atrtCBHAtCOOOO-Ax.Z) ..^ ^ . 

reiBOnse.mnte C«*'><l'<'W type=checkbox n«ie=l»chk*^«»trX 4 VALUt=l> ) -x.- -.^-s 

raiDonse .write C<IKPtJr type-text narae=.- 4 "Pi name" 4 strX 4 ** value-"&rssearch("person_lnaB>e )4 s1zc-10>^l 
reiponae.wrfte r<iiiPUr type-text name-' 4 'pfrane" 4 atrx 4 - value=*4r«s«ai^f persorufnTO.>4^ "^e^^ J, 
reSonselwriCe C<INWr t^stexc n«roe=- 4 4 %trX 4 - walue»-4rsSearArgr»iuina»e-j4**4^ size«10>-> 

reSonselwHte C<I>»wr type-text nrnm^' 4 "Pbyear" 4 strx 4 - value--4raSearACHrth^eap04- »1ae-^:) 
rasponselwHte C<lNPUr typHtext oanie=- 4 -Pid" 4 strx 4 " valu^-4raSeardiC"persMfL.1d-)4" s1ze.l2>-3 
^Eh£SMdCharoe raSeareh(%rson_1d''). "OOOOOOOr. 1 

rsScarch.novenext ^ ^ , , 

'If xal then f1rstpec«rmsearch.bookMark 

loop 

rsScarch. close 
naaiejcnti 
'end if 



3ei»1onC"papentjcnt">^wajcnt 



Like *CX* 



^lfl5QuestrcMld:> --V- titen 
StrSqiLC-strsqpt 4 " and relate 

rssearch.opcn strSQLC. cnscarch 
lb- 

■<8ii>Oi11dren 

•parent, spouse, narrfage. child 

do wMIe not rssearch.eOF and x<99 
strXpHflht(-0000"4x,2) 

response .wHte f-<br><IMivr typo-checkbox n a ni ct Cchk"4atrX 4** VAUJEPa>"5 

reSDonsc .write C"-<II«»in" type^text names" 4 "Clnwne- 4 strX 4 " value="4r»S«arch( per»on_lna«« J* s1ze=l^ 1 
response .write ("■cmPUT typostext na«e-" 4 "Cfname" 4 strX 4 " value-"4rsSearchr'per»Ofufnai»e )4 slzeolt^ ) 
response .wHte r<lWW type-text naws=- 4 "^W" 4 strX 4 " valtie=-to^archr 
reiSonse.wHte C<iWMT typ^tcxt names" « "dyyear^ 4 strtC 4 " va1ue»-4rsSearch 
response .wHte C <I»B»irT type=text *;ff^ZJtS^l^ ,* 4 " value--4rsSearch( 
'Oieckandcharge rsSearchCperson-ltf^), OOOOOOOl**, 1 
rssearchjnovenext . . 

•If Jt-l then ffrstroc-rsseareh.booinarfc 
*=at+l 

rsSearch. close 
nwne.cnt^naeic_cnt*«-l 

se»»1onC"cMldjcnt'>*»TO_cnt 
'end of name listing for update 

''beoln ADO options 

•response .writ* C'<brxlVPVT type^radlo name-APCmElAnVE VAUJEs< checked>Add a child*) 



persofumaae )« size=iu> . 
'■person_pnaiae")4"tobsp;"4*' 
^b1rth_yeBr^)4* siat^5>") 
;-per90iu1d->4- slze-Uv") 



'rwponse.wHtw C^brxIMR/T type-radio naneWIDORQATlVE va1ue.£>Add a speusO 
*r*ap«»c •write C'<bfxZNPUr typ^radlo naneMOORCuniVE va1ue-l>>Add a parent^ 



•SUBROOTIME IS NOT USED IM TlttS PMGRM - 0BSRC261 

Sub checkandcharge (iia«e^d. BuyerjEd, CurrentJjevel} 

DIM pub_1d. SQLfees 

DIM SOL^yor, r»«uyer, rsPees 

DIM SQLPubllsh. rsPubllsh 

DIM s<}Lloo. rsLog, rsbuylog 

DIM FEES<6)« M, charges 

DIM rsPast. SQLpast, paitJevel. roquesOarel 
Dill checks-State 

^:«feS2:wr1te na«_1d4-/"4buyer_1d4-/-4current^level 

Set rsFees - Server.CreateObjectCADOOB .Recordset") 
SQLfets=" Select • freia feej5et_T Where fee_Mt • 'Ol'" 
rsFees.Open SQLfees. cnSearch 
"l)»rsFeeiC"f eeOl^jiaKa" ) 
!)-rsFectCf ee02_basl c'^) 
l)-rsFoesC^eaO]_c1 tes") 

.c "feeJMuclt^leiageO 

^:feeOS_p>»otx>-) 
^feeOfcJWxt") 
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rsF««9. Close , 
•SQLfeesa-Select * from fteJT iriwre fe«_type » 02 
*rsFees.open SQLfees. cnSeardi 
■fee«ratcl2=riFee»("fec_rate") 
'rsFees .Close 

• buyer.i do^OOOOOOOl" 

Set rsPastosServer.CreateObjectCADOOB .Recordset ) 
SOLpasta'Select • from lMjylog_t " 

-and lNwlo9Ji«iCL.1d to«ne_1d A"'" *- , ^ , , , . 
-order by buy1og_buyer. buy1og.name^1d, buy1oB.feeL.1«vc1 desc 

rsPast.Opcn SQLPast, cnSearch 
if rsPast.BOF and rsPast.EOF then 
past.1evclB0 
else 

past.1 eve1«rsPastC*biiy1oftjfieeil evel ") 
end If 

•Response .write "buyer_Hd «>uy«r_jd 
'Response .write '•father-id="&rather_1d 

* Response .wri te "pastel evel =i"4pasO evelf 
rsPast .Close 

'Response.Wrlte -past-"«past_lewel&"current«"tcurrent-lewel , 
checlL.5tate«curr«nt_leve1 - past_level 'convert to all nunenc result 
if cheelestate ^ 0 then Mf current is less than or equal to past, stsop. 

•If past-level * currenOevel then 'this apparent effuallty wasn't equal - needed conversion 
'Response.wri te "was equal" 

exit sub * short cut the subroutine 
end if 

'Response .write "didn't exit sub" 
ch«rges=0 

for x=^ast-level-t-l to current_level 
charges^chargesrt^feesCx) 
next 

pub_i cNl ef t CMameui d , a> 
^Response .write "pub^ids-ftpub.id 

•H?need^ [lpdate*rt^Se files at this point: the buyers, the sellers and the log for our statistical runs. 



SQUbuyerfe" select * fro« buycr_t where boyer_id = "fib«yer_1d 
set rsSuyer - Server .CreateobjectrADODB. Recordset") 
rsBuyer.Open SQUxiyer. cnSearch.adopenOynannc.adLoclcOptlorfstIc 
rsBuyerCDuyerjunpaidI^cct'')=rs6uyerC"buverjjnpai4-acct-)_ 

4aMnSES^rsBuyerCbuy«r.*«'^*s-P«rcent'*) ^ 
rsBuyerCbuyer.^les^todate")=rs8uyerC"buvcr_saleSu.tpdate-5_ 

.<HWWE5*r«BuyerCbuyer_sales_percent") 



rsBuyer .Update 
rsBuyer. Close 



rouonvvr' to Initialize all computational fields in the database _ ^ . _ 

• othenrfse the null value will kill any coraputation* and pother will be stored there. 
SaLpublisl^^select ♦ fro« publi&her.t where pub.id = '"ftpufauld 

Set rsPiAlish = Serv«r.CreateObject("AtX»B. Recordset") ^ - ^ 
rsPublish.Open SQLpublish, cnSearch, adopeRDyn«ric,adLockOpt1nnst1c 

' Response iWrlte -pub_ji»ianie="«rsPublishC'pubjBnaiiie-) 

rsPubl i shr Fub_unpai d-accf )«rsPii>l 1 shC" Pubjunpai d-acct")_ 

4charQes*rsPublishC"pub^lcsjpcrcent ) ^ « 

rsPubll5hrPub_sal es_todate"3=rsPubl i shC-Pub_sale*.tPdat«-)_ 

■♦charges* rsPubl i shCpub_s«les_percent-) 

• response .wHts "chargesf-'ftchargesf ^„ ^ 

• Response .wH tie •'pubjjnpaid.^cct*»-«rspubli shClHib_ftinpaid^»ccr*) 

rsPubl ish .update 
rsPubl 1 sh .Close 



SQLlogs" select • from buyloo_t " ^ 
Set rsBuyliog - Se iver .CreatcobiectC-^DOOB.Recordaet^ . . . 
rssuylog.open SQI.I09. cnSearch,adopert^mam1c,adlockOpt1nristic 
rs8uyto9 . Addnew 

rsBuvtx>oC*'buy1oq_buyer") ^ buyer..id 

rsSuyljogCbuylogijiame^id') = nane_id 'nancid Includes the publisher nunber. 
rs8uyU>g(~buylog_fecL.l evel * ;)=current_level 
rsBuyU>gCbuylog_i ncoine-)=cha rges 



rsBuylogC buy! og^date" )=now 
'rsBuyLogCbuylog-time )stiine 
rsBuyLog.Update 
rsSuy Log. Close 



SQLloos" select ♦ from log_t " ^ 

set rsLog = Server .Cr«ateObjectC"ADOOB^ecordseO^_ . 

rslog.open SQLlog, aiSearch,adepenOyn»ic,adLockOptim1st1c 

rsLog.Addnew 

rsiogClog.buyer") - buyer_1d .„ 
rsLogC'loglrMnML.Id") « name^ld 'n«nie_1d Includes the publisher nmber. 
rsLog?-lo9_f eft_lewel'*^-current_l "vel 
rsLogC-l og^i nooine'*)Bcharges 



rsLogC"! og.date")! 
rsljogC"log-ti»e-)« 
rsLog. update 
rs Log. Close 
End Sub 



time 
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<INPVr TVPC^-swbmit" valuc=**5H0yf details for update" id=subifrit2 name=subnri t2> 
</rcm> 

^S^hri^^nuhobl.asp->Rctum to Hobbyist Main Menu </sx/p> 
</e0DY> 

</HTWL> 
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<» Languagewescfipt 1^ 

^ttptlcn Explicit 1^, ^ ^ . ^ 

«erA fMNS-'GENEMTOR" Gsnttn^'MlcroCflfft visual studio 6.0'> 

<nTU>H0B8V PCDXatEE lllwrSVTITLE> 
<H3>M0UV PCnGUE UM«TeVH3> 

<800T> 



<d( 'begin persen-sMltxh routlna 
Dim X, »tni, chk»p«rson_1d, 11ne_cnt 
Dim cnSearcn 

Dim aNmneWasChecked OtEOWKDCHARGE 
Dim stert_person_1d, »urria9«up*ited 

Ota WSPlAimElAnVt-TyTE 
aWwMWa irhrrkrfl-r''ll** 

4tart_peraon_id-requestC5taiX^rsoiu1d'') 
TococnRiiGqiuEsr to aoo im personAeiative 

IF REQUESTCSEUJWOE-^-IIDr then 
' FROM dbsrcX4S 

x> 

<FORM METHOI>»POST ACTI<m=-dbsrc267.a»p" 1(ferfbni2 naRM^ora2> 
<far>The screens will continue and add NEW 
^i-f request("ADORELATIVE-)-"C" -mCJOb- OULD. 
<a(else1f requestCADDREUOTVE'^'S" THCMb SPOUSE. 

<Xend 1f%> 

<br>5tarting Personcp^ 

5!5uT'T?PE«"TEXr Mltt="start-1iwe" SIZEolS vBliie»"<Sfcrequert(-startL.ln«e-33fe'-> 

Snput TYPEs.'^TEXT" HM*«E-"start/ha««" SIZ&slS valua-'^requestC'startJffnaae")*'^ 

Snput 7YPC^"TEXT- stairtunnM*" S1Z6«15 va1ue-*^requestC"»tBrtjwwia»")lfa'-> 

^R> 

SnrIt T5p&.-TDCr IM»-startJ>1rth_yMr- $IZE«4 valuft»-<aE=reqiie«tCstartJ>irthjf«ar->X>-> 
SSfVT TYPE-TExr NMEi'atart-peraon.sex'* Siz&a value---«T«auMtr«tart_p«rson_»ax-)x>-> 

JlMPOT'rrPE^-Texr i«A«=-st*rt4>epsoa-1d- Sr2fc=14 value='-^re<juest(-atart-peraon_1d"J«^"> 
<ZHPlfT TYP€=-TEXT" HAME»"«»_RELAriVEJTYPE" SlZE^l vallie-"'<W€qu«Str«ddrtiar«V« )»• > 

StPUT TYPe-*subBrit" valuea"ADO RELATIVE" id»sulnrit2 n«ne»sijtni t2> 
*END IF 



'BEGIN PROCESSING OF HOf FOCUS CHOICE^ IF ANY 

El self r«q«a»tC"»«lJ»oda")--POais- THEM 'okta is default 
*11n«_!cntsO 

FOR X-I TO session C"spousa_cnt"> '2S 

SnUMUCKTCOOOCAX , 2) 

IF RBJUESTCSCW*S™)-1 THEN 

OKJ^SOICID-REQOEST r SID"4STRX) 

aNamen aschec ked-" Y" 

s> 

4F0RM METHOO-POST ACTiO»="db»rc260.ajp" id=*om2 n»e=forni2> 
The screena will coiTtinue with therjew focus chosen. 
<brXINPUr type-checkbox naaiasdikOOOl valuEkI checked> 

SSurH^PEsTlxr IIAMfo*-oHd.1d000r S1ZE<:a4 valuea-<Sfcchkj)erso»L.idJI>-> 
<INPUr TYPE»'Wr NAI(fo"Tln«jCIIt- SXZ|^l2l?fr-l> 

<INPtjr TYPEo-sutaHt" valu^-owrriiWE- Id-sUbnitS n — —« u h «1t2> 

EMD ZF 
MfXT 

FDR Xia TO »e»1on<"parentL^nr") '2$ 
srR3Maon-ro«>O*«0c.7] 

IF REqMESTC"POIK-«5T»X)»l "mEJI _ 
CMm»ERSOIClD=REQUEST(-plD-»STRX) 
LMa»«lla»diecked="Y^ 



<FORM ME7Y1G1VP05T Amo»>'-db8rc260.asp** Idi^mZ n8R»<ft>nA2> 
The screens will oon^nua with thijnew foa« nar^ £!S**"- 

SSpUT'TYPI^'*TEXr- IWM=-gHd-1dOOOl- SIZEP14 va1u8s-<afecN(_person-1iB>-> 
<INP0T tvpeb-text" nmbm-'Un qjan^ SIZC°2 %«luc»l> ^ _ 
^NPvr TYPE^"»uhBit" value-'aMnmiE" li^sulntta naiiie-sufanrit2> 

S/FORM>- 

END IF 
NEXT 

FOR x-1 TO sesrtonCcMld^t") *25 

Response .write STRX 
•chIcnaoe-*chk-lfStni _ 
IF REQUESTCCOOCtoTRJO'l WEH _ 
CNK..patS0ILJDL=REQMOTC"CID-«5nU0 

«MaaM!Kaso»ecked«**Y** 

X> 
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<RlfM METH0CVPO5T ACnOII="db»rc260.asp" id=f<Dm2 lUne^reOv 

^SSVm contin^ with SJ«"« 

4brxiNPUT type-dMckbox fuoMsxhkOOOl valueoI checked* 

<XIIPUT 7VI»E--TEXT- iMMfe-Tine.cnf 5izi« valu^^ 



END IF 

"iTit gets here, there m no box ch«ked, w re-u*e start person id. 
If «NmwasChecfced:»''N~ then 

<br>^Mrvr type-checkboot rame»€hk0001 vauiEbI checked> 

SSpurTSpE-^TExr •iAME="grid_1<»00l- siZEilA v«lije»-.«=requestC"»tBrt^er»on_<d*5»'"> 

<INFVr 7YPe=-TEXr MA«E--TirMt_cnt- 53Zf-2 Vb1u€;j1> 

SmwT TYPE--subimt- value--COmiNUt" 1d»sutMrft2 n«»«H*n1t3> 



end if 



' so DO ahead and display the Mlected person 

ELSE '^•S of perton^iidtch section OR person-add secHertb 

<RMH METIKXMW ACnow.^re266 .asp- 1d>^nnl naw!-ronil> 
Starting Person^ 

lS5ur^TVPE»-TEXT- ii«iE--start-lna»e" SIZ&-1S value«"4Skreque$tC"startJn»ne-)«*"> 

cIMPUr TYPt=-TCXT- 5tartLfr«n«' S12E=U value='*<S{=requestCstart-^nanie")»>-> 

SJpof Trpe--TEXr NAit--$tart:jm«»e- SlZfclS va1ue--<»-rcQue»tC»tartjna«e->JC>-> 

SiiWT TVPC--TEXF- »u»"stariLJ)1 rtK^ear- »ali,«-^reque»tr»t.rtJrirt*uyear-)»>-> 
Smpvt TrPf-TEXr" NiWE^-start-personjex- SIZEal values" <»=request<-start-persoiU8«-)Sb^-> 

SSpOT'TVPt»-TDCT- MAWF-start_p«rson.1d- SIZEsl4 valuer" 4afr=requ«str»tartu)erson_id-)K>-> 

SSwrJpflTildden" i«ME»"sp«»se- SIZE^l valueB"4»=requestf;;spouse-^&.-> 
SwS TyPl--Wdden- HAME^-parent- SIZE-4 PraJ^^ 
Sim TVPI^-hlddai" MaMEa-chnd* Sllfci value.-^requestreMld-5l^"> 

2t cnsearch « server.CreateObjectCAi'W»*Connecnon") 
c nSearch.open "dbl* 

If requestC'focus-)-! thmj 

OIKJ«RSOIIJ[D=RBqMHTrstartLeer$on_id D 



FOR TO sesslonCspousa.cnt > 

STWWUGHT C-0000-4X , 25 

•Response.wHte STRX 

'€hkname="c>*"AstrK 

IF Re(JUESTC"SCMir»STWO=l TOEH 

iHsplayNMie otePERSOttJP. S** start-parso«.<d 
<H »pl ay^ml ati ve_type-"S" 
• Response .wHte "chk-4strx 
■Response .write REPMESTCchk-tetnO 
' Response .wHtie reque»t<-9rid_id-4stnt) 
•RSponse.Wrtte START_PERSO«JID 



'EXIT FOR 
END IF 
NEXT 



FOR TO sessionCPXftEJrr.cmr) 
STR)MaGin-C'*0000'*&X.2> 
'Response. write strx 
•chknanc-"chk"«r5trx 

iHsplaytt«e cncPEftSOiiJ^O, "P" 
df spl ay_relat1ve.typo-"P" 

END IF 
NEXT 

FOR x-1 TO sef»1o«C"child_cnt") 

STRX=ATGHTC''CX)QO'*«X. 2) 

'RMponse.wri te strx 
•chknawe-'chk-Astrx 

IF RE<lUESTC"aWK"*STRX)«l TJJEM 

d-i splay_relat1 w«.type-"C" 

END IF 

Hcxnt> 




«aW>3 S PLA,y_R ELATl V^TYPE«>"> 

SrWT TYPE^-TEXr ll*MEa-«arHa5S3pdated- SIZEpI value»-<5fc«arriaoeUpdate«fl^ > 
^j!pi?"TVPC»"aubBlt~ valtie»"uPOATE WMf IteiteltZ niac-stibBrtt2>- 
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laao If 



end of wain pn^rm 



•If rcquestrMUMMC-VsaHE*- 
'2.Bts1c Data 3. Cites 4. Text S.Clte 



6. rtnto. 



strSQLp-'SELicr ♦ 
"froi Hp«rsoo.t ^ 



Sub DisplayNanc (ila>ie_id. relationship) 

Dim rsSearch ' « rsSearchF, rsSearchM 
Oim strSQt4> 5trS<y.lF, strS<».lM. SQ}.fces 
Oin strSQLM. rsKarr, persofusex 
Oin iiarr_hus^, •»arrjrife_no 
Ola StrSQLText. rtfText, rev_all, l1n«_ho1d, 11 

Set rsSearah » server .CretteObJcctC'AOOOB.RcoordseO 

! 

•Wi^ peiwiid - Sna««.1d *— 

research .Open strSQLp, cnSearch 

persoojMX »rsSearch("p«rsofus«x") 
•Father of Startina Person <eR> 
'If rcquestC"rev_ail"l>l then 
If relation»hip»"F" then 
Response .write <*<Mb 

««* - ^ 

If reli[t1on«h1pa"S" then 
Response .Write C^tt fa 

If relatlonship-"P" then 
Response .Write r<B«>— 

if r«lationship-"C" then 
Response .Write (-<flr 
end if 

Response.write r-<flR>i*a«e: Last ) 



-ocus Person t 



response.write 
Response.write 
response.write 



-A-^Ms"*" s1»-50 >") 



J<l»iPUT typ«=teKt nMespersoOnjaw value*"*" *"SrsSeBrch<-peraon»ln«Be")4' 
_ -SS5r^type«text nane=person.fn»ie walue='*«"*-4rsSearch(-person_fn«ie")ft"*-*-4«2s"&" ilse^ >"> 

^5^h:!riS ^?SSJ?"type.text na«e-*.ersoajr«»» value-"*— ftrsSearch<-p.rsoaj»tan»-)&—&-«#32;-A- slze-SO >") 
'3SlT^5p^*«"t^'«»«**«'*»o'^-3««« value=***-"'4rdSearch<"pcrson_3nane")*""'li"l*32;"*" sl2»>30 >") 
'SltpS?typ«-t«Xt naN-person.t1tle valoe=-»"'"ftrsSearchrpersoa_titl€-)4---«-4#32r&" sIZB-JO >") 



Response.write 
response.write 
Response.write 
response.write 
Response.write 
response .wri te 



;"^MPlJr typ^text n*mo-persoa-sex valu^"*rsscarch("person_»ex")*'*i32;"&" size=l >"> 



SJp2!SJ:IIriS pSn^'^Ltext n«De=person_1d waliic=-&rsSearchrperson_id")&-«#32;"*- sixe^4 >") 



response ^ , 

'above, show name to be updated 



If request C rev. 
Response.write ' 
response.write 
Response.write 
response .wri te 
Response.write 
response .wri te 
Response .Write 
response.write 
Response .Write 
response .write 
Response.write 
response.write 

Response.write 
response.write 
Response.write 
response.write 
Response.write 
response .wite 
Response.write 
response .write 

Response.write 
response.write 
Response.write 
response.write 
ResiMnse.wri te 
response.write 



-iiR^eirS^Year" 

"-ciNPUT typ»>tcxt n w B b 1rth_3fear v»lue«"ftrsSeaPch<"birth_3rear^)ft"4i32j' 
"Shwt^ type-text nwao-bi rthjnooth valoe=-*r«SearchCbirt*uwnth")A"«*32:"*" siws=2>-) 



;•*" Slze«4>~) 



irthjfay va1ue-"*rs5€archC'b1rthjd«y">»*4#32;"*- size=2>-) 



-Day") 

"^HfVT tjfoc-text nw 

*Spof%T»e«text naiBc=birth_yr_accur valu^"&rsSearchCb1rth«yr.acf:ur")4"4«2;"*" sir 
^'<XNPUr type=tot nasesbi rrtueEIUdate value=''4rsSearchCbirthjCeo.date")4"&f32:''& sl2e-30> ) 
J"^PUT*5p^ext nwnet*1 rt*L^r_var value="ArsSearchC'birth_yr_war')at"4#32;"4" sizeB3>"> 



^"■aRPOT type^stext name=*ji rth_country va1oes**"'"«rsS€arch("hrirtlT_country")*"*"« fl#32; * 
C"<«>«»''*ce: State Cor level 2>") . , ^ - 

r <IHPWT typei^xt nane-bi rthjnate val ue=-** * -*rs5earch("bi rth_s tate")*" -ft"4#32 ; sr 
("-<8R>Place: county (or level 3>") 
(•<IllpaT typestext nainesbi rth_«04jnty vmlu^** i 
<-48R>l>1 ace: City Cor le»eT4)-) , 
C<XllPUT typestext name-blrthucnty va1iie-~ar"'*r 



•«"a#32;''«* »1w30>"> 

size=30>") 

«r»SearchC"birttua»uity->»-"ft"W2;-A' s1ae-30 >") 



•*raSeardK"b1 rthjri ty")*" * 32 sl2e-30 >") 
f "<BR>Lati tude"D 

C^UPvr type-text nane-b1rth_1at walije="arsSearch<"birtiulat">**'«#32:"» size>lD > > 
hSSur ^Be=t»xt nwe^irth-long va1ue-"4rsSearchC"birth_1ona'*D*"«#32;''*" s1ze-10 >") 
^JlSoT^SQe-text n«w=b1rth.8cauKcur value«-4rsSearchrMrth_«eoj»ccur)A-«#32;-ft- s1xe>a>") 



Response.write 
response.write 
Response.write 
response.write 
Response .wri tse 
response.write 
Response.write 
response.write 
Response.write 
response.write 
Response.write 
response.write 

Response.write 
response.write 
Response.write 
response.write 
Response.write 
response.write 
Response.write 
response.write 



=^ri stening below 



'•'SSS'typStlSt nane-chri ^ear valoe-"*rsSearchC"chrisjrear")*-4f32;"&" sixM >") 

'SSwr^ types text nwne^chri s jwmth valiie«"&rsSeanchC'chrisj»ooth">4"ft#32;"«" slze^ >") 

'';SkpJt ty^»-rexc nMW-chris_day va1ue="4rs5earchC*chHsud«y"H"«'3i;"*' »i«ea2 >•) 

'5NPUT^type»texC n«ier«chris^r_accur value=r"»rsSearchC*chris>yr_»ccur*)«r*#32;*&* siye3l>") 
q f^^frrm date") 

^NPUT ^e-text nane-chri a_GED.date value»"ftrsSearchrchri5jCED.jdate'')*'"«#32;"ft" siie=30> ) 
'3SpUT\yp£text n»e=chris^r_var value=*&rsSearchC*diri5_yr_vaK")af~4#32;*'*'* sizq=3>") 



r'"<BR>Place: couitry (or level 1) ) 
^<INPUT type^text nafne^chri iwcountry values"* 

"<fiR>Place: State (or level 2)") 

"<INPVT type«text nnne-chri sjtate va1tiea"*"'*ArsSearch("chris^t«te''H * «*32 

-S!pST*tXeSSt^n£i4Sll_»2ty value.-«— *rsSearehC-chrisucounty->«— 4-ai32;-*" s1ze-30 >") 



'»rsSearchCchri»_oountfy->4"-4-4#32;"*" si»-30 >") 
'*- size=30 >-) 



l"«R>P1eccx City Cor level 4)"! 

. <IIIPUT typeetcxt nanei^hri^jelty valute"*"* 



•4rs5earchCehria^ty->*-"'*-«i32r*" slz^ >") 



Response.write C"<M>LRtitiide"} 
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response .write f'-clMwr tyge-toxt naceachHOat valije-"«r«SearchC-<*iriOat-)*"«ro2;-ar- s1z»-lD>-) 

?:igS;«:SFlS {^|S^y5^^n«e^H,.geaj«xur «li,e=-4rs5e.rchC-chriau,eoju:a.K^-W32;-ft- «1«d^-> 



Response .1 
rMpOMC.J 

response ^ 
Response.) 
responso.i 
Response J 
response .1 
Response, 
response, 



\ >-> 



write 
Write 
write 

.Write 
.write 
.Write 
.write 
.write 
.write 
Write 
write 



response .wn«B 

Response .Wri te 
response .write 
Response.wri CO 
retponse.wri tse 
Response.wri te 
response.wri te 



Response .Write 
response .write 
Response .write 
response .write 
Response .write 
response .write 
Response .write 
response .write 
Response .Write 
response .write 
Response .Write 
response.wri te 

Response.wri te 
response.wri te 
Response .Write 
response.wri te 
Rcsponse.wrlte 
response.wri te 
Response .Write 
response .write 

Response .write 
response .write 
Rcsponse.wrlte 
response .write 
Response .Write 
response .write 



tleath below 

p^SSf SSe3£?n«e«*«h^r va1ue.-4r.Seerchrdeath-year-»-«32r*- 
J^PWT^type-text nasn^athjBonth wl«e=-ftrsSeard.<-A«*thjeonth-)»-«»2:"a,- s1xe-2 >") 
l^iwr t^tmut n«iiie-<leat*uday v»1ue--«rssearchrdo»tKjJay")*"«tf»2;**" siw-2 >"> 
J^SSuTt^pe-text na»e»deottuyr.accur yalue--ftrsSearchCdeath_yrjicair-5»-4ff32!"a." size^") 
?-5nWT tJJSltext n£jK=deathjanLdate value»-ftrs5earchC-dc«thJSED_date->A-&ff32r&- si2e-30>-) 
;^!pWT*5pStIilt naaie-death_yr«var v»lue»-«rsSearchCde*tJuyr.«»r">A"A*32;-4- size=3>") 

3!?S'S^efSJT;ai^aJKli2^ y.lu«.-*--4rsS«erchrde.th-c««try s1«.30 >") 
SS?S}*Sp^JS SSelSSJn22te val«e=-&— *r,Sear*(-death^tate-)*— »-««2r*- »i«c«30 O 
-iSSjS^SicSSrnSjJSSLSSty value=-ft— •n.SearchCdeath.county-)*— 4-«32;-&- si«-30 !>-> 
"^J?5JS'Sp-22t^Si»^«£^*y value."*— *rsSearch(-death-c1ty->ft-"»-*«ir*- O 

^Sro^^iygSixt naffl«ieatlulat yalue=-arsSearchrdeath_1at-)ft-«a2;-»- sizeiOOy") 
hSipi?^t»text na»e=deattL.long value--4rsSeartiirdeatrulono-)4-4»n;-«r s1zeidO>-> 
-^HPOT%po=t:Qxi: rv^e^eatKjIM^cur value=-ArsSearchrdeath_aeo_BCCur^)*-»32;-*- 
^ri al below 

^'Swur'lSi-^SrLwrburial.year valiie--*rsSearchC-burial jrear->*-«32;-«- size-4 >") 
•5mwt^ type-text name-burial j«nth walues"4rsSearchrburial_i«oBth*H"ftW2;"*" >") 

tlSSpir twe=text n»4>urial_day value--4rsSearchCborial_riay->4-4tf32;"A" sl2e=2 >-) 
-^^^%pa«tAXi: name=boH al_yr^cu r wal ue="*rsSeiirchr b"" al_yr_accur")»"aiff32 : 
"3S^ nan)e-burial_CH3L.date vanue--<rr$s«aPchrburiBl_C£ILriate-)A-W32;-&" size«30>-) 

■^HP0T*typ2tait naBe=burial^r_var value=-4rsSean:h(-burial_yr„«ar'*)&-»32;-«- sizi^3>-D 



s1ze-l>*') 



s1zeia>'*> 



;"<BR>Place: Country (or level 1)"3 
"kINPUT typectext neme=burial_country value* A 
'''^ft>Place: State (or level 2)") 



&rsSearchC"burtal«country->*— »"«32;-A- size-30 >") 
'''<rNwf"we^text niai^riallstatB value="«"'"*rsSeafxhCburi«Otate")*"*'*4-»f32r4" sizc^O >-) 
^3Sw}"Sp^?'n£S«JS?ll!i2nty value--»--*r»se«-chrburial_c«inty-)&— *-M32;-A- siM=30 !>-) 
SiS'SiiSSt^SL^lGlty «l«e--*- -»rsSe.«hrb«ri.l^ty-)4— *-*«2;-*- size-30 >-) 

;"tl^*tj^t«t neB»«burial_lat value=-&rsSearchC"burial_lat-)«-W32r*- si»aO>-) 
[^^!!plr|$oLtext o«nie-burial_lon9 value--&rsSearch("bMrial^long-)*-««s-»- s1m-10>") 
^SSrar^t^tttcxt nE9»^rial_0«UKCur valoe-*«rsSearehC-hurialjgea-«air-5*-W32s"*" «1w-l>-> 



Response 
Resfionse 
response 
ROKjx>nse 
res(x>nse 
Response, 
response 
Response 
response 
end if 



write C'<BR>Identifi cation or Data Quality Notes'*) 

wrtte C<BR>Rotel:") ^ ^ , 

.write r<lltVVT cyp«stext n a w e-v e i s on-notel values ft 

XtritJB C<B«>«tote5:'*) ^ , 

.write C'^I'i'vr typci^ext na3i^ersonjwte2 values & 
.Write r<BR>ieote3:") ^ , , 

write C"<IllP«/r typestcxt niae-|)ersoa_note3 value- A 
.write r'<BR>iiote4:-) 

•write I'^HPVT typec^text naQeii^r90funote4 va1ue« & 
end of neae update 



'^1 -> 

If requo«t(''rev«*ll")=2 then ^ ^ 

Respw>se.Write f"<BRxBR>Oriainal source citations") 
Resoense .write c'^eRXtoteS:") 

response.writo rKlMPin- type-text naiBe=personjK>teS value- « 
Response.wri te f-<aR>»iote6:'*) 

response.writo ("«aHlvr type=toxt nane-^arsoo-potefi valu^ A 

Rcsponse.wrlte C^Bi^t^J") ^ ^r^y vniu**-*- 

response .write c <iiiwr type^text nane^tcrsen-note/ value- • 
Response .Write <-<fiR>llote8:") ^ ^ _ 

rttponse.write C"<IWVr type^text niaa=persoaJK»te8 valu^ A 

end If 

rsSearch .close 

•—start EBarriage 

if requestC"rev_An->»3 then 



"ArsSearehC*person_notel")A" ' 
"ArsSearchCperson-noteZ")*" ' 
"ArsSearehCpersonjnoteS")*'' ' 
-«rtSeardiC"per»oiu»te4*'>»* ' 



"Arssearch C*pe rsorunote 5" )4" 
' "ArsSearchCpe rson_note6">ft" 
' -ArsSearch("per$onjwoB7*)A" 
' "ArsSearchC'personjiotee")*" 



-A-M32;"*- ftl2C»80 >-) 
'*A"Aff32;''A'' s1ze>M> >") 
-a-'«tf32s"A'' sIze-BO O 
-a"M2rA- aizesSO >*) 



-A-Afl32;"A- s1z»«0>*) 
-A-««2;"A- sizea80>'*> 
-A-A«2;-**' siM^>-> 
'•4''Aa32r*- aize-80>") 



If relationshlps-S" tften 
Response. Cft^te ("^ 

sl?r«warr a Senfer.CreateObjectCADOCB .Recordset") 



tarriage event dat a 1 



•r then 
>er! 
id 



If person^ex >- 

aarrJiua_no » start._personjia 
inarrjirift_no - n3meL.id 

fttrr_hus_no « na«e.1d 
nBrr_jafif«-no - startuP«rson_1d 
end If 



strSQLi>'SELecr • *A_ 
-froB io«arrioge_t "A. 
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•sx=s>t+i 
loop 
tpQusejcnt^x-1 

nSpeuse. close 
cnSe&rch. close 



• nane,ciitMMnejcnt'*x-l 

• scssionC'ipousejcnf >iwiac-fint 



Add New spou8«<8R> ^ ^ 

<1i$iJt tyj»=.*rExr* •iA«^-«MweS« SI2fc IS > 

<input TYP^-TEXr MAHEs-SexSII** ^SIZEo 1 > 

<input Trre=-TEXr HMIfo-bdaySN- SlZE»"2-> 

^iipur TYPfe-^EXr" MAME^-countrySW- size-is values"0SA- > 

^NPUT TYPfc-'^TEXr" MAMEs-stateSIl" SIZ£^S > 
^lltVT TYPfc-'TEXr* MAMfe-COUntySir SIZE»1S > 

Add Joint children of Focus Person and »ew Sgouse<BR> 
1 <inout TVPEr-TEXT- MAWE*=-1naineSllCl" SIZE3^15'*> 

<inmJt TYPE-*TBtr MA»«E^-S«xSlilCX" SI2E= 1 >^ 

TYPE-TEXT- |«APff--b«)ntt.SMCl- SIZE=-2-> 
SnSt TYPE--TEXT- HAM&."bdaySI«n*' SIZE--?-* 

5^^5?^VPe?TE^T- MME^-countr/SNd- SIZE^S v«lue=-OSA- > 

?*<1np«t TYPE-TEXT* IWME="lnaiieSMC2" SI2fc"15"> 

<\nZt TYPEsi-TEXT- HA«E-"inna«oSMa azE^ 15 > 
SSSt TYP&i-TEXT- HAMfc=-$exSWC2- SI2E-i-r> 
Snput TYpK-TEXr MAM&.-byeartMC2" SIZE-MV 
SSut TYP^-TExr HAMfc.-'bmonthswa- S12E^^ *> 
3r?ut TYPE^-TEXr HAME--bd«ySI»C2- SIZ&.-2-> 

^JJ^^'SpSrSr- iiAME=-aKintry5MC2'- SIZfelS valu 
- •»vBe--Tnfr' iuaiE«*'s«ataSIIC2 SI2£«1S > 



<INPUf TYP6-TEXr- "«»K*=~"^'TSS'„« « 

<jMr\n TYPC^TExr- ww6--»tat«siia",siz|-is :^ 

SnPUT TYPfe=TCXT- l»«ies*Clty5IC2" SIZCfIS > 

ifiinput TYPE=TEXr M«!|-"1n«l«SHC3- SI2E^:ir> 

<1raut TTPEcTEXT- «A«&="ianameS«C3 SIZ^ IS > 

<nf5it TYPE»TEXr HMIE-^byeargKa- SIZ^ 4 > 
<1nM4t TYPE-TExr* MWIEs-bnonthSMCJ" SIZfc Z'V 

^EMPUT TTPEaTEXf" WAItt. ■"stateSNCS SIZE^S > 
<I«PVr TVPE--TBCr I«lfe--c1tySIIC3- SIZEslS > 

4!*ilnout TYPEpTCXT- ll*M^nna«eSttC4- S1ZE^-15-> 

<lRPIlt TYPEp-TEXr" N«Ca"MiicSIIC4- SIZEs IS > 
<input TYPE-TEXT- HAfc-«eJ«SMC4" SlZE=-r> 

Siiput TYPE^TExr NAME-:5ye»5S;i-^S£-3-. 

<1npuc TYPEjiTEXT" NAME«"bmDnthS«C4" MZE- 2 > 
<1rvut TYPfc=TEXr- NAME="tKlay5IIC4" SIZE= 2 > 

^SSt'typStot- NA«*.-coiintrySI«C4- siZfelS value.-USA- > 
<IiiPUr Ti^TOO: HMI£^:stat^ll2^".SIZEp^ 
<INPlfr TYPfeTEXr MAMEji-countySHCV SZ2&-15 > 
SmPOT TYPB-TEXr IIAI4E^-c1tySII04- SlZBiS > 

f^nput TYPE-TEXT W»*fe"lMii«Si*cr srZE=n5'*> 
<inpiit TYPB-TEXr HAlCEs-fnamSNCS^ SI2&» 15 > 
SiSS TYPE=TEXr; |»A#*E--«na«SMC5: aM.:i5-> 
<inpot TYPE-TBCr «^:»f»SMCS- Slg^ > 
<1npiJt TYPE^TeXT- •W«£^:byears»CS-_nZfe A > 
<itmut TYPE-TEXT- l|A«E-"b«OfYthSMC$ > 
<1f!p4lt TYP&-TEXr liAME=-bdaySNC$- SlZC»-2-> 

^Si!f*^i^ocT' MAiiEs-coimtrysMCS- sizepLS va1ue--usA" ► 
<IIIIVT TYPEgTEXr: M*^:«a"2Sc-'iSMc* v 

<iHRrr type^text- iwiiEp"cHtySMCS- SIZ&O.S > 

<input TYP£»"Hn)OEII" KflMEa-parentXNT" va1tte=-<%=paPentLXnt36> S12B- 4 > 
^SSSr'^YPE^-SUbmlf • VBlue--AOO NAMES OR OUNCE RXJUS" Id-suhaltl fwn«uhari 

c Ue 'second half of pa90 

ip REauESTCae1_i«wle-)--AD!r TOEM 
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D\m cnlrKMsr. rMwr. rslwHy. Indlif-ld, ln<Mv.1dJi«t. strSQLpub 
OiiD indiv_idL»tr» owner.ld, pub.1d 
Dial rsLinks 

Din ftther. nottier, cMId 

Dim IBU*!, 10^2, lOLSO. IBLSOCX 

Dm IO_Il! lOJSM, IDJSlia, I0LSIIC2, IQ-SNCS. I0-SII04. I0-SIC5 
•Dim 10LS1C6, ID^1C7. ZO_Sir:a. IQ_S1C9, lOLSiafl 
SP00SE^CKr=llBQUEST<-5K)OSejafr') 

•If »«»»iflorp»*"»»»«r 1»gS«d on-)»-publi»her logged on- ttwn 
*puki_id = s«s»1oo<"puMd^> 

■end If 

Dub id=reaue»tC"pi*-^d"> *P*»sed •long froo dbsrdSO and logpubOl 
^esponseTmrite '^Poaj&»'4PUBJto 

s2"aiSd?!°2°s«?wr .createob ject(-AOOOB .Connection-) 
fS"?iJj£Sr-"SJ^r.Cr..te0b4*rt(--WO08 

$trSQlpub="S«l6Ct ♦ from Publisher.t where pul^id • «pob«1d ft 

set rsLinks = serv^r.CreateobJectriOOOB.Keconlset") 
rsLlnks.Open "select * f"» J-inUj 

cnindi V . adopenoynaml c , adLocitOptiiin itic 

lOJ 1- reque stC* »terc_pe rso»i_1 d") 
• ID J l?»ttartu»ersonJ d 

set rslndiv « sepver.CreateobjcctrjgooB.Reeerdset") 
r«lndiv.Open -select • from PepsonJT,-., 
^^ind^ V . «lopenDynanic. edLockcptlnlstlc 

S*^¥*Sib5/3 then '»Mp .n the code if error occurred ebove. 
ItLplsi ndiw_<d_5tr 
Qe^date_HOve& "Pi" 

If^^K'^IiSS/^S then •sMp ell the code if error occurred ebove. 
IELPZdI ndi v_1 d-S t r 
DOI^«te_/toves "P2- 

*Add links for parents 

rsLlnks.Addnev 

r»Ll nk»rpersonl-5=10^ 

r»Llnk»C-per5on2 )»lCLjP2 

rsLlnks("relate-)="S»r 

rsLlnks.uixlate 



.rsLlnks.i 

r»Llnksrperaonl-)-ID«P2 
rsLlnksrperwn2-)«X0_Pl 
r«Llnksr relate->--SH" 
rsLlnks. update 

rsLlnks.AddncM 
rsLlnkftrpersonl-)-IOJl 
riLl nk»C*person2**>«»IOJ^ 
r»Llnk»C rel ate">"PF*' 
rsLlnks. update 



rsl.1 nkf Cpe rtortl" J=ID_P1 
rsLinksrperwnZ->-lCLJl 
r»Ll«kiC-rolet«-)«-5^ 



rsLlnks.i 

rsti nksCpe reonl->>IDLXl 
rsLlnksrperson2">IlLJ^ 
rsLi nksC re1ate-)«-Pir 
rsLlnkft. update 

rsLink«.^_^ 

•reoni: 

^ .vietii 

rsLlnka .update 

rsLinks.Addnew 
r8Llnk«C"per»onl"3-lBLP2 
raUnki<"person2")«IDJl 
rsLink»C"relate-)«''C»- 
rtLlnks .update 

*rftLinks.ClBM 

end If 'end perants section 



* strSJfar^ ghtt "0000"4Sx , 2) 

'SJpSSelilHte r^JMPtr tj5e=^xt naiie-- ft "Sfnai«- ft str5X ft " valuco-A--&r3Spouae(-pep«m_ftiaiae")ft * «nb8P: » s1ze-l$> ) 

;SESax5^ooiE!S¥'^^"'^™^ TO luycE THE swuse^ i«ro a meecR for oxpmusci. purposes 
do MMle Sx spause.jcntx 
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.trS».r1*itrW00rto.2) 
nLSOorequestC ids" * strsx) 

•reiponscwrtte " 1I)LSO--«IHJ50 

ic».l 

Sr«0^ jSr00(»-to .2>aH«ht(-0000-4^ 
'response .write ** STR5l«»"4smitx 

-reSof»«-«Hte b<ato-«M''<lSwT type-text timt^' * "Glname t, strSKX « sixfc^T 

If i^ije»trin«nellC*4strSK30 > " " ttien or reqoest<-fV»ameCAstraoO o"* then 

•if requestC'1r»MKSNC2") o"" or requestC^^wwsiiCa-) o"" then 

If'^^^iSi^ then 'skip all the code if error occurred above. 
IDJ50CDMndiv„id-*tr 

AddjchilSj^lnks itLJl. XQ^. XD.^OCX 
end if 
end if 

loop 

loop 

'Response .MOTE • I0fe-«l0( 
• Response .HRITE " S)^"&SX 



oegin New spouse and kids===— 
•can't do any kids without a spouse to link to 
IfVequestrinaneSM-) <>- or requestr^»«SN,)<>^ 
SucstJ-lnaneSMcr^ or 

rSuestriMRieSNC22) or "»<1ue«tC ftwBeSJC2^i 
r^strinaaeSMCS^ or '«Q««»iLS*~gg«< 

r^striraneSMCS-) o" or requestC"fha«eSNC5 > 
then 



' or _ 



then 'skip ell the code if error occurred above. 
I0_Sl»^indiv_1d_str 
Oo_updat«_l*>ves "SM" 

•Add links for spouse 
rsLlnks.Addnew 
rsLinksCpersonr^BlDJl 
rsLinks?-person2->«iajSli 
rsLinksrrelate->''S*r' 
rsLlnks.i^date 

rsLinks.Addnew 
rsLlnksC-personl >aniJS5 
r8Llnksrperson2->«lDJl 
rsLinksCrel ate")" SM" 
rsLlnks .update 

5? ^uestCnnaneStlCl**) o"' or request rfnanaSMa") o"~ then 

if^^rlw£ber^ then "skip all the code if error occurred above. 
m..SiiCl»i»di w_i d_str 

Do_updatfluJ«>ves "Si»ci" 

AddjQii1dJ.inks iqjX, icusn, io_si«a. 
end if 

end**! • en d of spouse and first child sccti on 

If reqijestrin«eSHC2-) o*" or reque»t(-ftMneSIIC2-) o"" then 

S^^SSSj^ then skip »n the code if error occurred above. 

Z0_SMC2Bi ndi v_idg 3 tr^, 

end if 

end if 

if rw)uest("1naaeSiiC3"} o"" or requestCtnaneSUCS") o"" then 

if^t^^'SSS?^ then -slcip all the code if error occurred above. 
lD_5l«CJ=*1ndiv_id-str ^ 

SSdSfldISS iSl, 10.3*1. IDJ5MC3 
end if 
end if 

if request ("lnweSNC4") o"" or reque3tC"fna«cSIC4") o"" then 

^f^^^'kS&f^ then -skip all the code if error occurred above. 
IDLS»«C4=iindiOcLj»tr ^ 

SSuf^^lSj^inks lOJl, lo_5N, ID..SNC4 
end if 
end if 

if requestrinameSHCS-) o"" or rcque$t(-<^>aineSMC$") o"" then 

if^tTr^SllSe?'^ then skip all the code if error occurred abwe. 
lOJWC l«ii ndi w_i d_3 tr ^ 

AdSj^l^jllnk* lOJl. XO..SH, lOLSNCS 
end if 
end if 

rslndiv.clot* 
c nindlv.cloee 

Sub GetJlextJ>iibLNiin 
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XffMKv.id - rsOMnerC*Piihuii«it_no ) 



liMHv_i«Lf»ext3-ii»d1v»ld*i 

tf «rT.mi«bers:0 and _ ^ ^ 

ln<«v_id_ncxt < rsOpwrCPubjMJCjiwctJio > then 

raOMwr.ubdate 
nONmr.close 

TRAICACnOH BECAUSE OF MJWER CWER-MiH 
if err.fiunber^ then 

«rr.niMb«n=99 
end -if 
rsOwner.close 
' cm ndiv. close 

End Sdb 



sub AddUcti11d-tinks C^ether, twther, child) 
'Add 1-inks for child 
rsLlnks.Addneia 



rsLi nk»C" person2-)=child 
rsLink5rre1at«*')--CB*' 
rsLlnks. update 

r5Llnks.Addn«f 
rsLink$rper»onl )=*»th«r 
rsLinksc-perionl )*chni<d 
rsLink»C"relatft"> CB 
rsLinks. update 

psLinks.Adcfciew 

rsLlnksCpersonl )=chTld 

reLl nl»r rel ate->a"PF" 
rsLlf^s. update 

r»Llnk«.Addnew 
rsLinksf"p«P»«fil )-ch|2" 
r»Li nksC-peraonrj-mother 
p»Ll nksCrel ate")»" P«" 
rsLinks. 



• 5 ?Ti»tCscrTng(l4.'-o")&indi««1d.4) 
r«lnd1v.Addnew 

rsIndWrperso»v_1d") = i"*'^''-i?^L.-*«rf»«^^ 
ralndlvCperson-fnawe J =» ^*l"«»^-™*»r*Vl2*< 

rslndivf" personal name-) » J™*??* 
r«lndivC:pers(m_sex"5 = 

ralodlvrblrttuday") - Request ("May drsufflx) 

raln*v<*MrUi_e<ty") s RMqueatCcity AsufHaO 
rslniHv. update 

End Sub 



will continu^th Ji^^ 
<brx]NPin- type-checkbox naaie^chkOOOl VALU&-1 checked>> 

^amli%>^-Ttxr NAtt=-aHd.idOOOr size^m value--«KiU£ST(-srARTj»pion-1tf'>%>-> 

ShPUT 7YPE«"TEXr I«--T1 oe^cnf SiZErf vali«=-l-> 
SMPUTTYPfc-Mdden- IW«--pubL.1d- value=;<X=gubJ«>- SIZE»14> 
SSpvt TYPfc."Wdden* liAl«»"entry.type- value»^'ENTER S12£^S> 

<INPVT TYPE^-whtlt- value--REVlEW AND comilUE WOMtS' id-suMtZ n ai ie ^ i *w 1ta> 

</FORIt> 

^^FORM wtooObPOST AcnoiU"dbsrcm-asp" 1(Wforw2 nanB^r«2> 

^PUT TVPE^-suborit- w.lue="AI» HMCS OR OUMGE FOCUS" id-subaltZ iw«ie-tt*w1 ia> 

</FORI»— > 

ELSE *0O FOOJS PROCESS ^ j «k 

Din nacfocuiLJfim. s, K, anamewasdieeked. OOCFERSOHLID 

'BECXN PROCESSXMG OF HB0 FOOIS CHOICE, IF AWV 

•Elsrif «quc»tr5elj»de">"F0CUS- THEM •mta Is deftult 
*11n«.cn^ 
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C:\patent\Hodyl es\dbsrcl61 . asp 



STIOfeRIGHTC*0000"&X, 2) 

IF REQUEST(-CHKP"ASTRX)=1 THEN 

CHK-PERSON_ID=«REQUESTC" IDP"«rSTRX) 

allaineWasCheckeii=2''Y" 
exit for 
END IF 
NEXT 

IF aNaiiieWasChecked«*N" THEN 

FOR 70=1 TO requcstC-spouse^cnt") 

STR)fcRIGKTC-O00O'-&X, 25 

IF REQUEST(-CHKS"&STRX)=1 THEN 

CHiePERSON_JD=REQUESTC" ID5-&STRX) 

aNameWasChecked="Y" 

exit for 
END IF 
NEXT 
END IF 

• strSIOt=ri ght C"0OOO"&Sx , 2)&n ght (-0000"&Kx , 2) 

IF aNamMasChecked»"N** THEN 

FOR S=l TO request("spouse_cnt") '25 
•just look for up to 25 kids per spouse 
•rather than try to pass a specific count to here 
FOR K=l TO 25 ' requcstC'child«cnt"> '25 

• STRX=RIGHT("0000**<iX. 2) 

strSKX=ri ghtC"OO00-&S .2>&ri ghtCOOOO-AK, 2) 
IF REQUESTCCHKOC-AstrSKXjJ THEN 

CHIC.PERSONLI0=REQUEST('^ID0C"&strSIOO 
aNameWasCheckeda**^* 
exit for 
END IF 
NEXT 
NEXT 
END IF 

• — ^ ^i^^^ 

IF aNameWasChecked= 'Y" then 

ne«(L.focuSu-naine=CHK«PERSONJD 

^ ^%ewL-focusjuw>e-RE<^ESTCSTART_person-.id") 
end if 



<FORM METHOD=POST ACnON="dbsrcl61-asp" id=d'onn2 name=:forTn2> 
<!— The screens will continue with the new focus name chosen. — > 
<br><tNPUT type=checkbox naine=chk0001 VALUE=1 checked> 

^NPUTHrypEs-TEXT- NAMER-grid.idOOOl" SIZ£b14 va1ue="^dS=new_focus_nameX>"> 

<INPUT TYPE="TEXT- NAMB="Tine-cnt- SIZE=2 va1ue=-l"> 

<BRxBR> 

<INPUT TYPE="hidden" NAME^"pub_id*' valuer" <%=pub_idX>" SIZE=14> 
<INPUT TYPE='* hidden" NAME="entry_type" valuc=*^ ENTER" SI2E=S> 

<2NPUT TYPE=- submit" values** CHANGE FOCUS PERSON" id=:5ubtnit2 name=submi t2> 
</FORM> 

<5KEND IF 'FOR ADO OR RE-FOCUS OPERATIONafi> 
<Xend if 'FOR ALL OF SECOND HALF OF PR0GRAM5K> 
<P>tebsp;</P> ^ , ^ 

<pxa hrefs-menul dxl. asp >R€ turn to indexer Main Menu </ax/p> 
</BODY> 

</HTML> 
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Uft0ua0e^scr1pt %> 
.dBirtlooHpHcIt , . ^ . ^ 

fflnclude virtual -"cowwn/adovbs.inc** — > 

•4«TA MMC-'OENEIMTOIt'' Cont«nt»''lH crosoft vfsuaY Studio 6.0": 

•<nTU>Pi9XaiCft IWME DATA CMANGES - SHOKT FORM</nTU> 
<M3>PE0iatCE NME DATA CHANGES - SHORT fOUK/iOy 



<X 

•if requMtr*t1_jnod«-)=-ACO" and _ 

• requestrif»«i*Pl">-"" and requcstrirMii^P?^)^ - _ 
•and reqiiest(-lfww»e'«»101'*>'"" requiatrinarieliattOl-)--" ^ 
•«nd reque*t(-lnimeMa)301">"" «nd requestC" lrMBieKC0401-V— . 
•and pequ«»t("lrwintsir)»"" and r«qaest("1n»eSiia->="" than 
if r«|ue»t(-«f»tpy_type*}="oiTER" Them 

•the only cIbb ENTER U not In effact is when data Is being 
•prt>cesscd by tha wcond half of thit prognw 

[code copied from dbspcl40 

If requester Ine^cnr*}-! then 'If Ofily one lume cooes In, take It without a checkbox bHtip set. 

STAIT.PBtSaiLJCMtEQUESTCaUD^DOOOl'') 

else 

FOR XfI TO r«Q\»stC"11na_cnt") '25 
STWfcRIGHTCOOOO-AX, 4) 

IF ReqMESTCCHirftsnbOai theh 

STARTJ>ERS0ILJ0eReQUESTC^GRZn_ZDr«STR9O 
EXIT FOR 
END IF 
NEXT 

end if 

cnSearch, rsScarch pssearchF, rssearctw, rssearchc, rsSearchS 
Din ST*Rrj»ERSOKJtD *, rastart-persoiuid, », STRX, 

Sat cnsearch - serwer.Cpeate(*jeetC'«X)DB. connection") 
cnSearch.Open "AV 

Sat rssaarch » Sarver.CraateObjactCAOMS.RacDndsaf) 
•Set rsLinknar a server.CreateobJectCADODe.Recordset") 

inoculd - rt ghrCstr1ngf«,"0")«*«quesrC''stairtLper«WL.iO»12) 
•BOfL-Td B fttart_person_id 

StrSQM^'SELECr person-id, person_1nane, persoa.fhane. 
"parsoq.jnene. parton_>«x, 4_ 

"h1rth_year, birth_aOTith. birth^day, birthjcountry, "A. . 
"birtK-stata. birth_jcounty, birth_ctty. birth.1at. birtlulong 
"ffw peraotut 

"where per8oa.id o Astart_p«rson_1d ft"*" 

if rsSearch. state a adStataOpcn th«n rsSearch. Close 

* rsSaarch.Open strSQip. cnsearch adopendynMic, adU)CkOptiaiist1c 

rssearrb.opcn strSQLp. cnScarch 



1^ 

4FGRM METHODmPOST ACTIOl^''dbsrclS3.a5p" id«fona naM<ifbnifl> 
Starting FOcus Person 

^NFVT TVPEa'hidden- ummc I'id-Start' SIZC=14 value="'dfc=rsSearchCperM«u1d">3S>"> 

^SR^ 

<INPUT TVPE»*a«CKBaar lMMCB**CMlL^ARr" VALll&il> 

tast 

<XMPVT TVPfr-TfXr* HMIE--lRMc_5TArr S I ZE-10 va1u««'*<9k>rftS«arxh<''p«raon-1naM->at>-> 

SrpSt tvp&'TEXT'* iMMEB*finanRj5TART'* slZEoOO va1ue3-<A=rsSearchCper»0fu fn— e *>»>"> 
<inwr TYPE* "TEXT iWM&>*nwieiaa_STAKr SLOmlD value=!"<3l=rsSearchC'personjnna«''>»""> 

tfNfvr TVP&*TExr" NAME-'^faMmK-SrARr'' size-Z va1uc-'*-dit-f'aSearehC*Mrd^0onth-)3b>^*> 
<ZHPi;r TVP&t-nxr IMtE*-MayjCTART- SXZG-2 va1u^''.dUrsS«archrb1rtltJla/')»''> 

Sex 

^MPUr TVPE»**TEXr WHEa'acx^ART SIZE>d valiie-"^UrsScmrchCpcrsoa-seir 



Swur'T^Pe^-TIxr* MA»l&-"«t*rtj>ar«oi\_id- S12E«1« valua»"^rsS«arehC"person_id")3U">- 
^8R> 

QNtntry, State. Ootaity, City. Latitude, Longitude in degrees and arinutes«R> 
.<EllPUr TVPEv-TEXr" i»AW--a)0»rrRYj5TART- si2E^l5 va1ii^'<3fcrsSearchrbirth-countfy")1^- 
■qUPVT n r WM' imi" ||RM^-STAT£_STArr' S1»1S «lue-'^.dfcirs5earchCbirch_state")1lb.'' > 
^UPVT TlfP6."TfXr IIAME»-Cnuiny_STARr SIZ&OS valuea-.dfcirsSearchCbirttucoiin^-)».- j 
<iHpifr TVP&^TEXT" iiAiK*'*czTf_STMn''' siZE^S valiia«''<dbrsSear«hCb1rth_c1ty'ls&'' > 
<Illfvr TVPfr-'TEXr IMN&'*LAT^Mr' SXZ&OB vm1iic«''-akrsSaardiC^1rthJat'')l^" > 
tfNPVr TypfiB'TEXr" iMNE»"U)i«^ARr SlZbdO va1ii«-"4fc*raSaarchrbirthJong'')a&'* > 

^aavr TVPC-'hIddtn" NAM&--pfib-1dr valMe»''^re«uestCpub-1d'*>&'* siZE-d4> 

>IRJ 

select Option :<4ir> 

•<Dmn typ*-- radio* HMMssel^de value-*OiANSE'' checked> 
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Ct\pttcnt\mduU>\dbsrclS? .asp 



1 want to Chuigc Oat»<br> , . 

^amr ^^"radle- n»wase1.»Bd* n1ue«"RXUS > ^ 

1 Mnt tpOmige "Fdcu* nrun" (chooM only on* nm>4R> 



raSMTch. cloM 

* Pro^rm db&rclSl crested fren db»rel41 

Din cns*«rch, rsSMrdi ', itSctrchF. rsScardM 

Via mrtart_peraefv.14 . - 

Din »tr5Qir. strSOLX. strSQtS. sCrSQLP strSQI^ 

Din X. strx 

tim rMae_cnt 

Dtm rsspouse, rsltldc, Stncx, SivSX, Ss. Kx 

irin atrSQI^ 

Dtn Md-oountcurray 



Set cnseardi - Sarver.craataabjectCMaoB.Gonnectlon'*) 
cnSearch.Qpcfi "dbl* 

•Set rsSeardi • Server.createObJactt'VWOCS. Recordset") 
set rsspouse o server .CreateObiectCAOOOB.fteconlset.'') 
set rsKlds - Server.CreatcObjcctrMXNM .Recordset") 

*flistart_perKm_1<fc>'*00000000011DS2" 
•■»t«rt_perioo_i d=>reijue»t C"»t»rt_pe r»on_< d" J 
StrSQUC-"5ELECT per*oo_1d» gersofulnaM» parsonjfnaaa, 

-KISj«Ke?*b?^3^co5ti. bTrtluclty. H rtlucountry, blrtiulat. b1rth.1ong. "*» 

"Mrtluyear, blrthjionth. birttuday. persanl. relate *_ 

"from Links_t. persoiut 

-where p€r>o«2-*er»on_id *_ 

•a nd personl^ '* aBSt>rt-p ersow_id *" 

'Focus Person 

I parent section — b^— 
*ii«s«_cnt«£ 

•If request("P**E«T-) then 
strSQU-strSQLX » " and relate Like '9%' " 

rssearch.0pen atrsq^. cnSearch 

Nam: Last pf rst— — — — Itiddle— — — Sex-vr—ai^-ClK-REClS'nrr 

<tt> 



41 

'parent, spouse. Marriaoo. child 

do while net rsSeanh.EOF and x-<99 
strx? r1 <dit COOOO**^.?] 

response. wrt te C"<br><lMPin' type»ch«:»d>ox r*Bme-chkP"4strX 4" VAUJE-^ ^ , 4 

response .write f-<l»vr type^^t n«»a-_ 4 .fn«eP[ 4 st^ 4 , 
r«sponse.ifrita C"<n»«T type*tmit name= 4 ,wweP- 4 strx 4 _ 
rasponse.wri t» C-^IWUT type-te»t mm-" 4 ^wwP" 
response. MHte <-«IMPVr type^xt na-^" 4 IbyeorP- t 
response .write f*<iwVT type-text na»^" 4 fawnthf 4 
response.wri ta <"<1HPVT typo'Oext nade-" 4 bdayP^ 
response .Mrfte I'^IHPVT type-text na«e=" 4 idP" 
response. write C<br>*tb5p;tobsp5 -coiput typ«»text i 

resooiise.wHte C<IWVr typfc^ext nj«ft-- 4 "stateP" 4 strX 4 " "lue=-4-'-4rsSearchrMrtl_statB-W;;4-5«2i"4- slp^ 



response .write C-^xwfVT type-text n«aa=- 4 'countyP" 4 itrX 4 ■ w«lue»"4"'"4rsSearA™i5ueoMnt» >*;--«^ 

■ 4 -TongP* * strx 4 " walu^*""4raSeardirb1rtn_l«ntf^"'-4-i«2;-*" s1xi»dO>") 




'dieckanddnive rsSearGhCperaOAjd*). •00000001", 
rssearchjBOven " 
•it then fi 

rsSearch. close 
parent_cnt-x 
^na<Bejcnr»««« 
•wdTf 



' sessionCparentLCnf >n«ne_enc 



'naae_/cnti4> 

StrSQLS-strSQUC 4 " and relate tike •S%' " ' should be S, mis 1 
'reiponse .write strsqls 
rsSpousc.Open strS<V.5, cnSearch 
%> 

<8lt>Spouses 

kld-counterjixey*"" 'string to hold kids-per-spouse counters 
SjuO 

do while not rsSpouse.feOf and Sx<99 

strSXari ghtrOOOCtSx . 2) 
inse.Wrlti 



Respense.Wrlta "<flJl>SpouM '45x 

responsa.wita r<d>rXINPVT type-checkbox nane-chkS''4strSX 4" VALU&a>") ^ , 4 ,c ..^ 

rmonaelwHte C^MVT MMit namtm' 4 "InweS" 4 strSX ft " valu^-4"*-4rsSpouserperaoiOnasie->4- -4-4#^^ size-ISO 
«em^l«rita i'^Sm rnm-^t mm.* ft "fhames** ft strsx ft - ».1iie.-ft"'"4riSpoim^perso^_fnaM3g:^4^M2:-4* s1m.1S>;S 
SpMMliirita ("^mlr MM^t nM*-- 4 -imms" ft strax ft ' Mlu^-ft-'-ftrSoeuserMrMiUMMM-^^ s1».lS>**) 
pSponMlwrlS C'<lNPin- MMxt nMe^ ft "scxS" ft strSX * * »alM.-ft-' -4?SpooMrpersonjsex->S='-ft-4#52;**- s1zesl>*) 
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C;\patent\wo<luT M\<tt»rcl63 . «sp 



rmuMmmM HHte frfMPVT tvo«»te(t nmm=' & "byearS' ft strtX ft " value--ft*'"Ar$SpcuscrMrth-y«»r-)ft,_.* ftf^i * *1x«M> ) 
!!SSS!'Stt rSSpUT SpStSt 6 -Swrths- ft StrtX ft - viW-ft-'-ftriSpouMrWi^L^onth;^ 

tZrite f-^NPVr Soe^ext rtti»-" ft 'Ids' ft *trsx ft " value.-ft"'"ft«Spo«5€rp«r«jru<d*)ft" ft"«fHL.* "li^i^i-?..*^— ^ 
^SffSi'TRti {-2r>IW>S?S5; typ€=t»tt «««-- ft -oountrys-ft »trsx ft - wWft- ••*r«Spou»«C-b1rt*LXOuntnr)ft-^"*-«#32;-ft^ »ii 



resp^^wHt* r<II»vr typeitett nmm=' ft * * I l^lHf!. 

M. — 3m ^**.*M««*> ^ — """^ • * • -'^ & SC^5X oi V«IUC« 



r«m»e.«Ht« r^lMPWr type-text n«-; ft :««[2XS" * * . 

raSwwe'v^n <"3!iput ^p^tnt iw»e-- A "lonoS" ft strsx ft " valiit=.-ft— ftrtSpoweC-blnfOong-)*-" ft-*#M:-ft" »1a 



«^ s{)ouM/lrid stuff here— 

•fiiyj Joint kids of two partnts ^ 
StrsQL«c="scLECT peracwuid.^person_iiMBne, fMrionjniaw* ft_ 

-K!^!!5Sr'b?S!!25Sw."birtKje1ty, Mrth-Mitry. birttuUt, b1rth_lon9. 
"Mrtluy«r. birthjKinth. b1rt>v_iiay. pcnonl. relate ^ 
-fr«plink»_t» persorut -ftu 

"end persofa« ftnstart^rson-ld ft" ftc 
" «nd riUtt Like *CI' " 4. 

■ AND person2 in • A_ 

*SEtECT pcrson_1d 4_ 
•fft» Links_t, p«r»OiL.t «u 
"where person2^rson_id ft_ 
*and peraenla '** ftr^nouserper«on_1d . 

■ and relate Like 'dT ) "ft. 



person2 in ' 

"SELECT pcrson_1d 4_ 
-fft» L- ■ - 

"where per»ofi«^wr»wi_»u . « - 

Busc^'perMn.ld") ft ft- 

•inffX motimr' t ID Juet abow 
riicida.0pcn etrsquc. oiSetreh 

&> 

«R>CMldren 
' OC B OU) KIDS 

S^le not rairtda.EDF and iom99 



C!!SS^ >-S!pOt SSS^t MB^- ft -byearOC- ft itrSWC ft " valoe--4---ftr«ids^Krth^.r-}&: :ft:«#32:X 



sEs^wSS ^^sas SESs? t =as!S&-*ft'Jt^** -"S^y^v-^ssjs pisesst^^*-^^^ 

S!SS:::S2 f SSSbSSSS? SKr ^p^SSt ni:^T5c!u«tSlS Str^'^lruS?^^^ JtKidtA'Jtiia,^^^^ * 
hSSSS JJpSSS SSS- 1 -Iy^^ t 5S?kx ft \^iu€.:ft-";*r«irtfcj-Mrth^tt^ • 15!=^*^ > 

ra^onse.write (■<IllPur typoatext name-" ft "longOC" ft atrSKX ft " vaiua- ft ftmcldaCWittuionQ >* » a#37, * sizoio ^ 
rsKlds.movenext 

loop 

rainds.cless 

Wd_anmterjrray-Md_coijnter.^ray •"flhtC000(r*Qt-lj2) 
; posit<ona1 counte ra for Ms , e.g-t spouse 1 has M kids, 

'■MMcnd spouscAld stuff 
rsspouse .Mvanext 

loop 

' spous«_cnteS)t-l 
rsspouse .close 

onsearch.closc 



spouse 2 has 06, etc. 



> fUM^cntf^wncjcnti 
MssionTspouseua 



<inp«t 7VFE-''HID0EJ|- lKW«-"perer*t-afT- valu^-^dbmrant-cntfC^** size- 1>^. 
Sijut TYPfe-mooeii- l*»"WdjDOunter^rniy^ va1iie.-M14joounter..arreyb- 

^i!S^'^TVI>&n'*«iln1t" va1ue--aiAN6E MAME DATA OR CHMIGC ««OUS' idsMteitl fiMMi l li hnri tl> 



else 'second half of page 



IF «eQUC5rC»«i-J»»«te->-oiAiia- 



DiB cnxndfv, rsindiv *, rsOiiner, indlv.ld. Ind1v_id-nekt. strSQlLpub 
•irtm ind1vJd_»tr, owner.ld* poluld 
'Dim rsLlnks 

'Din father, aother, child 

'0\m ID_P1. ZQ_P3, XD.SO, WJOOi ^ 

•Sb XLn! ZOlSn; ZdSiKI. IQ.5NC2, IQ.SM3, IIL9IIC4. ID_9IICS 
Dim strsxx. apoiis«_cnt. sniuse.fifrx. parent-cnt. parent-cnts 

%'nSl3rULSlC7, tD..*lCft. ID.S1C9. Zn.^300 
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H4_a>unter^rr»y-reqoe8trirtd,,^^ 

*p«^1d - MstlonCpuMd 5 
*e1se 

*erT.nuii)erB&8 
'end If 

•pub.1d-reqi»$trp**L.<^> 'pissed along fron dbsrdSO aitd logpubOl 
'PUB 1 ^"0000000001" 

Set «lndiv - Server .Create0bjeet:CA0a»*Conn«:t1on'0 
cnlncHv.flpcn "<fl>l** 

Set rszndiv ° Senfer.CreftteObJectrADODe.RecordMt") 
rsZntHv.Open "Select • frara Perwn-r.- 
cnlndi v , adopcnOymnri c. edLockOptlivi sti c 
*=^ART PERSOII ^ ^ ' 

If r«questC"chl(-»tert")=l^then 
DO l^datOtoves -^t*rr 



* ~Tf»arcntS5 
gir«nt-CnOt=parent_cnt*l 

00 «h11e X <a parent^ntx 
strtfenghtC-0000-4x,2> ^ ^ 
If r«ii«tC"chkP"42trX)»l then 
DQ^u^cOtoves -P &»trX 

loop 



=beg1n old spouse/old kidsi 



'pluck fron array of 2-^ar counters 



do while sx -oi spouse.cntx 
strsx=rtflhtC"0000"4Sx.2> 
If reque«tC-ehkS-*«trS)0-l then 

'get'the kid count for this wmm. 
idrd_.cnts«rid<k1dLjcoiinterjirray,(C«-l)*23+1.2> 
KapKl4_cnt*l 
Kxal 

If rMuHstrchkOCr&strSa)-! then 
Do.updatej«»ves -oc"Astrsioc 
end If 

loop 

loop 

efOndiv.clo«e ^ 
* Response .MOTE " »&» ttO( 

*Response.MtrrE - sxs-asx 

In New spouse mnd kid i 



NUMBER FOR COMPARISON PURPOSES 



)_Update-Moves <«uff1x) 
r_iaL»tr -^9ht:fstr1noa4.'*0-)» put 
ft rlghtCstringh.'l , -o'')ft1 nd1«j1d.4) 



pub_1d,10}_ 



Stib DO. 
'Indiv. 

h right C»tr..^^-., - -v 

if rszndivrstate - adstateOpon then rslndiv. Close 
•»trSQljupdat«s»"»«lect * fro« PersonJT «^re 
- " ^ *-i per sofu inane, persorx_fnai»e. 



St rSQLupdates-** SELECT perscn^id, 
-persoojivMBe, person..s«x,_ _ 



-birSjtate, blrtHjcounty. birthjcity, Mrth_lat, hIrthJIons "a_ 



•from persorut 
-Mhere per»oa.id > 



AtriisOtequestrid-«suff1x3) ft"" 



-.open StrSQU4>dates, 
:ndiv.adopenoyna«1c,adLockopci»i»tic 
rsIndiv.EOF and not rslndlv.BOF then 



rslndiv 
cnli 

If not rslndiv. 
• rsindi vT persofxJd'O,^ 
rsindlvCpersonjrnaine ) 
rslndlvf-personjaname"! 
rsIndivrpersoiulrHwe > 
rslnd1vf"p«rson-jsex ) 
rslndi vrbl rth_year^5 
ptindi v<-bi rtKj»nth*> 
rslndi vC'birthjday-) 
rslodivi - - - 
rU Rdiv< 



- tri«CRe5ie«t(*fh«se-teuff1xV 
. tHB<RequestC"n(aiBe**ftsuffix), 
m tr1«Rcquestc*lnaBe*'&stfffix). 
e tri»<Re<joe3tt-sex"ftsuffix)) 
» tHinfRequestc"byear^*suffix)) 
B triB(Reque8t^-bmonth"4suffix)) 
m trinCRequest " 



^ _ bday-4suffix)> 

bli^c^^ry'V tri»?Reqijest^;country-*^Hnip) 
b1rtK-State-5 - trlot^Requestf^state Asuflixiy 



rslndivCbirth-county*^) o trt«?Request^ county **wffix>) 

^ =^^tv-5 - tHm?Re<|uest{;city"i«ufflxj) 

'Requests"! at*«»uffix5 J 
<^ ->-long**4suffix)) 



rsIndiwCbi rth^city' 
rslndlvf-blr^Uat') 
rslndivC-b1rth_long') 
rslndiv. update 
end If , 
rslndiv. close 
End sub 



. trim( 
s rriai<ReQueftt( 



4S=0(m XETH0O=POST *cnoi»=»"dbsrcl63.asp idsfomi2 rurae=rfpnii2> 
<l— The screens will continue wittjthe new focus name chosen.— > 
^rXMPVT eypeecheckbox nameschkOOOl VAUiEal checked> 
Refl1stry# 
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C ;\p>tent\ , itodu1 <s\db sixl63 



^nWT TyPfc=nEXr IWM&»-grid-.idOOOr SX2Esa4 value:«"^E(lMESr("STAICr_person-id'*>Se>"> 
SmWT TYPE^-TEXr* IIAM&=-line_cnt- SI2&=2 value--l > 



<lllivr TYPe--Mdden- IWM&»"«f»trY«type" value-" PITER" S12&=5> 

<IIIIW 7VPE-"subBrit- value="REVIEII AND CONTINUE UPDATES" iifcsubnrttZ iiame=siibortl2> 
<B« t 

<!»R1RM NETHOOsPOST ACTION^-dbsrclSl.asp- "!d=fonn2 nam«sform2> 

<lMPUr TYPE="8ub«rit** va1ue»-ADD NAMES OR CHANGE FOCUS- id=sul]nrit2 nanie»$ut»i t2> 

</FORM— > 

Si^nei5o2Sa2?^sf K. aHanielftisChected. CHIO>ERSOH^D 
•BEGIN PROCESSING OF NEW FOCUS CHOICE, IF AMY 
-El sell 



ElMlf r«qu«»tC"M!l-l"«*c-)«-FOCUS" THEN 'DATA i* default 



aNamcwaschec kecN" N" 

FOR x^=l TO pequestC"parent_cnt") '25 

STR**IGHTC"0000"«X,2> 

IF REQUEST (-CHKP"&STRX>1 THEN 

cwLpersonjid=requestCiop-«strx> 

aMamellasCheckeda"Y" 
exit for 
END IF 
NEXT 

IF aNanBe«asCheckcd="N" THEN 

FOR TO requestCspouscL-cnt ) 

STRJwaGMTCOOOC'&X, 2) 

IF REQUE5TrCHKS-«rSTKX)=l THEN 

CHrO>ERS0N_H>=REQUEST( IDS 4STRX) 

aNw^WaiCh«:ked=.V 

exit for 
END IF 
NEXT 
END IF 

• ltrSlOferioht("0000-«Sx .2>&nghtrO000'*4lCx,2) 

IF aHaiDe»fiisCheckcd=;N" THEN 

FOR S«l TO request C spousc^cnt ) 2$ 

•just look for up to 25 kids per spouse 

IF REQUESTC"CHK0C-totrSI^^4jHEN 

CH»CPERS0WLIMEqMESTC*XO0C"ftstrSI00 

aNamewasCheckeds'Y" 

exit for 

END IF 

NEXT 
NEXT 
END IF 



IF aNanieHSisChecketf3**Y** then 

neic.fbc«SLJ»««e5=CHIt-PERS0N_ID 

*^ **neiC.focusLjwmeaJiEqMESTC-START-pcrson_1 d-> 
e nd If 

%y 

4F0RM IIETHOOaPOST ACTI0N="db$rcl63 .asp" id^no2 niBac*fonn2> 
<l-!orKr»creen5 will continue with the new focus name chosen. --> 
Sr>^PUT typ«-checkl)OX name-chkOOOl VALUE^l checked> 

^NPUTTfYPE^-TEXT" NAM&=-oHd_idOOOr SIZEsa4 valuer" <aS=neii^focu5jwme»-"> 
<lHPUr TYPEa-TEXT" NANE«-lin€_^cnt" SlZt^ value-"! > 

SSpi^'TYPEs-hidden" NAME»-entry_type" value-" ENTER" SIZ&»5> 

KlNPin- TYPE-"»ubiirtt- valu^'CHANGE FOCUS PERSON" id<>SUbBrit2 nane«sul»rit2> 
</FORM> 

^tEMO IF 'FOR CHANGE OR RE-FOCUS OPERATIONX*- 
<jKend if 'FOR ALL OF SECOND HALF OF PROGRAI«f> 

^^i?h?il!l^^idxl.asp->Retum t» Indexer Main Menu </tix/p> 

</B0OV> 
VHTML> 
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C:\Datfcnt\llDduT»\db «rcl6>.i 



^ Lwiguage-AfUcript Sb^ 

if5*;Kc?iS*5{JtSl.-c<«on/«l«l«.i«c- -> 



SIctT ll«C--GaiERAT«- a>ntifit.-lrtea»«»ft V«««l StixKo 

,aTTLE>PEOlGREE NAME 2S^Ji*^.Z.^f^SJS!!l!^^ 
«3>ra)iaEl NAME DELETC UMRS - SHIWr FCIRIK/II3> 

Vheaoo 




-«nd rSuestriiwiiwSN-J"-- *^rem« li-«siici > then 

'procesMd by th» sec ond half of this prog raw 

'code copied from dbsrcl40 

If r«niestCH«LJCiit->l then 'If onlv one nam coms In. take it without a checkbox being set. 
STA«T_PEreOMJD=«BJMESTr«IO-X00001 > 

*FoI x=l TO requestC"lineLJcnt"> '25 

EXIT FOR 
END IF 
NEXT 

end If 

•cHm cnseapch. rsSearch rsSaarchF, rsSearchM^rsSe.rchC. rsSearchS 
iHw 5TART_pCRS0HJ10 mstart-persoruid. STRX, 
set cnsearch = Server.CreateObjectCAOOOe.Connwition") 
cnSearch.Opcn "<ftil" 

'Set rsulnkmar » server. createObjectC aDOOB. Record set J 

•rasiainu)ersoruid .= rightC»trlng^8,-0-)»rM|aest<-start4»erson_1d-).12) 
■wtart^arsonJid o 5t:art_per5on_ld 

strSQLp-'SELECr persoiuld, gtr»oa_l™«. persoiuft»«i 

-birSt3S«, blrth-county. b1rtKj:4ty. birth_lat, Mrth_1ong 
"frcw person-t "fiu , . 

"wher« per»on_id - 4stariL4>e»*««-<d * 

if rsseard*. state « adstateopen then rsSearch.Ooie .^^^.^^ 
•resSrSZopen strSQLp, cnsearch adopendynwifc. adUdtOptfnrlstlc 

rsSearch.Open StrSQLp. cnSearch 



%sm METHOO-rwr AcnoH=-dbsrclBS.a»p" Idi^na n«»fpnni> 
5SS5T"*YSS^w55S?"NAME--idjta^ 5I2Erf4 value-- A.r»SearehCper»n_id")«>-> 
Ji^IMPUr TVPEa-OKCKMOr BAM&i-0«_SrAirr VAU)E-l'-> 

"npi/T TVPE^-TEXr- MAME--lnam-STAKr SlZfelD va1ue=-<atraSearchrper»on-lnflme-)»^-> 

SnpSt TYFE^TBCr HAHE*.-fhw«^ARr SIZfclD valuea-.dfcr»SeaixhC-perion_fn«e-)»^-> 
SSwr TYPfe-TEXr NiM&.-iMeJSTAflrr SlZE^UO valu^-^-d&ir«searchCP«r«oiuw«m")%>"> 

SISIt TYPE-TEXT N«lE="by«ar«5TART- SIZH-4 val ue--'dfc^^arch01 f^yeaOSfr 
SwT TYPE-TEXT" HAME=-bdayJ5TAKT- SlZE-2 value=--«fcr»Search( birthday* )9fi> > 

SfVT TVPE-TEXr- MAME--»ex^ARr* SIZL-l valoe--<»-r»S€archrperfOO..*«X")»-> 
"^"TvPEoTEXT- NAMEp.-atart_person-.id" SIZE-M va1ue---<».r.search<-p€rson-id-)«>-> 



(^!^4-rv CtMtr* Qiuntv. Citv. Latitude, Longitude in dearees and iirinutes4fiR> , 
5K5?wS%Xr S*IE?SuMS^l5TARf-^ Y^^^Sf^^'^ej^^^SJiT^^S??^ 
SSwr TYF^TBtr H»t--STATE-START- SIZE^IS valuo--;a-r«S«ardirb1 r^tatO^^^^ 

Shput type-Text- NAME=-crTY_STAicr- sizEsdS Value- VWsSearxh01rth»c1iv > 

SSuT TYp£-™r «AME--U<T_START- 512^^ ^^V*" > 

3w5t typStexT iiame--loiiq_START" SIZ&40 value--<a6-r«SearcbC"birth_long )3b- > 
<IiiPUr TYPEs-hldden- HMtt--piAj!d- tfalu«-"-«flUrnue»tC"p44i..id")«>- S12Ert.4> 

51?5t 3Si?^K- n— «lj«Hl. v.lu*.-CMANGE- checked> 
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LSI? 2-2?I2Si?^!2Sfeljwte «lue--RWJS- > 

iJSt to S-S •"^y »)<8R> 



• proQrm dbsrdGl created fh» ^rcXAl 

Din cnsesrch, rsSeareh * . r««»rchF, r«S«ardM 

Dlra strSQLC. strSQU, »trS<jLS, »trSQLP . itrSQU: 
iHm X, fttrx 
Ola namucnt 

Din r«SpouM» r«icid», stfia. StrSX, sx. iCi 

Din strSQLsc 

(rin M4_counterjrr«y 



S^oisurch - server.CreateObJecrCADOOB .Connection-) 
crtSearch.Optn "dbl" 

•set rsse*r«h » 5«iver.Cre«te0bj«t<-A00CB.IUcordiet") 
set rsspousc «• S«rKr.Cr«ateflbjectC^ADODB.Rtcor«s«t-} 
set rSS - sefver.Ci»»teObiectC-A0001.Recordiet-> 

■|ii$tart_p€PSorL.id-'*000000000110S2" 

•BStartLpersoful d=request C"»tArt_p« rsoa_1 

StPS<JLX-~SeiECT p«r»on_1d, gerson_1na«ae. person_fViaR, "A, 

•KiJSSStT'bf^SSsSSE;. MrtKjclty. birth-country. bIrtfuUt, Irirttulong. 
-b1rtH_year. bi rth_pionth , birttuday. pcrsonl. relate 
-frDmrinks.t, penon_t^ «l. 

■and peraowl^ *^ l<wttartLp er»on,1d ft 

'Focus Person 

'If requeitCPAREJIT") .'V then . 
StrSQU^trSQLX * " Biid relate Like n 



—•riddle Sea-Vy-HtH-OO—RESISTHy 



'parent* spouse, marriage, child 
xpO 

do rsSeareh.EOf: and k-<S9 

response Inrlta h^tuvr type^t n«»=- 4 "manep- 4 strx 4 ~ !*'^»^SIp*'"*°'*-''''*^^-a-L«^^ ^ 

>-^upin- tvoe»text nane-** 4 •sexP 4 strtC 4 " value- 4 4r»searchC'per«on.>ex")&" 4 4*32; 4 »ize=l> 3 

S;SSSS:5l2 J-SSSS nSS- • -gSrP- » itr* 4 - va1iie=-4--''4rsSearchtg»^ear:g^^ 

?-<TMPirr tMMitext nmB^' A "iMOfithP" • %trx 4 " value«*4"'"4r»searchCb1rTh_iBonth*)4""'4"4#32:''4" sizBo2>*) 

rft«DOf»« wrlS f-xiMPlfT wp^text naae-" 4 "IdP* 4 strx 4 " value--4"— 4r»SearchCpersqn_id-)4 4 «#32: 4 »i'«^i>.2.«,^„.--» .4.^ic^ 
reS^-!^2 i''Sr>Sb3;Slb5; <iufVT type-tert r«n«-- 4 -countryP-4 %tiX 4 " value=-4- •-4rssearch<-b1rth.jo«ntrv")4 4 tf32: 4 sIre-lW 

r*«iiAnL «Hta r^WT tOT»text oaBne=" 4 "»t»teP" 4 stDt 4 " va1ue«*4"'''4r»SeaPchCb1rthJtBte->4"'"&"4i32:-&" si»l&"5 
^SS^'ShS f-SpUT typStntt JSE- 4 -cSmtyP- 4 strx 4 ' va1uea-4-'-4rssearchrMrtluoiuotY*)«''--4ri#3i;-«r.»l2e^^ 
Mrite KSwr SSm^c nSE- 4 4 Itrx 4 - v.1ue--4''''-4r»SearchKlrth.citv"i4'^"4r4#Hs"t" «3»S5>') 

^SSSIShS FSpOT typS^t 2 -llS^4 rtrtt * - value-'-*-'-4rsSearchrbJia^t:)^SMSi2K 35^=" ?,^^ 

'Chedcandcharga raSearchCperaofU'ld"). "00000001", 1 

research JDOvancxc 

'if jt^ then flrstreo^rsseardi.boDbaark 

rsSearch.dese 

perent..cntrt 

* nnML.cnteMML.cnt4-K-i 

•end if 



* sessi ooCparentjcnO^wae-ait 



strsqLfi-strSttJC 4 " and relate Uke *«• " * ihould be s. was »A 



'respona«.iirft« strsqis 

rsspouse-open strsq^s, cnsearch 

4R>Spouses 

lridjeotmter^r»y«"" 'string to hold kids-per-^MWse counters 

do ahile not rsSpouse.EOF and Sx<99 

strsj&iH ghtC O000''45x» 2) 
Kcseonse .Mrl te *<BB>Spouse "tSn 

?Sponse.»Hte f'^n^HPVT type=<heckbox njwK-d»k$''4.trtX 4- ^AU)C»1>:) , w • -A-a«3S -a." .1>tei5>- 

rMOonse.wrlte C"<imput t:ype=teJit nanie-- 4 "lr»«s- 4 sti-MC 4 " v*}***^ *^, ^^pouxCp^ruM^jM^ Z*^}l*mi 
ISSoMelwHte (-SSpvt §«^text nwe-' 4 "ffwes" 4 atrSX 4 " va1oe--4- -4r«Spou»e(-pertoiu1^wt-54^ ;4;5«2;-^^^ !2!^H^4 
!SSo!SeI«r1to cSSpSt Spe-tvct nnae-" 4 "onawS- 4 atrSX 4 " value=-4-:-4rsSpou»«^peraonjiiane-j4^^^ 

mSS! write rSSS Spe-text n«e-- 4 "seas- 4 strw 4 " Mliii^"4—4rsspottaec'^rwiiui«x-)ir-4-4#32;'4- size^") 
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C;\p«ttnit\HaAilMVdbf rclfiS.Mp _ 



re >penM .write 
rc iponse ,tirr1 te 
response .wHt* 
re tpons* .writs 
reBoonse.write 

nmonse. write 
nipons*. write 
response .write 
reiponse .write 
re^MHUC .write 



C-^MWr type-ttxt MBw»' 
("^MPUr typotext: nmtm' 
f"<IHPirr typtalxxr nwe-" 
C*<iMRn' cypcsCtxc names' 
r^fan^nbsp-.fcibsp: <INP«/T 

C-cun/T typeatext naM=>'' 

?'*<XMPur typeetaxt nr 

C!«"»W typvtext 
r*<IilPiir ^fMstmt 
C''<IMPUr typc«txxt 



4 •bywirs"^ 

4 -Ids* 
typeatcxt 



ramtm' h "oountiyS"* itrsx * " v»Tue-"4" ArsSpouseCblrth-countr/*)*"' 




I SPOHM/Icid Stuff I 

'flifd joint itiM of two psrti 
StrSiy.so«*SELECT perseiuldi | 



persofUiwiMM , perbv>ww«« 
"b1rth_stat«. bmiucounty, blrthjclty. M rthjcowtry , b1rtru.Ut. b1r«h_1ong, 
'Mrth^tr. blrttunonth. MrtKjdiV. porsora. relate ^ 
■fn«i Drtk^^t, per«NUt 'It. 
"where per*on2i*ersofuid "4- 
'and pcrsonls AastsrcperK 
■ and relate ulVe 
- - - 



' AND ^rsonZ In 

-SELECT persof^ld " 
•from Unka^t, p«rs<«_t 
'where p«reon2s0erson.j1d f 
"and personam * 
" and relate tliu 



'insert asther's 10 just abowe 
rsKfds.Open stfSQLsc, cnScarch 



'parsoa.1d"> *" " *. 



<BR>Chndrcn 

* OC • OLD KTDS 
KXi4 

do While not rsKids.EOF and Kx<93 

us£:i$^^ssss;^£;:i^gHtcMooo-«ex.2) 



response. wHte 
resixmse. write 
response .write 
response .write 
response .write 
response .wHte 
response .write 
response, write 
response .write 
response .write 

response .wTi %e 
response .write 
response .write 
response .write 
response.write 

rsKldajnowefMait 

kXMkx+l 

nSds.close 

Iridjcounter.^r«r»k1d.countar^rray «HghtC"00pO"4lOi-l,2) , ^ « _ 

'positional oounters for Itids, e.g.. spouse 1 has 03 Itltfi. spouse 2 has 06. etc. 



•dirxINPUr typMi)eckboix nMachkOC"Astr«XX ** VALUE-1>'> 
'<ZNPUT typa^text nsiaa-- 4 -InaseOC- & strsia 4 ■ value«"4— 4rsic1ds("persoiuTi 
'<IKPUT typeetext ram=' 4 "fnaneOC" 4 strSW 4 " value3"4***4rslCidsf 
'•aNPUr typ^text nMB=''' 4 "amanwoc" 4 strswt 4 ' va1ue-*'4'"-4rsirtds( 
-<11IPIIT type-text nsne-' 4 "sexOC- " 
'"'<lllPUT typ«=text naee-** 4 -byeeroc" 
•aHPi/T type-text mm-- 4 "b«>ntfio< 
•<IllPWT type>text n«e-" 4 "bdayOC" 

'<IKPUT type-text nwee-" 4 **idoc" 

" * - - ~ KiNpuT typestext nanie=>' 4 "countryOC"4 

['<iupm typ*Btext nm&-' 4 -statoOC" 
!"<Ill«ir typestext n«>e=" 4 "coi^ityoc- 4 scrstoc 
r<XlllVT type-text na»e»- 4 "cityOC" 4 str^KX 
typwtext - - — - — " • 
*<XNPUT typ^text 





I spouse A^d stuff 
r sSpouse .wovenext 

'Sx^+l 
loop ■ 

* spouse.jcntc^-1 
spous^cnt^Sx 
rsSpouse .close 
cnsearch.clete 



-<fnput TrPErn'moKM" aw«-"sPous«jOfr- valu^'-^Sh-spouse^tab.- size<-"4*> 
<fnput TrF6?»"ia:Di)€jr f«M£="parentt_on"* valu^"-dtcparent^cnt3b-" SIZ&«"4"> 
<lnpiit Typfc."iaootii" ii*»iE--ki4jcounter^rray" tfalue»"<5Ukid_co»»iterjsrrayJE>- SI2E=-100'> 



^UtRir TYPCa'siAMit" valuea-OWMGE MME DATA Oil OMNCE WUS' Id-sutnitl nwnessufaai1t]> 



else 'second half of page 



IF itEqMESTrse1.K>de''>-*'a«ANGE- tkcii 



dIb cfiindlv. rslndiv *. rsowncr. Ind1v_{d, Ind1v.14_ncxt. srrSQLpub 
'Din lndiv_1djstr, owner.id. ptifat.'td 
'Dl« rsLinks 

'Dim father, nother. child 

•Oi« IDuPl, TOJ»2. lOLSO, ZD30CX . ^ 

'Utn XELil. 1Q-»N. ICLSNd. I0JSIIC2. Z0L5NC3, ICLSIIG4. lOJiNCS 
Oim strSKX, spouse_cnt, srajSEjamc, pBrent_pi(t, parentjcntx 
Diw lCl(L.cnt, Ka 



Disi S ttS^ gdates 



1BLS1C7, ]CL3lX:S. tBL91C9t XOlSICIO 
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lrl4_c«mter_«rr«y»r«qMe»t<*Md.comttr_j»rray"> 
sf>ouscjCMTB4icqMBTC;sPOUscjc»rr*) 



'err.nwAensM 
*Md If 



'pub.itfc*reiiu«strp«A.1<r> 'passad along fn* dbsrclW md logpiM. 

set cfiXndIv e server. Create** jectC*«»6.C3BnnecHon") 
cnXndiv.Opcn "cftiX" 

set rslndfv » server.CreateobjectCAOQOS. Recordset") 
rsindlv.open "select ♦ fpow Per«oiuT,_ , 

cm ndi V » adopenOynawi c , adLockOptlwi sti c 

If request ("chle^tart")"! then 

DeJMidateJtoves "_$tart" 
end If 



' ggjiffi-r arent a " 

parentL-OitxwparentLjcnt*! 

DO while X <» parent^cntx 
strtferi ^tCtXWO'Ax.ZJ 
If requestC''chkP~&strX)sl then 
DoJj|^t«_Moves '*P"AstrX 

xax-i-1 

loop 



•egin old spouse/old kid a^ 
SPoS?!ST5SJoOS£!ST*^r^TvST[S^ TO MAKE THE SPOUSEjCMT IITTO A HUNBER FOR OOMPARXSON PURPOSES 

5X91 

do while Sx ^ spouse^cntx 
»trsx=rt oht<"0000"*SK , 2> 

If reqijestrchks''&strSX>«l then 

l)ttJJ^at«J*>¥es "s'terrsx 

'get the kid count -far this spouse. 

Kn-cnt-faidCk1d_counter^rray.CCsx'l)*2)il.2> 'pluck from array of 2-char counters 
Kei«fcLjnit*i 

do i*ile KX <= Ka 'was 6 

straOC=HghtrOOOO-ASx.2)Ar»ohtrOOa)"«X,2> 

If peqoestCchbxrAstrswO"! then 

Do_UpdmteJtoves -OC"*strSKX 

end If 

loop 

5xsSx-»^l 
loop 

cnlndlv.clese 

ftesponScWITE " KXa*«KX 

Response.WITE * stm'i&x 



eegin New spouse end IcidsM 



sub cwuUpdac«LJ«>v*s f suffix) 
•IncHvjfdlstr -HghtCstrinQCM.-O'H pub_id.lD)_ 

A Hght<str7noa4.-0*>*indiv^1d.4) 
If rsZndlv.state - adstateopen then rsindiv.Close 
*»tr9aLupdates-i*'S«1ect: ♦ -from PersonJT Oiere ' 

StrSQUipdates»*SEl.£cr persoiuid, person_1nafM. person_fnaiae, 
"personjonsMe, pertonjBex, *&. 

''b1rth..yMr« bi rthJMmth. birthjday, birth-Country, 'ft.^ 
"birthjstatt, birdLcounty* birtKjcity, birtlulat. blrttulmg "4_ 

-35S!!e**SSSiid*^ - •tri»iOieqoastC"1d"*niff{x)) A-" 

rsindlv.open strSQUipdates. 

cnlndi V , adopenOynaaH c , edjockOptiori stn c 
If not rslndlw.EOF and not rslndlv.OOF then 
•rsimHwrperson^-id") = tHoiCR«P^st<'id"*suff1x)) ^ 
rslnd1vCP«r»on_ft»anw'> = tr1m(iiequestf*fn»Be"teuffix^> 
rsXndWt"per»on_r»ia«e") = triiaC«eque»tC'Ti"riaiiie''4suffix;) 
rslndivr-person-lnane") » tHm(Requestt"lnaB«'*toufPix;) 
nlndlvf'person-sex-) « trimCRequestrsex toufflx)) 
r»Indi¥C"birth_year"> = trimrteijucstC'byear^Asufrix^) 
rsmdlvCblrttuflwnth") « trtKKiieiiue8tC"b«onth-&siiffix)) 
rslndivr-birth-dayO » triio<Reqi»e*t(1)d«y"4s»fffix)> 
r«lndivf"birth-fOuntry")» trtrKiieqMe»t("countaV'**iiffi: 



rsXndiv<"b1rth_state"> - triaKReque»t< 
rslndWC"b1rtK-CO«nty*> a tnmCltequesti 
rslnd1vrbirth-citv"> - trinCRequestI 
rslndi¥f"birth„lat*2 « trfn^taqMest^ 
rslnd1v("b1rT*t ~ 
rslndlv.updatie 
end If 

rszndiir .close 
End Sub 



"coun tr/'ftsuffix: 
-statc"4soffix5) 
"county'ftsufflxy 
'"citV-iaufflxJ) 
•1at**»iifflx)5 
"long''AsufKx)) 



idnfbr«2 nww>ifbna2> 



<pom nsTHOOtmr AcnoiN"dbsixi6S.asp*' 

<1«>The screens will continue with the new tocus nane i 
^rxlNPVT typc^eckbox nme-chkOOOX vauug-1 checked^ 
Registry* 
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C!\i>atcnt\iip<iu1es\<ft>srcl65 .asp 



Snwt typS-tSt- NAKfc-Tine^nt- SI2fc=2 value=-r> 
<SR>^R> 

<ll««lfT 7VPE^"Mdd€n" HAME^i-entry.type" ¥aliie="trreR" SlZE?s5> 

<iHPur TYP&i-sabnrif • va1ue=-REVi» aw) coHaNUE updates" 1d=$tibnrtt2 naBe=»ub«it2> 

</FORM> 



<Sl t I 

fl^POM METHOO^POST ACnoH«"dbsra61.a$p- id=fortii2 nTO*fonn2> 

<IMPtn' types" sutarlf values-ADO names or change FOOIS" i*.sU»int2 naiiMiibn1t2> 

</FORM— > 

<X 

ELSE 'DO FOCUS PROCESS ^ . j ^ ..~mu 

Din n«i.fbcus_nane. S, K. aWameltosChecked, OACPERSOILID 

'BEGIN PRCXXSSXN6 OF NEW FOCUS CHOICE, IF ANV 

'El self I 



Elself r«qu«stC'8el_|i»d«-)-"R)CUS'' THEN 'DATA U default 
IteO 



aNaflieWasChecketlk='*N'* 
£freqmectC-oiicp-«stwO=i^then 



exit for 
END IF 
NEXT 

IF aNaiiie»fasChecked--N;; then 

FOR )C=1 TO requcstC spouse.cnt ) 

STWfeRlGHTf-OdOO;&X,25 

IF REQUESTC CHKS"«tSTRX)=l THEN 

Slt-PERS0N_ID=REQUEST("I0S'*4STI00 

aNMaeltescheckeds*'>r 

exit for 
END IF 
NEXT 
END IF 

'strSK)fepl9htC0O0O"tex.2)4rightrO0OO-«x.2> 

IF allamewasChecked=;H** THEN 

R)R s=l TO reque St C spoust.cn t ) 25 

•just look ?or up to 25 kids p«r spouse 

Vather ^^try to.pas^^a^speclf.™^^ here 

aNameWasCheckeds'V* 
exit for 
EM> IF 
NEXT 
NEXT 
END IF 



IF aNameWasChecked=-Y" then 

ne«L-focus.j«nic=CHICPERSON_JD 

**neit.focusuJWBe=REQUESTC"START_persorU d") 
e nd if 

%> 

<FORM NETH00«POST ACnOM="dbsrcl65.asp" idiifonii2 naiBe=fbiiia> 
:i??Tte^cfS^wi11 «ntin^ 

<br><lMP%JT type»=checkbox namc-chkOOOl VALUEsal checked> 
^NPUT'^Typ&>'^EXT- N«iE-"qrtd_id0001- SIZE»14 v»1ue--^Bt.foaiajiameaBy-> 
SnSjt TYPfc-TEXT- NAME*" Ti nt-cnt" SIZE^ va1ue--l-> 

^NpJ^TYP&»-hidden- NAMEs-entry.type" value--ENTER- SIZE»S> 

^MPUT TYPt-^wihnrit- value«*CHflNGE FOOIS PERSON" idssulBit2 namc=subrait2> 

^HD IF -FOR CHANGE OR FOCUS OPERATIOWfc^ 
^nd if 'FOR AU OF SECOND HALF OF PftOGRAieE> 

^^h?i^^enuidxl.asp->Retum to Indexer Main Menu </ax/P> 

</B(3Crf> 
</KTHL> 
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Iptlon Explicit St. . 



<aDpt1on Explicit 9- 
<l— fflnclude rtu*1»'' Li— un /adcfirtw.^ 

•«HTML> 



^tflCTA HMtEa'CEKEMTOR" CMltCfltf-'^crosoft Visiwl StUdlo 6.0% 

^riTLOPanCREC WWE deletes - short FOWK/nTU> 
<H)>PEOIGREE NME DELETES - SHOUT FI)IM</H1> 

See botteni of screen for Instuctlons and 1i«itKt1oi».<Bil> 

Mf r«|uestrsel jiode*')«-ADO- and . 

requesU-lrMwePl")-"" end requestClftamePZ")"— _ 
'«id reque»tf"ln«eHoai01")o— and requeitriiWBieiia)20r)=— _ 
'mA requc>tC1nMeNC0301'*5»"' and rcquestrinMeNGMOl")." _ 
'and reauetTCtnmmsm'^'"' ami reatiest('1rn0ieSMCl''>a'"' then 
if r«jue»trentry.typ«*V-ElfTW" TMOI 

'the only trlme CKTER It not in effect Is ^en data Is being 

'procns«<t by the second half of this progrm 

•code copied frow dbsrcl40 

If request ("llne-jcnt-M then Mf only one natm cases In. take It without a chectdiox being set- 
STig(TJ»ERS0«_IO=«EQUEST("«wnJ00001-> 
else 

FOS X*l TO remiestCllne^cnt") "25 

STIOWaGHTC-OdOO''*X,4j 

IF REqM€ST<-CMC-4STW<>-l THEN 

STMCT^PERSOILJtlMteQUESTraaOl^tSnUO 
EXIT FOR 
END IF 
NEXT 

end If 

*Olai ensearch, rsSeardi *, rsSeardiF, rsSc•rc^M, rsScarchc, rssearchs 
Dtn STAirT_PERSOICJD '. mtart.p«rtOfu1d. x. STftX. 

Set cnSearch - Server.CreaCB0bSectC'AD0OS. Connection"} 
cnScard«.Opon 

set rsSaardi - ServerXwteObjectCAOOOB .Recordset") 
'Set rsLinkHu' • Server .creatieObjcctC"MX)OB.Reeordset"} 

*a»tart-person-id - right(strlngCS."0'')4fr«questC**start^rsotu1d">,12) 
n»tart_person_''d « st»rt:j>erson^id 

Str8<tLp>"SEUECT persofuid. gersoOnane, persorcfruM. "CL 

"MrthjstaCe. blrtfLcouncy, b1rtK_clty. birthjiftt, b1rtK_1ong "4. 
"f roi person_t 

"tahare persof\_1d > *" Astart-persoiuld «"*" 

if rssearch. state » edstateopen then rssearch.Clese 

'rssearch.open strSQM'f cnSoarch *, adopcndyranric, adlAdtOptlartsnc 

rsSeardi.Open strSQLp. cnSearch 



<FOioi MCTHOOaFOST ACnOMs'*4»srclS7 .asp" itMbnei naM«fbml> 
Starting Focus Person 

<IIIWT TirPEp"Mddcn" MM&i'ltLstart- SI2C-14 Vftlue«"^t=rsSearthCpersoiu1d-)X>"> 

<i— iiiRTr TVPEB^acamix" iiME-'aic_STMT" «uiekL->> 
Last 

<IiiPtrT lypf^'TBCr NMEs'lnnc^Mr* SIZEbID va1iie«"<dbrsse«rchC"pcr9orulnam"»^''> 

SitvT TVPE5s"TEXr" iiMIE3''fhai)w_STMT" sfZ&ill) va1iJte''<dbrsSeerchC"per9onJftMae*>3l^'*> 
Kiddle 

^MPur tvpCb'text*' MMiEs"innMie_STMT** sIZEbIO va1uess"^[trsSearcliC'*per9onjvHeK"X&'*> 
Birth 

<INPIfr TVPt*i*TEXr lMIIE»"byear_STAirr SIZD>4 va1iie.-^rsSeaPchC"Mrt*iyear^)36>-> 
<INPVT TrP&'-TEXT" llWE>''bm>nth^Ai(r' SI2E-2 v»1uea-^rsS«archC-b1rdij»ntft-)V> 
^NPUT TVPfoTEXT" iMMEa''bday^AftT* SI2Eb2 vttliieB''abrsSearchC*b1rtK.dey'*)5t>'*> 



Registry* 



IMie-''stBrt.j»«rsori_ld' sx2&a4 VBlu*«"'dfr>rsSe«rchC~perBOiv.id''>S^~> 
<eR> 

Country, State, COMity, dty, Latrltude, Longitude in degrees and ■1nutes<BR> 
<ZNP(rr TYPE«*TExr iMME-~COUHTRY_STARr' SIZE^IS valuc= ^r»SearchCbirth_country'')»»" 
<liiMrr TVPe«**TEXT- l«WE^"STATEjrTAin^ SI2E-15 value='<af=rsS«rchCb1rt*ustate"^ > 
<lMPUr TVPEB"T6Xr IWI«Ea"COUKnf_STJ«T* SIZEiOi valuc="<W»Search("Wrt}ucoiaity^ : 
<IliPUr TVP&iTEXf M^tEa-aTX-STAfrr siZEsis valufe-*'-dt-rssear^rbirttucity">3fr" > 
<ZNPUr TTPEpTEXT ll^»"UCT_STNrr sIZE»10 va1ue»"^r$SearchC b1rth_l*t"5»." > 
<IllPUT iVPE»'*TExr' NAME-'tOHGLSTART" 5I2&-10 valutta"^rsSe«rch("birth_1on9")1^'' > 

<lllPtfr TYPE>i"Mddcn" NiM^*pub.id' VBluC3"<dferequestCpuh.1(r)1^" SIZE^4> 
select Option:<br>- 

<IMPVT typec* radio" naMe«se1_jD0de value-'OELETE" checked> 
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C :\p«tent\nadu1 •>\<fl>s rcl67 . «sp _ 



I want to oelets ilaie«<br> . 

I Smt to5«fW6 -FOCUS ^rwon" (<teoH only one nmeyaK> 



• PregrM db«rcl61 crj.t«d fron 
iHb X. » trx 

Sis rSpouM. rsicfds. StriOtt Strsx. Sx. Kx 
PIb strtQLsc 

lri4.«ounttr_arr«y 



sTSMTch • s«rv«r.crt»ttObJ«ctC-*i«».conntctfon-) 
tfi "dbl" 



Set rartdt - serwr.CreateObjiet<"*DOOB.l»cord»et ) 

•■•t»rtj«r«»n_1<^-O0OO00O0OUOS2- 
••stan_per«on_1 <hr«|iJ«t<"*tartLj»«rsoiui O 
Str5QU(!»'S£L£CT persoi\_id, genofulrwwe, persoa_fni«>t| 

-blrSuyeap. birthjwoth, Mithjiay. personl, r«Ute 4- 
-fra«Tink«_t, P«rsen-t "Au 

*Fect» pmoo 

partnt ••crlpin "■ 

•if r« 
StrSQLI 



liSoLTT - ml «>i«t. Like " 

rsScarch.0^n «trSO.P, cnSearch 

2U: U»t F«r»t irtdine 5ex-Yr"»«--C0— REfilSTWf 



parent, spouse, oiarriage. 




s i 5 SSI ^^^^^^^^^^^^ • 

rasfwfue.inite f-<3llWT type>tnit 
response .writ* r<ii«/T type^teit 

respon&e.wHtie r'<IWVT typt-tent 

resMnse.Kiite r<iiiPUT t>|w=texr nMe« 
response .wri te r<I«VT type-nxc n«e- 

•OicckaMldianiB raSearchCpersoaJd"^. "< 
Mf x=l then « r»trec*«SMrdi-bool«»r* 

riseerch .close 




'sesslonC 



StrSQLS-tcrSQLX ft " mi relate Like *«' " * should be S. ins VriC 
' response .wrfte straals 
rsSpouse.Opcn strSQLS. cnSearch 



Mdjceunter^rray^— 'strlnq to hold k1ds-per-$pouit counctrs 

531=0 

do while not rsSpouse.EOf and Sx09 
satBSK+l 

strS)ter1ghtr0000-*5x.2> 

Miponie.wrjte ,<M>?P51i*«, *«L^k^»^ «-.i_<4,fc<-t.ti-sx A" vauje-i>-'J - -'•-»-4«2-"4" size=15>-) 




respenie .write 

reiMfise.*Hte ,„ — - 

rewottse-MTlu C<XIW type-text 
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rMponscwHte J-<XllfVT type»t«xt 

rtsponM.wHtt r<lNPVT type-text i»WB-. • .«1«y5 .tJj'?- vjiJii^r 
response .M-itx C-awPur type-text * lonflS * «trsx • 

•■I I add »pouse/k1d stuff hmi L 
•find j<Hnt Irtds ©f tim MPents 

StrSQLsO'"S£LECT person_id, Derson_ln«M, perioiv_m»e. 

-KfSS!SSr-|.???^Jy,!^rt^'«y. birth.»«try. Mr*.l.t. Wrt»L.l-« 
"blptluy«»r, birthjBOfith. Mrth_day. personl, r«l«t» «_ 
-fro* Linkf_t, per8on_t 
-|*ere perionZspcrsofuid &_ , ^ 

•and person- *wtartLpersoiu1d » 
- and ralatft Like " 
" MD penon2 In " JL 

"SELECT persofuid 4- 
-from Llnk»_t, p«rs«ut «u 

"and personl- ArsSpouseCpersoru-id ) * *- 
" and relate Like 'CC > "4_ 

" OtOEX BY BltfTH-YEAR 



'insert mother's 10 just above 
rsKids.Open strSQLsc. tiiSearch 

<M>Childrcn 

-a 

' OC - OLD KIDS 

do Mhlle not rsXids.EOF and Kx^ 



" m. "k^unr* 1. ««v<iar & " value- & ArsKldsC birthLjoay J* * *#3/» » «ize«z> j 




response .write 
response .irrite 
response. irHte 
response .wHte 
response .write 
response .write 
response .wri te 
response .write 

rsKlds.iiovenext 

kx^^l 
looo 

rsxids. close 

k1d_x:ounterjrray-k1cLoountor_»iT»y *^9htrO0O0"«lCx-l,2) 

>iitiona1^our^ers for kids , e.fl.. spouse 1 has 03 Mds. spouse 2 06. etc. 

end spouse/kid stuff 
r sspotise JM»vcn«xt 

loop 

• speuse^t-Sx-1 
spou9e_«cnt^sx 
rsSpou sc. close 

cnsearcii. close 



• sMs1onC'*pouse,cwf>ni»e^nt 



<uS1a TVPC--HIIWCX: l«*«-:p.rent_Ofr ^^S2S?^2^Jfiv«>- SIK--U»-> 

•diVit TYPE- MiDOrw" NAME- Vnd_counter_»rray value- -**l«_eo«ntiBrjrray» swe* iw > 

Si^'^.-suhmt- y.l«C--OCirTE UmES OR OMMGE RKUS" id-SUbHitl f. «1 iM h ritl> 

•1*c 'Mcond half of p«g< 
IF REQUEST(-seljnode">'*OELErE** THEM 

pi. cnlndiv, rslndiv. rsLinks * rsO-ner, IRdlv.ld. Indfv.liUicxt, strSQMwb 
•|rt» lndiv_id^tr, owner.ld. ptA_id 
•Oim rsLioks 

•|rt» father, inother. child 

:a: l&S: SS; .i^. «^-". 

Dim %zrSKx\ spowse_cnt. SPOUSEJCHrx. parent_cnt, parent^tx 
Dim ICid_cnt. Ka 

S!» tSISSllSa, •trSQLdeleteg. strtQ|J«leteC3 
Din strSQLdaletaSl. strSq».ileleteS2, strSQLdeletesa 
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Of« ■trSQtdslfttxI'O. »trSQLde1«t*fl, strSatde1«teP2. strSQLde1eteP3 
Dim P^cTect«djcnt, Parentl, Par«nt2. P 

Iri jtjcounter_*rp*yterequeit<"Md„counterjirray") 

Sf>005e_CIITr«EQUESTr"SPOUSCjClir*J 
parent-cntw^uestCparent^cnt") , . 

If $€is1on(-piA11ili«r loQOTd «o->»>*H »»»•»■ '»99«* «» 
'pub_id s se»{on(**pul3ufd^/ 
•else 

*«rr.tiuii>ersU 
*end if 

*pub_-id°requesr('*pt±.i'd'*) 'passed along from dbsrclM and logpubOl 

'PUBuld^-OOOOOOOOOl" , 
Set cnindiv » Serve r.O-eatcObjectCADGOS .Connection*) 
onXndlv.open "dbl" 

sot rsLlnks 

set rslndiv _ 

'rtlntflv.open "select • from Per»oa.r*,_ 

cnlmh V , adopenOynasH c , ftdLockOptivi Stic 
'm^AfCT PERSOI^ 



rsLlnks • server.CreateoblectCADOOO.Rocordsot^J 
rslndiv m Scrver.CreateobjectCMiOOe.RecerdsefO 



'Xf requesi 



|uest(*chlL.sUrt">a then 
' itej«Dves ".start" 



parent_cntx^arent_cnt*l 
P_selectwLcnt=0 
X=l 

OO imile X <• parent-.oit3t 
strtfcri ^tr 0000"te ,2) 
If request(-cWcP"*3trX}=l then 
*p1ck the first tun parents checked and process them. Must have two 
if P_s«l«cted»cnt < z then 
P_sel ecte<Lcn^p_sel ected^cnt+l 
if P_sel«:ted_cnt=l then 
parentlo reque s t C* 1 dP'tet rX) 
el self P^elected.cnt3ii2 then 
Parent^RrequestCldP'tetrX) 
and if 
end if 'if <2 
end If *1f checked 

loop 'end of checks of checkboxes 

if P_»electcd_cnt«2 then 
«trSQLdeletePO=-s«lect * from Linka^x -«u , . 
"Nrftere peraonl • &rcquestC"start_person_id"> 4*' 
"and relate like *f«"* 

If rsLinks. State - adStateOpcn then rsLlnks.Close 

rsLlnks.Open StrSQtdeletePO,. 

cnindiv '•adopenoynanlc.adLDckoptimistlc 

FM) 

do while not rsLinks.eof 'count nudber of parent records 
rsLinks.MDveMext 



loop 

rsLlnks.Close . . ^ 

if p > ? then 'need to have onre than two parent records 
*no«f check to be sure that the parents have no other fonlly connections, 
'this should also check to see that tMO parents chosen are those HMch are llnkd as spouses 

strSQLdeletePl^" Select • from LinkaJT 

•Vwre Cpersonl a ^parentl *"' 

"and personZ o '" <parcnt2 A"* 

"and persons o " «*^uest("start^rsonL.1d") "iu 

"or Cpersonl - *" tearent2 &"* "4_ 

"and person2 o *" Aparentl A"* "ft. 

"and person2 o- '" ArequestCstart^peraon-id") A"') "4_ 

- 

"or <person? = *" Aparentl A 4_ 
"and personl o- '" iparent2 *"" 

"and personl o '* *request( starCpersof|_1d"> A"') "A. 
"or <person2 = '" AperentZ A"* "*_ 

"and personl o *" «parcntl A"' , 

"and personl o *" Arequest<"startj>er»oiu1d") A"*) " 
rsLlnks.Open strSQLdeletePl,. 

cnindiv \adopenOynanric,adLAckOptnii1st1c 

If rsLif^s.EOF and rsLinks.BOP then 

strSQLdeleteP2="I)elete fro* LinksJT "A. 

-where Cpersonl - *" CparenU A"' "A- 

"and CP«rson2 « *" Iparenti A"' A_ .^.^^ 

"or person2 « '" ArequestCatart-person_1d*) A"*)) "A- 

"or (personl • *" Aoarent2 A"' "A- 

"and CpersonZ » '" Aparentl A"* "A^ 

||or^gerson2 - '" ArequestC"«tartj>er«on-1d") A"*)) "A- 

"or (person2 ■ '" Aoarcntl. A"' "A_ 

"and Cpersonl > '" ^arentZ A"* "A_ 

"or person! « ArequescC"start^rsofL.1d") A"')) "A- 

"or (person2 s '** Aparent2 A"' "A_ 

"and Cpersonl • *" Aparentl A" "A- 

"or peraonl a *" ArequestCstart.jwrson.id'} A"')) * 



rsLinks. close 

rsLinks.Open 5trS«LdeleteP2._ 
era ndi V , adopenDynareic , sdLockopti ni s ti c 

strSQLdeleteP33"0elete from Person-T "A- 
•where persoiuid » AparenU " A- 
"or persen.1d - *" AparcntZ A"* " 

rslndiv. Open $trS^de1eteP3,_ 

cm ndiv .adopenDynavf c .adLockOptlnistlc 
•ise 'extraneous links found 
'error nessage 
err.mMbem^O 
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rsLlnks. close 

cfMl \f 'if no extraneous links for parents 
els* 

crr.ntinber^ 'no more than 2 pmrtnts eirist 
end If 'icc if nore than 2 parents carist 
elM 

err.nunbcr^ll '2 parents not selected 
end if 'if 2 parents ctiecked 

'loop 



[in old sfMuse/old kid 



'response. write speuse_cnt» ftspousc-cnt 

SP0U5EJC]ITX-«P0USC_prr • 1 'THIS IS IU5T TO MAKE THE SPDUSejOrr ZNTQ A NUMBCR FOR GGMRMZSON PURPOSES 
SR»1 

do Mhlle Sx 'O* spouse^cntx 

scrsj&tH ghtroooo^isx . 

If requestC chkS'*AstrSX)=l then 

strSq^.tleleteSl*:'* Select ♦ from LinkaJT 
-where (personl - 4reque»t("idS-4»trSX) 
"and p«rson2 o Arequestf" startup* rswuliT) ET") 
-or (person? » ArequestCidS-istrSX) a"' 
-and personl o ftrtt|uest("start_person_id-> &*") - 

if rsLlnks. State - adsrateopen then rsLinks.dose 

rsLinks.open 5trSQLde1eteSl._ 

cmndlv * .adopenOvnMlc.adLockoptlsrlscIc 
If rsLlnks.EOf and rsLlnks.BOF then 
'delett person record and 4 link records 
strSQLde I eteS2-- Delete frpm Llnk»_T 

"Where Cpcrsonl ■ '** *request("ids"totrSXJ &"* y^. 

"and person2 - "* 4pequ«st('*»tBrt_person_id") 

"or (person? = *" 4reQoestC"1dS"4strS)0 **" *- 

"and personl » *" firequestC^start^ersoiuidO 4"') " 



rsLinks.dose 

rsLinks.open scrSQLde1etes2,_ 

cnlndl V , ^opcnoynanrtc , aduockoprloi stIc 
'rsLinfcs.cloM 

if rsXndiv.State » adStateOpen then rsIndiv.Close 
strSQUa1e«eS3«"0e1efie froar Peraonjr "4- 
-whcre persoiuld - *" «reqiiestC'id5-tetrSX> " 

rslwMv.Open strs<H.deleteS3,_ 

cnxndl V , adopenDynamI c . adLockopdal stIc 
'rslncHv.closa 

else 'extraneous links fbund 
* error anssaoa 
•rr.mwmr«20 

rsLlnks .close 
end if 'end do delete sequence 

end if 'end checkbox if 

'oet the kid count for this spouse. 

Kid_cnt=widCk1d-CQunterjiirray,((sx-l)*2)+l,2) 'pluck frooi array of 2-char counters 
Ka-iCid_cnt*l 

do iihile iCx «s Ka 'was 6 

strSIOteH ghtr*0aOO'*^,3)«^ght(-OOIX>"lKx,2} 

If request("chkaC"«strSIO0"l then 

; i»_»pdate-W oves "oc-ftstrSKX 

'try to find extra connection! than those penal tted 
'only connections to pMrmntt are pennrittcd 
strS<)|.deletcCl^'*Select * from Linksjr 
"where (personl - *" 4re<?uestC-i d0C"4strS»00 "A- 
'and peraonZ o *" •rB9uestf-fdS"*strS30 *'* "*t- 
'and perion2 o *" ftrequestJ'*stertj>erson_id") ft"') 



-or Cperaon2 - *" OrequestCldOCAstrsiao «"' "4. 
"and personl o *" «requestr*fd5''4strS]0 
"and personl o Arequest("s«artLperaonu1d"> »"*> " 

if rsLinks.Statx ° a<fetateOpen then rsLlnfcs.Close 

rsLinks.open strsQLdclececl._ 

onindlv ' .adopenoynaisfc.adLockOptlaristIc 

If rsLlnks.EOF and rsLinks.BOF then 'no extraneous links? 

'dftlett person racerd and 4 link records 

strSQLdelcteC2B**0elete froai LinkSL.T *4_ 
"where (persoAI - Arcquestridoc'totrsioQ ft"' 
"and (penorQ - ftrequestrid5"*strSJ0 &" 
"or person? = '" &request(-startL4)erson_id-) ft" )) "*_ 
"or (person? - '- ArequcstCidoTtetrSloO **' -4. 
-and (personl » *" 4raquostCidS''4strUO 4 * '4. 
"or personl • '" 4requeitC*»tart^rson.1d"> 4^) " 

rsLinks.dose 

rsLlhks.Open SCrSQLdeletcC2,_ 

cnindi V , adopenoynanri c . adLockOptlari sti c 
'rsLlnks. close 

if rsXndiv.State *> adStataOpen then rsZndiw. close 
strSQLdeleteC*a- Delete from Person^T -4_ 
"where person_1d = '" 4requestC''id0C-4strSI00 4"' " 

rslndiv.open StrSQLde1ereC3._ 

cnl ndi V , adopcnDynanri c . adLockOptiari sti c 
'rslndiv.close 

else 'extraneous links found 
'error asessaae 
err.nudbersJO 
rsLinks.closa 
end if 'end do delete sequence 
'rslndiv.close 
'rsLinks.dose 
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C;\o*tentV»t>du1t«\<tetP cl67 .a»p 

cfid If 'wTxM for checkbox 

loop 

loop 

cnlndiv. close 
•Refponw.imiTE - 
'Response .MUTE " S)t-"«SX 

[ DCflIn new spouse and fclds 



Sub DoJUpdatej»veB f»uff<x> 

A rt9htC»trTnga4.-0'>«ndiv_id,4) 
if mlndlvTstate - aastatMpw* then rslndiv.Oose 
'£trSQUupdites="Select ♦ front PersonJT i*ere 
StrtQLi<>dite$-"SELjECT pepsoryld, person_lnaM, person_TT»ai 

-K!?h!5^I?r6irt^SiS^birth^ 

•birthlStBte, birthjcounty. blrtiuclty. bfrt#ul«t, birth. 

^ihS•'^^SS^^d*^ - 4tri»(R«qiie»tria-*«ifHjO) 

rslndiv.Open StrSQLupdates . . 

cnindl V . adopenDynaari c , edLockOpti«n sti c 
If not psindlv.EOF and not rsTndiw.BOF «}«> 
•rslndivCpePSoaJd-) ' S^^?'^"^%^1[i^£^l 
rsind1vC:person3iancO - trtrnfRequestrfn-- 

.. ■• ^ 



rslndiv?"per»n_lna«e-> - !n"JS«»»««tl"*5«Sffi^ 
Sindive-birSSonth*) « trimjRequeatCbwonth-irwffijp) 



psindiv?"brr5uday") ' « trira(Reque5t<"bday"touffix)) 
rsindivC-birth^tate-J « 5n«a«^"«i>:!j?*SJj^E^i^v 

r»indivrbipth_coontv-) = ^n"g2|j«J( °~2*r!*2£{Jii^ 
r$iitdivCbirth_cit¥-5 « '•T»B5^*'55-SS^«Srf«;?r 

rsIndivCb1rth.lat*) » *»j"2«***^Cl**^S*'t«?^<"* 
r'SSvCblrth-lofifl*) - triniCRequest:("long"*«iffix5) 
raxndlv. update 
end If 

rslndlv. close 

End sub 



<l-7hc 5crw» will continue ^^^^JJ^,,S'^SiJS^^ 
<brxXMWT type<«heckbox n««e-ehl(0001 VMJXml ehecked> 

JS)^?Tr?pe--TEXr- •WH&.-grtdjIdOOWl- SIZ&.X4 yaW-dfcIttaUESTC"START^er«on_iO».^-> 

<BRxBft> 

<«pur TY^^h-idden- iMME^'entry.type" walue»"Ein-ER" S1ZE^> 
<jitif err.nuAer oO then »> 

Error <jfcerr.m«bertb> occurred: Probably extrallnks «"refound. 

<Kif err.ntwber^lO or err.numben-U or err.nunber^ thei«> 

<4BR>Par«ntB luore not deleted. 

<a(eUeif err.nurber«20 therflb- 

<Bit>A Spouse was not deleted. 

^isalf err.nu*era20 th«r«> 

<BR>A cMId was not deleted. 

<Xend ifX> 

•dKend 1f 'end errorsae> 

2SSf*TYPC--sub«it- value.-REV36ir MO CWfTMUE DELETES- id-suh«1t2 n»M(Mt2> 



ELSE 'DO fCaa PROCESS ^ J H-HM. 

Dia new_fDciisj««e, S. K. «Ha«ei5sChe^ 

•BECIN PAOCESSING of NBf RXUS CHOICE, IF WTT j - ,^ 

•|lSlf>eoSstr»eljK»de">-R)CiiS- THEll -WTA Is default 

'HnejcntxsO 



aNaaKMasd>eckeda"ir 

FOR X?l TO requBStCparent-cntr*) '25 
STRXrfUGHTrOOOCtoC.i) _ 

SjCPERSOKJD-REflWESTC-lOP-ASTRX) 
■NancMBsChecke^ Y** 
exU for 
END IF 
MEXT 

IF aiia»e*a5Checked=-M- tkei* 

FOR XpI to rMoe8t( fP0U«_cnt ) 

STRXsUOfTrOOOO-fiCZX ^ 

IF REQyESTCCHKS-4&TTU0=l TM« 

CMIO«RSaLJD-REaiJSTC-lDS-4STW0 

aNmiAfasOheckeds'V 

exit for 
END IF 
NEXT 
END IF 
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C iVpatfen t\Modu1 es\<ft)S rcl67 .asp 



•ttrtlOfertghtrO00O"4Sx,2)«rrt0htr0000-«Cx,2) 

FOR S«l TO requestCspouse^CAt") 2S 

•jM»t look for up t» 25 Wds p«p spouse 

•rather than try to pass a »P^^^^5^co";^ fej* 

FOR KpI TO 25 ' rtquest("chn(«.cnt ) 25 

strSKX=HBhtrO000"&S,2)ArightrO0OO'*««.2) 

CMICPER5OH_ID-=«EQUESTriI)0t"«»trSI00 
aNmieliasCheck«d»*V 
«xlt tor 
END IF 
NEXT 
NEXT 
E WD IF 

IF aNaKWasdwcked-'V then 

n«i«_fbcuajw«e=CHK_PERSOILJO 

*^*%ewLft>cu«_nMie«*EQUE5TCSTART^ersoiuid-) 
e nd If 

x> 

<brxINPUT typ«=eheclcboK name-chkOOOl VAU;&sl ehecked> 

5iNp5t'tYP&--TEXT- 1IAME«-griOi«00r SIZMJ VBlu^''^ae,'ii^focus^»oat>'> 

<INPirr TYPE="hidden" MAMEj="entry_type" value=-EMrER" SIZ&=5> 

<INPUT type^=** submit" value»"CMA»*GE FOCUS PHlSOM" id3sufanrit2 name=$ubfflt2> 

</FORM> 

<XEW> IF 'FOR CHANGE OR RE-FOCUS OPERATIOWb- 
^(end if 'FOR ALL OF SECOMO HALF OF PROGRAMS^ 

^^h?;^^ienuidxl.a5p->Retum to Indexer Main Menu </tx/p> 

^it^?ri2('^n delete names, Init only if Pther names are not dependent on th«n. 
In other words, once a niwie has been used to connect oiultipU people, . , ^ . 
SoSeoeoole must thowelves be removed before the "anchor* person can be deleted- . 
2S^?rSc?JS! will delete children of the focus person, if^hey are connected only to their parents. 

SS^ll^J^vTSeui: rs^«%rth^'JSS ?rrS;ri??hat s«H,se has no links to any children or parents, 

^It Sll 2l?S parSts of the focus person, but only iF^here are more than 

tsMD parents, if t3M> parents are chosen for deletion, 

mttfA thev have no links to any other people besides each otmr. 

That i5^^ Se parents must not have aJ^^other^ children or any parents themselves. 

<SR>An iltemative to deleting names.is to blank them and ^«»^ 

as placeholders for -fiiture data- This especially applies to parents. 

</toar> 

</mviL> 
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^BQptlon Explicit . - u_ 

<MTMl> 

S^NAMfa-GENEIUTBR- Cootent>.-Hi crosoft visual Studio 6.0-> 

<H3>PtDIGRCE MHE DWA BMWS£ - SHORT R)«M*3> 

</HEAD> 

^lED 9/14/99 FROM OftSRCL63, THE CHAMGC TRANSACnOH 




■the only time'DltEH is not in «mct Is wnen oata is being 
•processed by the wcond half of this proqrm 

*code copied f row dbsrcl^ 

If r«queit<-Hn«.cnt-5-l^then :ifDn]v one nm cones in. rake it irithout: a chectd»x being = 

*R)S Xml TO request<"Tinej:nt") '2$ 
STWWUGKTroBoO-&3(,4) 

EXIT FOR 
END IP 
MeXT 

end if 

•Dim cnsearch, rsSeareh *. rsSearchF, rsSearcrtJ^SearchC. rsSearchS 
Dim STARTJ>ERSOILIO mstart-personjd, x, STRX. 

Set cnsearch « Server .CreateObjectCADOOB. connection-) 
cnsearch. open "dbl" 

set rsSeardi - Server .createobject(-AD0OB. Recordset"*) 
^ rsLinklfar := Server .CreateObjectC«0lI8. Recordset* ) 

HWtartLpersofuid « HghtCatrinoC8,-0")4requestr»tBrtperson_1d">.12) 
iiist:«rt_p«raon_i d • start-Personjd 

str5QLp="SELECT peraon_id, gcrsoo-lnaaw, person-fhewet 
"persoivjnnaiie. persoru««Jt , ^m.^ 
-birth^ear. birthjionth. birth^y. blr^joounwp^, 
"birthlstate, birth_county, birth_city. blrtluiet, birtlulong «_ 
"fnw per*on_t ^ -j ,-.- 

-•here personjid = *$tar^eraon_id & 

i-f rsscarch.ttate a adStateOpen then rsSearch .Close . . ^ 

'r.sSSh!opS^strsqLp, cnSeSch ' . adopendynaaric. adLockoptinnstic 

raSearch.Open 5trSQM>* oiSwirch 



%xm HETH0&=POST ACTI0Ife"dbsrrl69.asp- i*^nia nane-fcrail> 
^S^l^^S^SlTiiMa^'^fL^tMrtr siZB-14 va1iie«--dU«Search(-per«>n_1d")».-> 
Swur TVPE«-aiBa<D09r HMK^^OW^rAKT- VALUE^1> 

35wr TYPfe.-TEXr iMM5=-ln«mc_STAKT- SI2E-10 valoe--<3l^rsSearchC-per»on^ln«e")3C>-> 

SSvr TYPe-"Tecr ittiife-fhame-STjyrr SIZ&IO v*liie--^d6-rsSearch<-porsonjft«nB-)X>-> 
SwuT rrp&--TExr iiwiE«-ta»i««u5T«rr sxz&ao vaiue.--dS=r«searchrper»iumw-)SE^-> 

Simfr TYPEoTEXT" liA#tE»T»year^TART" SIZE=4 vBluea-^XsrsSear^'bir^yfear^S^ 
Smwt TYP^-TCxr M«iEplKlay_STAKr' S12&»2 value«-«dK-rsSearchOirthjl«y")«>' > 

Snput TYPE--TEXT- JMMfe-jexJSTiUtr SI2fcl value=-<3fcr»SearchCperaon_5ex-)Jb.-> 

S8pi5TTrVM.-TEXT- M«ME-"StartJ»«r«m-1d- SIZB±14 value---dfc=rsSeareh<-person-id-)»>-> 

<iMP(JT TyFC«"TEXT- HA»ie»"iAT_srARf SiZEi-10 value»"«dfiM^archC'bir^lBt )3f> .> 
-aww TTPbi-Mdden- iHHE»''pulUd" value-"<ti*-equest<-piibjd">«^" SI2B-14> 



select Option :<br> 
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C;\patgnt> | i«xfaile*\dbs rgl69 . asp 

<XliPtfT type--«itio- i«int=$elj«>de value--VlBr ch«cked> 

f SKt ffSJiST-waSVertS^ Cdioos. only one »^ 
<dbr> 



IH« eriS«arch, rsSMfxh * . r»s««rehF. nsearcNi 

SSSSSES^ItSolS, .trSQiS. «r«iLP .trSQ|£ 
DiMX. itrX 

Dim ISJSS, rsldds. StrWt. StrSX, Sx. Kk 

Dim »trSQL9C 

Dim kidLcounter^rray 

ilTaSi^ « server.CfMteObjectC'MOOB.CSoniieciioii-) 
cnS«»rch.Opcn "dbl* 

•M« research « server .Cr«ate0bject("ADO08.Record«et") 
set rtSMUSe • Server.CrMttObjert("*O0lM .Recordset J 
set rsK^d. * Server .Creat«ObJectrADOOB.R««rdset > 

• pwta rtj>ersofL.1«*-"000000O0OllO52" 

• mstart_perK>n-1 «fcr«|u«stC$tartL4«rson_1d-) 



StrSQLX- SELECT per50n_ia, pBr»«n_«H«, • — 

-KSjSr, Mrth_nBnth/birtti_diW, perMol. relate 4- 

-frwi Tlnk»_t. person_t "fu 

'where pcrsonJ^persofUid 

-and persortl^ ^un^rmM » 



■If reque»tC"PARE>iT-) --V- tihm . ^ 

StrSQLPa8trtQLX ft " and relate Like « 

rsSeardi.Open atrSQLP. enseardi 
X> 

g^. tart Pi ret -Middle seK-YV-»-oo-RECi$rRy 



'^rent, spouse, aarriage. child 
^Mhile not rsSearch.Kff and «<»9 

response .wHte ^<lMPUr type-text n«e-.^ J -fSfS^ i S2 J - Sl^4-'-KsSfSKlrStSl^-5t^-***««2;T »1zerlS> ) 
respmse.wHte C'^HPUT type-text na«e»„ A -fiaT- Jf-5*r*- v.lS^ *Ara&2rScb4rth-l^ S^J*'^®* J^-^ 

•Checkandcharse nSWCh<-person_1d->, -OOOOOOOl". 1 
rssearcbJMywemxt , , , „ 

•if M-l then fir«tr«e«search.bODta»r1t 

research .dose 

if 



StrSQIMtrSnX « ' and relate Like 'S* " ' should be 5, 
• raspense.wrfte streql » 



'rKSpense.wrm n<-sqi> 
raSpoifse.Open itrStyjS, cnSearch 



kTiL^unter,^ay»i"- "strinB to hold Mds-pei-spouse counter* 

S^ile not reSpouse.EOf and Sic<99 

strtXpri*trW00-&Sx,2> 
Response.lMnte -<8*>SpoiJse "ASx 
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._, c.ttrlte ( 

!,llHtB i 



"^NPUT typest«xt 
"<iiipvr typegtoct 



J"«IPOT typ»^t 

rKSpanse.writ* r^NRTT typc^tnC 

nsponf.uritm C-auPUT type-«c9iC 

response .wHte C^IWWT typ«^C«lt 

r«spon»«.wHte C<I"wr typc^tAt 

response .vHtx C'<i"PW typ«*t«Jit 



*c=:aad spoust/hrld stuff hen 
'find joint kids of two oarents 
Strtty-so^SELECr persoruid, 



^ ft -seats" 
ntm ' ft "byeti?" 
m b wj* ft IjnontTiS 
ft -bdays* 

^- ft -ids* 

typ^twct 



ft strSX ft 
ft strsx ft 

* ft strsx ft 
ft strsx ft 

ft StrSX ft 



■ valuer**' 
• values' 

val 

v>1 



• -ftrsspouser persoftjscx- 5&" *» * 

--ft- • -ftrtspouseCb< '•«»J7*'!»?:M':::*iii'2i> 

.-ft- • -ftrsspou^r b1 rth^-)A*::ft-ftf|2 s 



' ft -states" ft StrSX ft 
- ft -cmaitwS- ft strtX ft 
" ft "dtyS* ft StrSX ft 
■ a -Uts- ft strsx ft " ■ 
" ft -longST ft strsx 



i • valo^-ft-'-ftrsSpouserpersofLjd')* 
oountrys'ft strSX ft " valuer"*"* *ra; 

' v»li«="ft"*-*rsSpouse(-Mrt»L-Stat« 
■ values"*- -ftrsspousei-b-j-" ^ 



s1ze=4>"5 

, ^' rixe=2>*) 

»'«#32i"4- size=2>'*) 

iseCM rth_couBtry">ft"^-«^M32|-ft- 



• v«lue--ft"--ftr*sp«««(-bfrth^t">ft*^^ 511 
ft - value--*"' -«pouserbirtlulong*H" * 



je- Jft- • -ft-ft#32 : -ft- si zei^S>-l 
ity*>ft--ft"fttl2i"ft" »ize-ilS>*) 
r5ft*^"ft*'*#J2i-ft- size-15>") 

" ~ " -10>") 



^persofOnanie, penonjfiamt^ "*. 

-ilJS!15!5!^¥^£2sS?;/birt^ Mrthjcou«try Wrth-Ut. Mrtfulong. 
■bir5»_year, Mrthjwnrt*. birtK^y* pertortl, rtlftta ft_ 
-from LinkiL-t, pftreoiut *. 



-from LinkiL-t, pftreoiut ^ 
"Mhere penpii2«*Br«oiv_1d "4- 
•and pereonlP ^ ftBitart-personjid ft"" 
• and relate Like -cX' ^ 



I AND ^rs0n2 in " ft- 
SELECT personL.id " ft- . 



"frow Links^t. persoiut 
■where p*r«)nJ^rsofi_id ft_ 
-and personl^ ftrsSpouseC"! 
" and relate Like 'OC^ ) "ft. 
• ORDER av BianorcAR " 



'persoojid") ft"* 



'Insert mther's ID just above 
rsKlds.Qpen strsquc. cnSeftrch 

<BRXaii1dren 
* OC » OLD KIDS 

do while not rsrtds.BOF and Kx<99 

;jSg£S»SSS"^:iUghtroooo-«x.2) 

retpoftsc .write r<br>«l«Pin' ^pe-checkbox iwn«=<hI(OC 

response .wHte r<n«WT typc^text name=- ft ^ 
response .««rite C"<<IWVT type-text name-" ft > 
renoi»e.«Hte C<DWT type-text names" ft "»««C- 
re^onse.wHte r^WPUT type^text nane-^ ft "by««»2£l 
r.spS««.-rite C^MW typ^«t n«j^: ft :j«nthOC 

response .write 5"*^'*^..^?^^ ISSSU- ■ ,., :°?^t « 
response .«Hte C<br>*nbsp ;«f)bsp: ^INPtfT typc«Geat n 

response .write C"<IWVr type^tett n«ne-^ ft 
response .write f-<iw»UT typ**text ft 
response .write ?"<Ii»vr type«text nn^^ « .S^^ti- ^ 
response .wHte C^*^ type-text iubm-" Ir netdtf^^ft 
response .write C<IWVT typei«text !«■«-" ft "longOC 

rslCids.Bovcnext 



AstrSKX ft" VALUE-1>") 
ft strSIOC ft " value=-A"'"«r$Kids( 
ft strsxx ft " value=i"*"'"ftrs>cidn 
ft strSKX ft - valiie-"*"'"«rsXids« 
ft strsxx ft - vBluc--«-"*rslCid* 
ft strsxx ft " value-"*" *"ftrsKids( 
' ft strSIOC ft " valL- - 
* strsxx ft " va1ue--ft' 
ft strSKX ft - value^-ft" . 
■K-- ft 'countryOCft strSIOt ft 



'pe rsof\_1 naae" ] A* 
'persofLjfhaae" " 



m"]A" ■ ■ft*ftr32 j"&" »i ze-lS>"> 
«e")ft"""A"A#32;"ft" »ize=15>") 
Bie->ft-'"ft"««2:"A" size»15>"5 



lue-"*" ' -ftrsKldsf "b1 rttunooth" Jft" * '^ 
ie-"ft- ' "ftrsKidsCMrth-dw- Jft" • -ft-fti 
ie--*-*-ftrsKidsC"P«wUd"5ft"'"ft'2f32rft- sizei^4>;. 
— -^?ui-"tf'""ftr»icfdsrb1rTh_)C0untr¥-)ft" 



»i re«lS>"] 
*ze=15>" 
size»15>": 

_ siie=l>"5 

'ft-«#32;-ft" sire=4>"5 
^ft-*#32:"ft" s1ie=2>") 
_ _ur32;-ft* sln-Zv") 
'ft-tf32:*'ft- s1ze-l4>^} 



■ft-ft#12;"ft- size* 



"stateoc" 



ft itrSKX ft " va1< 
ft StrSKX ft " value--ft' 
ft StrSKX ft " valiie=" 
StrSIOC ft ■ valu^"ft'" 
ft StrSKX ft " value-' 



-ftrsKi ds C"bi rth_state"' 
-ftrslrtdsf"bi rttucountv**; 



r5*-'-ft"«#32;"A- s1re-15>-) 

^ v^-"ft-«#32:-ft" size-15>'> 

!=-ft— ftrsirtds?-birth_city-5ft''"ft-«#32j"ft" size=lS>"> 
r'-ftrsxidsJ"bfrt*0«t")ft**V«#32i-ft- VJS^'^Y^^^^ 
i--ft-"ftrsiddsCM rt*L.lono")ft" ' "ft"ftn2 ;-ft- s1ze40>-> 



n^ds.elese 

M4.counter,*rr»y*lrfd_oounter_array ftri9htC"a>«>-ftlC;-1.2) 
■p^ltlonal cBunbrsfw- kids, spouse 1 has 0) Mds, 



*«-^nd spouse/kid stuff 
rsspousc uaovenext 

loop 



rsSpeuse .close 
ciiScarch.clos« 



• iM«ejcntwuBie_jcnt+«- 1 
•endlf _ 

• set»ioo("spouse_cnt^)=mwie_cnt 



<input TYPE»''MlOOor IIAME-"SPOUSt_Dfr' val ue="-dfe4poUS«_CBt3b''' SIZEsM^ 

orout TYPE»-HI0Oai" iMUiE--parentL.Ofr' v*l ueo'-afcrparent-cirt^*' SIZE- ♦ > „ , 

<i!Sut TYpS-SdoS- ll»l&:-Mdjcounter_»pray- value--eWiid-counterjirrayl>- SI2E«"l«r> 

^SiS'TVPG--suMt- valuea^Btf NAME OMTA Oft CHMWC FOCUS" Idrtubmltl iiiaii , ■i tw ltl> 
■second half of page 



IF HEOUCSTC**! J»de")«^Br TMEII 



Ota cnXndfv, rslndiv *. rsoener, Indlv.ld, Xndiv.ldJHsit^ strSQLptib 
*Oln IndivJd^tr. owier.ld, ptAsjId 
'OlM rsLlnSs 

'Oim father, o»ther, child 

'Oim ICLPl. I0J»2. XELSO. It)30CX 

'Diu IBLJl. lO-SM. IC-SMCl. IDL5«C2. IQ_SMCS, I0_^UC4. ICUSNCS 
Dim StrSIOC. spousc_cnt. SPOUSEJCXTX. parenlucnt, parent-cntx 
DiB Kld_ait, Ke 



Dill StrSQLupdates 



Z0L^1C7, I&LSlCS. XDJUC9. ia,J3C10 
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C ! \p>Mnt^l»>du1 es\db 81X169 . asp 



W (Lcowiter jrray-reque »tC k1d_oount»r.^MTmy"> 
SP0USCJOfT-RECME5TrSP0USt.ClfT^i 

' err .ma6«r^ 
•«»d If 

•pub_id»reque»tCP**«*^) 'passed along fnoai dbsrclfiO and logptMl 

•5«t'cSrid1?^?2rJar.Cr«at»B<*jectC"itf^^ 
'cnindlv.opcn "dbl" 

'Set rsindiv » Server .createOb j ectCAOOOB . Recordset") 
'rslndiviopen "Select ♦ frc-^PeraonJJj-.^ 
cnl»>5R¥ . adopenDynawi c .edLockOptlnrtitic 

•Xf reqiie»t("ehlL-Start")^_theo 
* Ooi^date.Jloves **^tart 



•DO while X <a MPent_/cntx 

• 8irrtb^^trOOOO''«x,2> _ 

• If requeatrchkr»»trtO»l then 

• oo.updatjajteves "P'tetrtC 

• end if 

'loop 

I parents^^* 
igin old spouse/old Md * 

♦SSSSElSiJfS^slSr^'r-TOSrJsiST TO ll«fi THE SPOUSEJCKT IHTO A HUHBCR FOR OMPARISOII PURPOSES 

*do Wiile sx «s 8pouse_cntx 
•strSJt-H9htrO0O0"«s»,2) _ 

• lff^st<-chkS-totrSX)»l then 
' OoJUpdate_^e3 "S'AstrSX 

• end if ^ 

•get the kid count for tJris spouse. ... - .^^^ ^ , 

■Kid«cnt-«i1dCk1d„counterjirray,«sx-0*2>1.25 'pluck froB array of 2-char cowicars 

'K*-Kid_cnt*l 

'KX-1 

'do idrile Kx «> Ka was 6 

• Srsioc=rtght(-O000"«6x . ZDArl ohtr 000O-IKx,2) 

• If reque9tCchkDC"ftstrSW0=l then 
' Do.UpdataLfttv«s "oc"*strsiot 

' end if 

'loop 
'loop 

*cnXnd1v. close 
•ResponacMOTE ** KX-'AKX 

'Responsc.WlTE " s»i"«fix 



|1n Haw Spouse anj Mds» 



sid> I]D_UsdatCLj(cve» (suffix) 

S right(»trrnoa4,-0")»ind1v_1d,4) 
if raXfidiv. state > adstatecpen then r&indiv.Close 
*strSQLupdates»'*Selcct * frow Personjr where 
StrS^LJilioatcs«''SEi.ECr persoruid. persofV-lnaRie, peraon-TTuae, 4 
"ocrsonjonsMi penoojMx, 

-birth_year. birthjwnth. birthday. Wr^L^ountry, *^ 
•MrSlstate. birthjcounty, birtKjcity. MrtH_lat. MrthJIong 

"ISe'^rwijd*^ *- 4trl«(Request<"id-*suffix)) 

"^'^iliidTJ^^pSjnSrictiioctoptlaiistic 

If not rsindiv. EOF and not '^"^^••O^SfJ.^^^^^ 

rsIndivCp«raofU»nwi«l) - t'jS?*'***!^ 
rslw!ivrpersoii.lnaflie") - tnwT 



psindlvrbirth-year^S - «:'j"5"«»"*»'=^-^??5*rLS£?t!^^^^ 
rslndiv(-birth_J»nth') » triaiCRequestCtaionth ^ffix)) 

r»lnd1wrbirth_day-) = ^»S"*^"***V^'^I^!ff iQJ ^^ 
raln(Hv<-birth_country-)- oHin(Requ«tCco*jntrv-»«jmi£)) 
raindlvCbirtJustate") = tri n^Rcqueatr state jbsufHx)) 
rsIndWCbirth-COunty') - trlBtReQueatrcoimtv^^ju^ 
rslndivJ-MrSL^t^J - id"S5^"**Hfel9tafe«fiS^ 
rslndivrbirth_lRt*2^ • *d?i'*«*^E5l3?!jfe?^!?^K 
rs]ndivrbirth_lon^) - trtBi(RequestC"lontf-*suff1x)) 



rsJnd1v.i«>date 
end If 

rsindiv. close 
End Sub 



<FORM METHOMVST AiCTIOI^'**srcl69.RSp" id-forrtf nnes!fbr«2> 
<l— The screens will continue with the new *ocus name chosen.- 
<br><lNPJT type»d)eckbox nwiMhkOaOl VAUM checked> 
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C ;\p«fwt\M ^'^ A«rel69 , asp 



5SJ5f'fiW--TEXr IWIE--or1«Lia000r Sipd} «W^EQBESTrSTART_|»er«»»u1d->«.-> 

SSwT TYP&-TBCr IWIIEB-Tll»-cnt- SI2E^ valije»-r> 

<8RXB10 




ELSE *00 FOCUS PROCESS ^ j ™ .Menfti rn 

'BEfiXH PROCtSSIMG OF NEM RXIUS CHOICE, IF AKY 

'El»elf rMije»tr»el-l»"««e">'*R»JS- them 'OATA 1» default 

'Hne«cnt*sO 

aWawewaffChcckeda'N" 

FOR )Ocl TO request ("parent-ont") *25 

Sl&WSOIIJMEQUESTC-lDP-aSTTW) 
allaneMa9Checke«k''v*' 
exit for 
END IF 
NEXT 

IF aN»eWasCheck«S=-N- THEM 

FOR X=l TO rcqucstC'spous«_cnt ) 
STRXFRKiHTr080O"teC.25 ^ 

IF requestCows *srnuO-i them 



exit for 

END IF 
NEXT 
END IF 



• strSWUH fhtCOOOO-ftSx . 2)*rt ght<"O000-«Kx . 2) 
IF aii«WasChecl«Bd=-M" them 



FOR S»I TO requestCspouse-cnt ) 2S 
•just looklSrup tD 25 kids per spouse 

;ss»r(2sgs;%!i>*nahtrooo^ 

IF REQyESTC"CHia)C-&strS10QjM^ 

CHlCPERSOH-ID^REQUESTC^IDOC-ftstrSlOO 

aMaiie«asChecked=-r' 

exit for 
ENO IF 

NEXT 
NEXT 

ENDIF • 

IF aMMKMasCheckedB'y then 

oew«fpcusj»anie=CMiO»ERSOPLJD 

*^ "n«c.fbois_|Mwe-REQMESTr START_p«r»ori_id-) 
e nd if 

X> 

^K-The screens will continue with the new fbcus na»e chosen.— > 
Sr>SpUT type=checkbox nane-chkOOOl VALUED checked> 

S8w'T?PE--TEXr; »WME=;and_idM01- SXZW4 >«lu^' 
<IMPUT TVP&»'*TEXr' iMMEs'line-cnt" SI2&^ values 1 > 



SnfuT TyPfe»"hidden- NAM£=-efltry,type" value--EKTER" $IZ&.5> 

<INFUT TrP&.-subiirit- valiie=-CHAM6E FOCUS PERSON* id-subait2 rMme=siAiiri t2> 

^FORIto- 

.aCNO IF * FOR CHANGE OR RE-FOCUS OPERATIOlflb^ 
.cXend if 'FOR ALL OF SECOND HALF OF PROGRA*«> 

^^hre^^^1dxl.asp->RetMm to indexer Nain Nenu </ax/P> 

</lCTML> 
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t Lanoiags^VftScript 9 
iptlon explicit %> 
icsponse . Buffer^mie, 



. t x> 

<I— flncludc v1rtui1-'connon/«ck>vb»,iiK'' — > 



IMMEB"CENEKATOIk' OontentsHicroMft Vliual StucHo 6.0"> 

^fTTLEMtESeMKHEllS KDIOEE VZOK/TXTLe?- 
<ll3>ftESEARaiaS PEOiat£E VieR/N3> 
</klEMl> 



•tMs profiniR lets a viewer choose and pay for naaes. 

•Tha firtt tine tiiia p«g« i» r«*»1«*i?i,»^^ ^^J^ ^* 

'uterittcd without hminq oaiplctaly filled out. the fern 

'Is displayed. If It Is suMttnland conpletely filled «uc, 

*th« fona ia proc«ftsed In tha KIh claitsa. 

iHb start_person.ln»M, st«rt^rsMU.fname, start_persoiuim«Me 

Dim start_p«r»on_byear, startLjwrsofL.1d 

OlB buyarlid 



if »a»»ion("buy«r«loQ9«d_«o">'0>-buy«r lo9ged on* ttien 
jnesfwiM.rttdiractC'TogbyQl - - " — 



i.rwKractCMogbyOl.asp") 'lee p. 337 of prog guida 



•if sestiofiC%uy*r-logoad|^"><>"tMV«r looped on" THEN 
; raapense.redf ract?'l«obnEy.aap**) *ae« p. 31? of prog guide 

bMy€r,id«sasiion("buycr-id"> 



•if RequestC»ai«*tLJ»er»on_lnanie**)a" or llequB«tr»tartj>ePSoa,fn«»e">="'' - ^ 
* or reque5tC"»tart.^r»onJ>¥oar">o and requestC »tart_person_1<r)« then 

If Request (•■*tartLj)ersoOnaMe">>— AND reiiuest<"start_persoiOd'>="" THtn 

Ditar the last naaie, and then ikdd on« or nore of the -follomng fialds - first 

nmt. nrtddle name, birth year - as extra criteria ts describe ttie^person idiere ^ ^ 

yw nould like to start tf»« pedigree search. «l— (iNote: Only the 1a»t name is used ibr testlngO- 

<Slt>Or. if you already have the person's Genealogy Registry 

ID, please use it to go direct and save tisK. 

<SftvSearch nay be , .. , 

limited to rases in a recent tiM range, such as those bom in this century. Ihe 

pedigree-following process is used arfter thac. ^ 

<R)RH METHOIM>aST MCTIOlN'dbsrclTD.asp'' idrfbna2 nane«fBin2> 
starting focus Person :4R> 



LASt 

<xj|pur TYPE^''TEXT~ iiM«&-*start_person_lnsBe" SiZEi04> 

^HPUT TVP&~TEXr IM«E-'start_person_fTiw" SI2E«14> 
Itiddle . • . . 

<iypur TYPt-'YOCT" MME- start-persocuvtane" SIZE-il4> 
Birth Year 

^nmjT TYPC«i**TEXT" iMME-^start^rseiubyear" si2E«s4xp> 

Registry ID of Starting Focus Person 

<zimrr Typ&TBcr* iwM&i~stBrtj)erson_id" 5izEai4> 

SSpur^TypJ^ecr* llMlE*''buyer_id- value--4Muyer.id1b>* SIZEp14> 



^INPvr TVPE^" submit* valueC'start S««rch* id-subMitl naBiessufaRitl> 

4to1se 'second half «f fond& 

•Wai strS<».Tcei>, table^iiama, owner.id 

* create tcnvorary table for cookie processing 

DiM cnsearch, rssearch 
Dim ■start.personod, n 
Dim strSQlp . 

Dim firrtrec, Ustrec. strx, 11ne_ait 
[>in BtrSQLfields, ■avjslloMed 
nax^al IowmI^ 300 

set cnsearch a server .createObjectC*DODO. Connection-) 
dfiearch.Open "dbl** 

set rsseardi « server.createObiectCADCOB .Recordset") 

'MtartLperson-id m r1ghcCstnng(a,''0"}ftrequestrstart^rson.id'').12) 

'frwa the opening screen 

'Response. write aatart.person_1d 

"kdtere person-Inane >« Aastart^raoiuid 

'construct sq^ for nultiple search criteria 
if requesrCatartLper90fuid->o''" then 

Str»<liLpss"$€LeCT persoruid. person-lnwae, persorufnaM, "A. 



blrSLmonth, bir^uday, b1rth_country, 
"birthjstate, birth-County, birtKjcity 



^..^^ , ^ountv. blrth_citv "A^ *~ 

"frns person^t "li,. ^^^^ ^ 

%ihere per«on_id « ArequesCCstart^rBon.id > A A_ 
* OROO BY personjfiMM, perseiviMiaRie, birth-year" 
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c;\pmMntV<PdMl«s\0«SRa70.*SP 



• - tnd 1eft(per«ofU<d,9) o - Ipub^td ft'" 
else 



rtrSQLfi«ld»»* ntTHjeeMt > 'ISOO' Jm' ' 1i"1I.YE« «» searcher* 
•»tr^f1eld«B* 1eftCp«rsoiuid.9) = Apub^id ft- end " but keep to Omi imuks 
If requ«$tC»tart-pe''»o»ulft««e")o"" then , »^ ... 

strSQLfleldSEStrSQLfields ft" persoru^nsM = 4requcstC»tart_person_lname") ft"* 
end If 

if requestratarC^rsoivAMM*}4>"'* then - 
strS^LfUldSBStrSQLffeTds ft" ind persoiufVume » *requesl:<*»tart_penonjrfwwi"> 

ef¥l If 

if requestCitart-penoiijraiM 



■ requestCitart-penouraiM , 
srrSQLfleldMtrSQLfleTdft ft" i 
end If ^_ 

^^itJSSfSdSStrSoSfeldS**" w3 birCh!!y«ar • ftrcquestC"5tart_per9onJbyearj *"* " 



St rSQLp*" SELECT p«r«>n_id. person_lnao»e. person-fname, A_ 
"persoiLJWMMae, 

"blrth^ar, birthjnonth, blrth^day, bi rthjcountry , *_ 
"b1rth_»tet», birtJLcounty, birthjcity 
"froTO persorv_t "ft. 

-*diere " ft*trsqp.field» ft_ , ^ 

" ORDER BY PERSOKJJVME. pttrson-fruflM. persoruwuM. Mrttufeaf" 

end if • end of SQL create logic 

*RelBt1onBl C<* >.«*,»)- FROM HSDN !> OPERATOR. CIMPMTXSON OPERATORS 

'response.wrlte request r startle rson^lnane") 
'Response .write ttrSQLp 

If rsSeerch.stBte - adStatcOpen then rssearch .Close 
rfSearch.Cpen fttrSQLp* cnSearch, adopendynwnc. adLockoptlaistlc 



'use Input screen like dbsrchlO 
*d» search 



<FORH METHOO-rasT MCnoi^''dbsrcl71.asp* Idi^rod. name^ng(l> 

Select a starting fbcus person from tiie following list by 
checklnp a single box. 

•If rsSeerch.eof - skip 

do idn'le not rsSearch.EOF and x < mex_^11owed 'x<36 

stio^(^tC7oooo;;ftx.4) 



response .write C"<l>r><INPVT typcachcckbox n«ae=cMc"4strx ft' VALJuept>"} _ . . ... , ... «. 

rSSoSa.-rite <"<1MPUT type^tSt na«e=- ft "gHd-lnwe" 4 strX ft " «3««»"*"'"*«Sear^rperson-ln«e;>ft2 ^f:**^ »J»^f*a 
resbonse.wHte r<lHlvr type»texC nwe»- ft "gHd-fn-ae" ft strx ft " value--ft--"ftrsSear*rperson_fn«iae-5ft- "ft^ftr^ size-ISO 

ft "grldjwiame- ft strx* " value--ft-'"ftrsSearchC*perspnjMe->ft-'"ft-anbsD 
ft -grfdJjyear- ft strx ft " «lue--ft---«rsse*rdrf-b1rtKjrfar''»7;-ftr^ f^»*SO 
.- ft "gricLId" ft StrX A " v«lueo-ft"""ftrsSe«rchC"peraon_1dr3ft-*-ft"ftnbsp;*ft- s1ze»14>"} 



response .write r'<INPirr type-text 
response .write r'<lMPUT W^te«c 
response .write r<iNPOT type>text 
response .write ("clMPUT typentext 
rssearch .tiovcnext ^ ^ . ^ 

*1f jcal then flntreccrssearch.boobnerfc 



%> 

<imrr TYP£=."h1dden" iiAME«'*pulL.id" »raliw^'dfe=requeit("pUb_1d")Sb'" SIZE^4> 

-at 

'Response .write X-1 

response.wrice C<iNPUr typ^-hfdden ttane>llML.cnt valu^*" ftot 6" s1ze-4>') 
If K • ux^l lowed t iie n 

Response.wrlte "•4i3>At Least "ftx ft" Names ware found meeting your critanBVh3>" 
end If 

^^Rea|Dnae.Wr1te ''<di3>*'ftgi ft" Manes were found meeting yeur cHteria</hab>" 
Xf x*0 then 

Responi«.«M-lte ~'4i3>NO Naaes were found Meting your crlterla^S^" 
end If 

*1astrecsrsiearch.boolaBRrk 

■tMD sutarit buttons that go fomerd or beck 

<IMPUr TYPE«"h1dden" WMEi-"cntry..type" value-"BiTER" S£ZE»S> 

^XNPUr TYP&>"autani1tr value-ltECIN EXPRESS NAME VIElT 1ik3ufaGrit2 nBne=ssulMrit2> 



•dtend ifl^ 
<P>ftnbsp;-</'^ 

<pxa href«"menuidul.asp''>Retijm to Buyer Mein Menu Vax/P> 

<a hrefs4iisrcl70.asp>Retum to Naew Search screen.Va»<p>ftnbsp;Vl» 

</B0OV> 
</»CTML> 
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unguageaMScript %> 
«3B3pr{on Explicit X& 

<l— #1nc1iidft virtual a'camn/adovbs.lnc'' 



•META IMIE*"C9ENEMT0lt'* Cent«n13*'*Nlcf«ieft Vl«U»1 StUdlo ^.0% 

•<nTLE>PEDIGIICE NWC DATA BROIBE - SHORT FORil</TmE> 
<H3>PE0XGREE NAME OMTA BROWSE - SHOITr F0RIK/H3> 

<B0OY> 

<X 

'copied 9/20/99 from dbsrcl69 

'COPIED 9/14/99 FROM 0BSRC163, IXE CHAMCE TRMISMCnON 

•if r«qiie»tCs«lj»de")B"AIxr and _ 

• reque»t("lnamePl">="- and reque$t("lnaineP2">=-' ^ 

••nd r«questrir»amefic0101">="" and requestrinMeMCJOZOri*"" _ 

•and r«juestrin«i»HC0l01"5="" and r«|iJostC-lna»ll0040r)-"- _ 

•and requestC1naHieS«">="" and r«iii«atC"1naneSlia-)*— then 

If rtquastCtntry^tvptf'^-EffreR- them 

'the only tHme EMTER is not in efftct is Mhcn data is being 
'processed by the second half of this prograa 



code copied from dbsrcl40 

If requestClinejcnt" >«1 then 'if only one nane cones In, take it without a checkbox being set. 
pART_PERSOICJD=f<CqUESTCCiaOLjn)0001'*> 

, TO rBQoest<"line_cnt") 

an-<'*oooo"4M.4) 

iE5TCCMK"»TIIX5b1 THEM 



R3R *»1 TO recoest<"line_cnt") '25 
STIUMOn-<'*0000"4M.4; 
IF REQUESTCCHK'aSTIIXl 

START_P€RS0#iJD=«EqyESTraU0Jir&STIO() 
EXIT FOR 
END IF 
NEXT 

end If 

'Din cnsearch, rssearch ' , rsscarchF« rss«arc^n, rssearchc, rssearchs 
Mm START^ERSOiLaD \ nstartu>ersonjid. x, STRX, 

Set cnSearch s Server.CreateObjectCADaoa.CDnnection") 
cnSearch.Open "dbl" 

set rssearch • Server .createObiecc<''ADODB.Ittcordset") 
'Set rsLinhNar - Server.CreatciObjcctC'ADOOB .Recordset") 

•astarc^rsoivld - r1ghtCfttHngr8.'*0'')&requestrstart^erson_1d*').123 
Rstart-peraonJtd » startLpersofwid 



StrSQLpB^SELECr personal d, gerson_lnaiiie, person-fnarae. "A. 



persorupnsae, persoa.sex, flu 
blrth^ear, birth-month, birthuday, blrth^ountry* 
'b1rth_state, blrducounty. birth_c1ty. birthJat. birth-long 'Sl. 
fnm persetut "lu 
'■here peraotuid a " tetart^r 

if rssearch. state « adstateOpen 
rssearch.Open scrSQM>* cnSearch 

rsSearch.Open strS<3M>. cnSeardi 



"frt» persetut "lu 

*«here peraotuid a *" tetartj>erson-id ft •* 

If rssearch. state s adStateOpen then rs5earch.Close 
'rssearch.Open scrSQip, cnSearch , adopendynaaiic, adLoekflptinristic 



<FORM iiETIKIM>OST AaiOf4:«''dbsrcl71.asp'* idcAnsl nane«fonsl> 

SMPUTTyp£%1dde?*IMM& SIZEp14 va1iie«"^rsSearchCpersoa.id'*)j&>''> 

<INPUT TYP&.-CHECK80X" NAM&.'aOCSTAHT' VALU£>1> 
Last 

•aNPUr TYPfe^-TExr* NAME^'lnanajSTAirr' SIZE«10 value-'^rssearchCperson-l none* )«>•'> 

SnpVT TYPe»*TTXr NAMC^'fhaneJSTMrr' SIZE*10 va1ues''^rs5earchC''personjfhane''>X>^"> 
Middle 

xiNpirr TVP^'TExr NAMC-"«nane-START~ sizepID va1ue-'*<dUrsSearchC"personjanane")S&>*'> 
airth 

■aHPVT TYPEf»-TEXr NM<E»"byearjSTAI(r SIZEM va1ii^*<dl^rsSearchrbirth-yeaK')«>'*> 

<ZNPUr TVP&i**TEXr' NAMEa'famonthJTAIinr SIZEb2 va1ue9''<4h>rsSearch(1i1rthJ»nth'*)X>''> 

^Npvr TVPfi»*'TEXr NAHE;-'*bday.^M(r SIZ&2 va1ue-'*^rsSearchC"birtiulay^'>1&''> 

Sex 

<II«nn' TypE ^ '^EXT' NM«a-sex_STMKr' siZbd va1uas''^rsSearch(''person.sex''Mb-'S 



Registryf 

dHPUr TYPfr'^TBCr 



IUMEo'start_peraon_id" SIZEaU valueM"^rsSearchCperson_1d")3l^''> 



country. State* County, City. Latitude, longitude In degrees and ■rinutes<BR> 

<^Pirr TVPe-'TOcr* fMME-''C0UWT1«>C^ARr' SXZ&05 va1ue-'^fcrsSearchC"birth«Countfy>X>" 

<INPUr TVPe-nexr* HU«E-"STAT£^AIIT- SZZe^S va1ue-"^CsrxSearxhCbiPth^tate">X>- > 

*^"?HI TypE»;;TExr; »M?§«"52iJify^Xi!Pt,HzE»i5_vaiueo2^^ 3 
<SMWT Typea^hidden" iWM&*'*pulUd' va1ue»*'^rec|tiettC'PUl>Jd')X>'' siZEi«l^ 
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C!\p«twiiM<»duT*\oesRci7i.w 



Select Qotionnbr> ^ ^ , _^ ^ ^ 

^nwx type-"r«d1o- rMiw«l_jiK»de wilue-^fior ei>«clwd> 

X mnt to Vf«w l}atft4>f> , . 

<INPOT typ^-radlo" n m t n ljade i«1iie»"»CUS- > 

X writ to dimge "focus MrMn** (chooM only one rM«)<»R> 

4)r> 



rsScarch. close ^ ^ 

• Progrw <fc»rcl61 cri«tod f nai dbsrcMl 

Dim cnScarch, nSoarCh * , rtSMrdiF, nScuxMI 

Oim «startL4Mrson_1d 

Di« strS(y.C, strSQLX. strMlLS. strSQLP *. strSq^C 
Dim X, strx 



Din rsspouM. rsiddi, srm, strsx. sx, 

Dl« 9tr^K 

Din lrl4.countcrjBrray 



set cns«arch - serve r.creatcobjcerCWOOS.connectloA") 
enSeftrdi.open "dbl" 

*S«t research e Server .CreateObject("ADOM.Reoordsetr} 
Set rsspouse - Sorver.CreateObjectCAMM. Recordset") 
set rslC<ds . Server.CreateObjectCADOOI.fteconlset- ) 

'm*tartj>erwn_1<*-"OO00OO00OUOS2* 

'■starCpc rGO(ui d-reqMest C"s tartpersorul d" ) 

StrSQUfc'SELECT persoiuid. gersofulnome, persoiufriBne . "4_ 

*'KrS!ji5"!'b?rSS!nty. Jfrthjclty, blrcK^ceiwitry. brirtfulat. blrtfulons. 
-bIrtJuyoar, blrtlunontli. birttuday, ptrsoni, raiate 
•frw Dn**_t, person_t 

"where personi-oerBeaJd 'V- 

'Md persofOe ' dtart-p enwn-ld *" 

'Focus Person 



•If reniestC'PMEirr) --Y" then _ 
StPSOMWtrsqu * " and relate Like *r«' ' 

rsSeardi.open strSQLP. cnSeardi 
%^ 

Ham: u&t First Irtddla s«x-w— it^-00— rbcistky 

«t«> 

<ftft>Par«nts 
4( 

'parent, spouse, marriage, child 

do Mhfle not rsSearch.eOF and x<99 
JtrtC-Hphtr00M-4«,2) ^ _ 

reaponse.wriee r^r><iKRnr type-chectoox iMjei^hkf'As^ ^ ^ ,r 

response .write C"<INPUT type=tejit names" ft "InatneP" ft %xr% & ' v«1iie*-ft"'"«r»s«archrper»on_ln«"^" ■'»''ft#32: ft Bii*=lS>") 

retponsc.wri te {"<iw«jt typeotext Ratnoa" ft "fhaweP" ft »trx ft " va1ueo~«"'"ftrsSearchC**person_fr»«nB"Jft*'**"ft#32{ ft" 8la»=a.S>"l 

response .wricc (••<INPUT typesteitt naaea" ft lananeP" ft strx ft " v»lu©»''ft"''*4r»Se«riAf''porson_ian««B"J* ft'ftJtS?;***" slzealS>"> 

ressanse .write C^ZM^Vr type='text iumms' ft 'scicF' ft strX ft " va1ua>"ft'"~ftrsSearchC''persorLJtex")ft^'"ft^ft#32:"ft'' slroO^") 

resBMise.wri te C-atiPVT type-text namea** ft "byear*^ A atrX ft " valuo^"*" "'«rsSoarcht"birth-year")ft"*"*"*#32:"ft" siza^y") 

rcaoonse .write ("•clMPVT typorexc n—w" ft "hmorrthp" ft strx ft " valu««"*"*"*r«S«archc"Mrtftj"or»th"3ft" '"«"**32:''«'' «<xo-2>*') 

response .wHte <"<i»iPWr type-text nww*" ft "bdayp^ ft strx ft " valu*»"ft'""4rsS€arehf"b1rthjtfay*>*""'ft"ft«2:"ft" sizo-2>") 

rvsponse.writv C'-auPVT type=text namea" ft "IdP* ft axrx ft " valu««''ft'*"'*r»Search("per»ocL.id">ft"'"ft"fi#32 :"ft" »1zosl4>'') 

reapo^te.wrltM <*'-(br>4hbsp',ftAbsp; -clNfVr cype-eaxt imm-" ft "country*^* strX ft ' va1iie-"ft-'"«rsSoarch<"b1rt*Lco«»itnr)«""'«'*ftf32t"*" afcoHlStf 

resiMnse.wrlce ("<Il«vr cypestext nane-" ft '■»tatel>" ft atrx ft " v»lu*-"ft"'"arsSearch<"birth_»tato'*)ft""*ft"ftM2j"ft" 
reiponse.wHta r<iiiWT type=«t nm^' ft "countyF- ft strtC ft " v»liie-"ft"'-4rsSearrhCbipth_coi*itv«Jf^*-*-"»^ 



|ft"*"ft"ftM2j"ft" si2e»lS>") 

response .wHu r<IiHVT typc-oext nnae-" ft "l**^!.* * ** ^5l"^"*''"!?55earchQirrtLjatr)ft*'^ size^te") 
re7ofwe.wHte r<IHPVr type^tmt nmt^" ft -longP^ ft strX ft ** wa1ue»*'ft*"-ftrsSearchrb1rthJong">ft'"''ft'*ft#32i-ft s1zei*l)0>"} 

'CheckandCharve raScardiCpersoiuld-}. "OOOOOOOl", 1 
rsSearch .novencxt 

*1f »>X then f1rstrecttrtiearch.boolaMrfc 

'Xi«+1 

loop 

rsSearch .close 
parent-cntxi 

; end If 

I session CP*r*"*-pntr)^ -mm^m 



strsoLSKStrSQUt ft " arxl relate Like 'SX* " * should be S, was SM 
' response .wrftB stragls 
rsspo«ise.opcn strSQLS, cnsearch 

<Bit>Spou>cs 

kid_oount8r_3rrByte~* 'string t» hold kids-per-spouse niteiters 
SxaO 

do wMle not rsSpeuse.EOF end SK<99 

atf«e=ri *t(-woo-&sx . 2) 

— . . I i I '^»^CnM>c^ fii3A 

t nane=chkS*ftstrSX ft" VAUUC=1>'*) 

- -InMies- ft strSX ft " va1oe--ft*"-«rsSpouserper50fUln*iic")ft--ft'*M32;-ft- s1zeal5>-J 
ft strSX A • »alue»-»--ftrs5pou5eC"person_ftiaiMt->ft-*-4-«32;-*- *1xe*a5>'*> 
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Cl\MtMit\l«0*l1<l\!PaSm yi.A5r . ■ _ 

re«pMM.«rite <-<INPUT typ«^ext name*, ft J^Ss- 2 !tSc ft • IJlS4- -2SSSiCb1rSiionth 

rsSonsc.wHte r<iiiPUT type-tat ntw^^ ft ^«»«gf* 
riipon»«.«»Hte C^mput typctwt * J 




tpouseAld »tuff h«i ■ 

•find Joint kids of two wr«>ti -* 

5crs<)Lsc-'' SELECT p*rso(x.id. per9orx_in"«e. persort-Tnarae, 

-I»irth5«»r. b1lthJ»nt^. MrtKjday. pcrtonl. relate 

-f rw Unlc*.t. persolUt ft-. 

-where pcrsonJ-fcnoiuld . . ... . . 

-and perwnlsi to»tart_per«on»id ft ft_ 
" and relate Like "O* " 4_ 
' ANO person2 in * ft_ 

"SELECT pcpson_id ft_ _ 
"from Link«„t, periof\_t «u 

-and personl* 4rsSpou*eCp«r»oiUd ) ft *- 

- and relate Like 'CX" ) **_ 

- ORDER BY BIRTH-YeAR ' 

'insert woAer** ID just above 
rsKids.Open atrSQLSC, enSearch 

X> 

<SR><}rildrcn 
<S 

* OC 0U> DOS 

Si^rile not rsJCid..EOF end KX<M 
srrSSStS;M-JS:l}ftH9ht(-O0OO"ftK..2) 

^SpoI««.*"te ^<lllWfT type=.rext naiiie-_^ ft .Jj^^? S iJSS A - SlSS-ft-'-ftSJdlrKISfCftS-Jft"'-*-^^ siztel5>-5 
response .-rite ?-<mPVT type=text namc^ » fi-jSj: ft Jj^g * SlS-t'-ftSidlrSerSruSS size-lSO 

-ft-'»1ie=10>-) 

WmrV »ize-10>"> 




rsirt ds jBBvenai t 
rsSds.close 

kid_counterJirray*k1d_eounter_array »"flh«<"50?*''*S5"ijS 9 k.« ae 

: pcsitional coonttre for kids , e.9-. spou" 1 !»«» 03 «d», spouse 2 has 06, etc. 

I spowseAid stuff 

jj, 

loop 



rsspeuse.dosc 
cnscarch.dosc 



2I55t*TYP&-- submit- va1ue-"viM liiWE DATA OR OMNG£ FDOfS- 1d-SlAmitl n«ie-sul-itl> 



else * second half of peg* 



XF «EQUESTr5el-P0de-)--VIE>r* THEH 



DUn cnlndiv, rslndiv r«0-ner indlv.ld, imHv.ldjJeict, str«».pid> 
'[fm indlvJiLstr, o«ner_id, pubJd 
•Dial rsLinks 

'Dia father, aaither. child 

o?:*s5««: ^iLiStT swustSmt. parent-art, parwrtjartii 
01m Kid-ent, w 
Din StrSQUipdates 
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*Ote IQjntf. "OJlia, IGLSU*« tOijao, IQ.S1C10 



FVB_1 cWOOOOOOOOOl" 

set cnlntflv - s«fvtr.cr«»tie(lbj«ctr««» 
'cnzn(tlv.Open *dbl" 

ttt r«ln«H¥ -^S«nrer.Crtrt«Obi«Ctr*S^ 





D 

a 

Si 

ni 

W 



•STO«J3»T3I-S»WKJ»T • 1 THIS IS JUST TI» 
*Sx>l 

■do «Ki1* Sit ^ «B«ia«„cntx 

• ftr5>c»H ght<"000Fis« ,2> ^ 

• If rwuMtCdikS-AstrSlO'X then 
I 0«J*a»tO<«'«» "S"»»trSK 



fnaa arrtjf of Z-char eOHinn 




'cnXmHv.clOH 
•Rejponae.WiTK ' ■(»>:«« 
•aupome.MiTe * sx-"*sx 



1"^ sub oajUMtotcjiovM rsufPliO 

ixmHv.Stata a KlStKtcOpai then rslndlv. 



.MX. 
■Close 



•»trsa.upd>t«*»*Ml«ct ♦ from fsraooJ i*i«pe 
StrS^jlvntesB'SELGCT per»n_1d, perm«v.1n«K, p«rson_fViMK, 

'Hrduvote, Wr«CjD«»i*ity, Mnh^rlty, Mrth_l«t. bfrdulflfV *- 




i 



r»l«H¥f*i»er«of»_fiiwie") - tii»(R«cjue»tC*V»«_*Kim)Q, 
rszncHvi 

r«i«d1vL_^ 

rtlndivClpwwvJw ) - 

rslndl »CM rthJCauntrv-V 
r»lMHvCW rA_ste«"> - 
r»Iiw«¥C"b1rth_«o«rty*) - 

rslndlw-updete 
end If 

nlndlv.c1e»« 



"bda/'«siifH]0) 
caunty"«Miff1jO) 



aerem trill cantlnue with tlM nm ftelM imm ChBS«n.-«> 
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C:\p«tent\m>du1g«\DBSitcl71.ASP 



<brxlHPar type=ch«cltbox namMhkOOOl valuEpI checlted> 

SSiS'rJpfc-TEXr iWM&i"arl4-id000X- SI2M4 value.-<»*EqMESTC'ST«ffj>epsofL.id->«^-> 
<lMPVr TYP&.*TExr iMii&i"11n««cnt- S12M value* 1 > 



<XNivr 7YPC^"Mddei»" iMi«>"«ntry_type- valoeo-oiTCR" SXZCii5> 

<IMPUT TYPE-^sufanit" valuc-^GOimNUC VtE«MG" Id-sufanrita naioe»subBrit2> 



<BR>« 



<?"FORN METHOOeTOST ACTI0W»"dbsrcl61.asp" IdsfonnZ naiiieaf6nii2> 

<ZNPVT TYPe^"»ufcwit" valu«a"«l> MAMES OR CHANGE FOCUS" id»siitarit2 nane°Sijl»1t2> 

<jFOfm-'> 

ELSE '00 FOCUS PROCESS ^ ^ 

OlM owcfbcmjim. S, K. •Hamewasch^ked. CWO^crsoilXD 

'BEGIM PROCESSING OF HEW FOCUS CHOICE. IF ANY 

•Elself requcstC'sel-mode-^-FOCUS" THEM 'DATA is default 
•1in«.cnt>=0 



FOR Xfl TO requestCparent_cnt") "25 
STRX»«RIGWTC"0000"&X.5) ^ 

IF REQUESrrCHKP"iSTR)0=l TXEN 

CW-PERSONJO=RWESTCIOP"*STRX> 

aNameKasCheckeds'r* 
exit for 
END IF 
NEXT 

IF aHamewasChecked^-M" THEN 

FOR X^l TO pequestC"«Pous^cnt ) 

STRXFRIGHTCOOOO-adCa) 

IF REaUESTC"CHKS"&STRX)=l THEN 

CMlS>ERS0ILJI>-RMUESTC*I0S-«STR30 
ailan«Mscheckcd-''Y~ 



eait for 
END IF 



• atrSlOfc=rt ght C-0000"ASx . 2)&ri ght<"O0OO-«lCx , 2) 

IF aM«ieWi«Checked=-N- then 

FOR Sal TO request ("spoose_cnt ) 25 
•just look for up to 25 kids per spouse 
-rather than try to pass a specific count to here 
FOR ita TO 25 • rcquest("child_cnt ) 2$ 

IF RBQUEsrCa<KDC"tetrSK>Q"iT!!P^-w^ 

CHJePERS0NJI>=REQUESrriD0C"4strSI00 
aHaiBeMasChecked=''Y" 



exit for 
END IF 
NEXT 
lEXT 
MD IF 



IF aN8aNMasChecked=''Y" then 

neii.fo€USLjwme»Ofl(Lj>ERSOH_lD 

*^ **ne«Jt>cu*jwnie=«BQMESTrsTAKr_per*on_i d") 
end if 



kFORM METHOO=POST Aan0H=''db$rcl71.asp** id=^nn2 naine^nB2> 
<!— The screens will continue with the new focus name chosen.— > 
<bi><iMPUT typ«heckbox n«»e=chk0001 VAUIEd chcckeib- 

SHPufTrypfc^TEXr MAM&»-gr1<L.id0001- SIZE*14 valuea"-*»n«LfocuSuJ»me«>-"> 
^NPUT TVPEj»"TExr* NAKE^'line^nt" SIZEb2 wa1ueo"l"> 



^NPUr TYPfe»"Mdden" lw«Esi"entry.type" value»"EifrER' SIZEbS> 

^NPvr TYPEss-sulwrit- valuc="CHAMGE FOCUS PERSOlT 1d»sufan1t2 nwie«5iArit2> 
VFORM> 

^HO IF 'FOR CHANGE OR RE-FOCUS OPgATIWeb. 
.aSend if *FOR ALL OF SECOND HALF OF PROGRAMED 

^S?*hre?i5ienuidul.a8p->Retum t» Searcher Main Menu </a></p> 

</Maf> 

</mwL> 
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C!\i>»tcnt\l»xlu1«»N<«>«rcatS.i 



r0larr.Op*n srrSQLM, cnSeareh 

If rsMrr.cof or rsltorp.bof then _^ ^ 
Response ,wHte "'«BR>llo B»rH»B« P«a>pd found" 
Ma pH ageUpd* tetfci"ir 
•^*« - 

£S5K^ type-text n«««arrj«mth v.l««-Ars«.rrC--arr^th-)A-M32r»- sia-2>-) 
J;SS;U:I!hS hSS^ t3«e-t«it naM^marr^y v.l«e.-*rs«.rr<-«rr_day->fc-M32:-«- size-2>") 
^igSniSriS f-5S?K'iype=t«t nM«««rr^r^ccur «l«e=-*rsMarr(-«rr_yrjcc«r-)*"«32;-*" nze=4>-) 

iSSelSTriJUc value--*-*««rK-~rr^tat»-)^-4-W32r*- size=3(»") 

^IJSS SrtS ^"SSSS^^^^ixt «-i«.rO«t v,lMe.-*rsmrrC^rr_l.r->A-*#32:-4- size^ >-) 
SSSrJlSrSS f-SS?l?$pl.text n-^arr.lon* v.l«e--*rsMarrC~rr_long-)ft-«32;-*- >") 
?:SSS«:!:hS J-^SSS^Ve^tert na««rrjeo^ca.r «lue--*r«.rrC-i«uT-9«^cur-)*-«32;''*" »i^*=l>-3 
JJJJSSJJiShJI i-SKS'S^text ««««rrjH>tel .ral»ii.-*---*r«..rrCWr^t.l->ft-'-*-*#32;-A- .ize^ >-> 
end If 'record found? 

lS*?f *^^Sd of mrriaoe -::s- check 

end If -end of iMirri«9e -data type check 

• end marrlmge---------- 

If r«qiie*t<"revjn")-4 then 

^AiMKerson'ft description text appears here SHW TExr.<8R> 
r*T«xt a Server .CreateObJectCADOW.Recordset") 

StrSQLT€xt>"SELBCr * 

-frOM HT€Xt.« "A- „ ^ . . 

•■here persoa.id - anw.id & 

psText.Open strSQLText, cnSearch 

if rsText.eof or r»Text.bof then . _ . . 
Reiponse.Mrlte "<BR>Mo Text record mind, but one created 
rgrext.dose , _ 

r»Text.Open "Select * from HT«xt_£^ 

enSearch , adopenOynaanc .adLockOptmri sti c 
rsText.Afddnew 

rsTextCperaofuld-) - naaft-ld 

rsText.ubdate 

rsText. close 

rsText.Open strSQLText, cnSearch 

Response .writ* "<8lt>Text record found" 
endTf 'end of text record check 

R» X»l TD 25 
S-mx«UGHT<"000O-*X , 2) 

lin€jx)ld-rtri«(r«t€xtrt"4«trx» 

USsSS^^H^^CVBRx-tot^ type^text «a«=-*lin^j-na *' vlui^ - »11neJ»ldft— •-*«2;- •1teM0>-) 

>.«Hte C<Mxll»W type-*ext value-" *r«T«xt T - V)" VMiZr *" »1a»*0>-> 



'BID IF * end of text record diack 
X> 

.^Kcnd If ' end of text update]K> 

' <| > 

^f r«|oestCr«v_^in">«5 then 
X> 

<8K>PhoGo Shown here SHOM PHOTO 
<9(end Sflb- 

<SIIf request (-rev_ftn"D»6 then 

Xf. 

•«R>c1tat{on oaage shown here SHOW CUE image 

<5Kend ifX> 

<l > 

<l ^ ^ 

^ockandcharge n*i*_id. -00000001". requestrrwjin 
1I> 



<|~ fXNCLUDE VJKTll«.="C3C»lM0M/O4WIGa>l.IMC" ~> 

$5^?i^>enuhobl.aap->Retum to Hobbyist Main Menu </kx/p> 
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C;\patent:\Mttdu1es\dbsrc265.a5p 
</Ktm> 
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Ct\prttnftM<Ddu1«t\db»rc2«,Mp 

•am LMMwgc^'c«^e< *> 

<k option E»l felt , 

<ll^|J1nelBdt v«rtii»U-e«i«>n/a< 

^SPlMC'CEMEUnOR' ftntHfrt^Hlcrwoft visual Studfe •.0% 

^mE>*«e8V - imWTE IMnWC0IML4/TXTU> 
HDHWeOY - UPMTE XNOXVIDUAL VMJ> 



Starring 1 

<INPVT 7V«--Tixr m«»-»tart.lnjn«" SX2MS »t1ii«-".«=rBqH««tC»t»rt_l »■")«>"> 

^NFVr TYP€»TE3fr ■Mt^'fttarcfiMtt" $I2&>1S Mlije«"*«qiie»tCst«rt:fii««e")k-> 
!dmT TyPtF-'TEXr IIMtt-"»t»rt>WMi«" sums Mlu«-"<W«(ue»tCst»rt_pn««->Jb'"> 

Sbwt -lYPc^-Ton- iiwi^-it>rt.4i«w«-»"- SX2S-1 vilii^-^fc«qii«rtC"ST«r_pcf*on>o-)»'> 



DIM ST«rT_ptMONj(>, iJpS*Te_p«r««Od. rw.*!! 

□ updatZ!penoa.i<l-requMtC>PMT^^noit_1d } 
*0 Set cnlndlv . 5«rv«r.CrMtiiOhJ«etr«QBa-eoflnect1«»-) 



cnlndiv.Opcn -<i>l" 
if re»_#n = 2 1 



IX! 

□ If re»_jili = 2 tn«t 
'pane 2/0 of AST for dua ^ 
A s5t«indl¥ - s«rvar.Cp«at«f*Jo:tr*«».««eord5es") 
»y witP^rsof^'Salect • from Hpci-SMUt '4, 

fU 



'rsindiv.Aildnci* 
•liiiHv_1d_fctr »-0000000(rft"1010" 



•rtfn«HvrDtr»o(uid"> - 

UJ 



•f»Ii»d1v<-p«r»on_id"> - lncHv_1d_»tr 



I B rsindiv[~p€r«on^ 
y] rdndlvrpcnMCli 




□ rsXmK VI - p«nnq_an« 

jiA 'If 1 B 2 1 

•IF «lOfr(REQUESTrPE«S0H_SBrj.l)-" 
•||«si)on.e.»ftit« "IT M« A SP«Ce' 
•fLSE 

'MSpCMM.VHt* MS NOT A STMCT 
'BO XF 

rcmMwrpcnoiuMX-} - trtoOtiqutstrpcrMfuier)} 

•MTU A SMMX « TW EM). THAT MAK IT TtOJjOWTO «T - Kf^miOR S£R£BI 
ftlmMvrWrth.yr^aif') ^ 7 tr^^** — 



*-Mrthjl^-) - xriwZn^uttiL, 



rilncKvrblrthjcoiwtrw-) -trt»<MquwtrMrtn_60tmtry-)> 

•<f l«ti(R«Qiie»tCWrt'V-1 then 

•r»lnd1w<-birth_l»t->rf» . ^ , 

;«!»« pmifi*<vrMrth_lair>-r«qu«iKCbirtfC»«t- > 

*^rlind1*rrMrttx_Utr} " R«9tta»tC"b1rth_UO 'Xfp* olMltch 
•if lenOtaqMftrtCbirtK.lonB'O)^ then 

-did If 
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-chriiuJay") = tiTirfRev««trdirj*jday-)) 

chrl8-»tati-5 » tHii<ll«que»t<-chna_state'72^, 
chrlsjcitv-S - tnaCRequestrchns^ntv )) 
-chHOong*) - trteCiteQueitCchrUJong*)) 

«lndivr<teath_yr_4ccur-) = trim(R«que5t(-death^r^cur-» 
rsIndivJ-deathJionth") = tHmeRcqu«.tf-de«thji^ 

psindlvrdcathJIac*) = tr1ra<a«}t»e»t<^«*eath_T*f )) 
5li3iv(-deatiCQeo:accur-> - tniiKReqiiestC-deadLieeL^ccur-)) 

psindlvrbMrtaljnonth'') = tri«{ReqiiestCburtalj«>nth 
SSlv(-buHal_day-) - trinjReuiJestrburjal.day-)) 

rslndlvCbwHal.cDuntry'') e trt«CR«9*«»jC"boH«1 country"}) 

SndivCbuHal.county-) = *»1*C'^«>««st<-taHal^ounty^^ 
rslndivCburlal^city-) = tn»CR«|uestJ"bur1al cjt« )> 
SndivCbortaVlat') - tHmdlequestrbttPlaUTatr)) 
•if lenOteq«»e»tf buHal.lat"))^ then 

rSSdilrburtal.lonQ-), - trlmCRaquMtCburial^loog-)) 

rslndi vC bu H al_o<o _accur") a tH«<R«queatrb»»H«1_9«»-ACCur-)) 
If lenCrequestrp««'sonjf»t«l")> > 80 the" „. 

*^JIlndiv(-person_/»t«l-) = RequeatCparsonjiotel") 
*^5Jlndiv("person_note2-) - Request rpersoaj»ta2-) 

'^rtIndivrperspn-note4"> = Reque»t("per»oiwiote4") 
e nd If 

'^SindivCperaon-fiDteS-) - ItequestrpePionjwtaS-) 
end if 

'^rslndiv<-personLnoter) - ReqMaBtrpap«ofunot»6-) 

'^"indivCpersoiunoteT-J - MquastCP^Wjiot^) 
end If ^ . 

If lenfrequestCpersofunoteS )) > 80 then 

reindlvJ'parwInoteS-) = l«ft(RequestC"pers<Munote8")»M) 

*^Slndiv(-per»on_note8-) = Request ("peraon-liota8-> 

*rslnSlvrparw)nj»ta2") = MqueatrpersonjwteZ;;! 
•rsindivC*per9on^te3-5 - fteqiiMt<-|«r»oaj»te3-5 

'end if "mtPCMFPf 
rslndiv. update 
rsIndlv.cioM 

end If ^ 

ttart marHage= 
trim rs*tarr» strSQLM 
Oin «arr_hua_no. ■iarr_)wif«_no 

If JS«iirrasSSj<ElATIvt.TYPE->-S- and r«que*tCllaprt*o««|idated"):«-V- THOI 

• seartLpersoiul d=reques tC »taJX4>epson_1 d") 

• ©una r_1 d»l eftCatartjjeramui d , ») 

*Daoe 270 of ASP for dua 

set rttiarr - server .cre*teobject("AD0t6.«eeordset") 

If tri«CRe<|uest("persoi>„»ex-)) • T TM0I 
•iarr_hu»_no • startuperaoiv-id 
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Ci\p»t«rt:^ltodu1*s\tf >arc»6.w 

mrrjrifow - iipditcpemruld 

mrrJnia_iio « updMc_p«rsenJd 
" 9tarcjierson_1d 



Strsqu*s-stL£CT • 

"from »MirH«g«.t ^ ^ ^ 

-i*er« BiarrJiua_no = * *?»"'-*"5J» *-..*- 
- and wrr jrtf«LJ>o » *Mrrj»if«jid « 

If fsmrr.MFf or rsfcarr.bof THEM _^ ^ - 
Resporwe.wHta "<8tollo mtrrimg^ record fbund" 
• Ha rH ageUpd»teda"H- 

•NarH •9eUpd«ted-"Y" 

•K3??.idStr »-oooooooo-*"ioio- 

•IndWliStr -^jhtCstr1ng(14,-0->* 05ner^1d,8>_ 

& rlahtC»trTnaU<. 0'')&1ndiw_1d,4) . 
■r»ln€H»rSr*Oiu1d^5 - lndtv_14_»tr V o*mer_id*ll»0 
•r«lmHv<*per»onJd"5 - _ 

"oMner *<r IiMHv_1d •♦• oiMner_id*1000 
•r»IiMKvCperiofL.id") » Indiv lOtr 
•Xf r«»u«*t<"STAaT_per90#c»eji )- iT then 

'else 

rsiiarrOiiaiTjwJSjio") « Indiw^i4_»tr 
•nHirrO»rrjrtfejio"> = itart^jHsnoruid 
'end 

r»mrr(~inarr^ear-) = tHn<Reqoest$;;iarr_ycaO) 
I5Srrl-»«rr>cxit*i*> = tH2Heque»t^;Barrjy>nA*)) 
rStarrf-mrrJ^y-') - trtiRReqiiestC MrrjdayO) 
SSfS''ii»rr:5rImccur-) Jtf^CU^uMtCf^rr^^CUi^'i') 

-■arr.eountry'*) » RoquwstCmarr.country") 
'"parr^tate") - Request ("mar r_stat« ) 
"■iarr.<ounty') « RequestC"marr cowity ) 

^ iarr3«t*)«trii!i(reque»t^«arr_lat)5 
else 

rsMarrCnarr^tal-) - Req»je»t<-«arrj«tel-5 

>tfUfTCMrr_noter) - RequestCMirjwtel-) 

rsMarr .update ^ _j j 

tftsponse: write '-tfiOMarrlaoe record was updated" 
STif • record T ' 



So*IF**^^*So OF MARRIAGE RECORD Update - check WSPUYJlElATIVEjnfPE and MarrtafleUpdattd 

Old If 'El© O F iWUliAGE RECORD Updat e - check rew_an value 

'start Megr^lcal text update 
Din rSTort, STOX, StrSC»LT«it, X 

St'S^SS^lJTirr-J«.2SjectrAOO0B.Record,.tr) 
StrsqjLTex*-"SELOT^ * "4- 

-5Krt*plS55jd ftrequestCUPOAT^^ersofuld-) A 

rsTcKt.open strSQLTaxt. cnlodJv.adopenOynaHric.adLockoptimlscIc 
if rsTeMt.eof or r^eat.bof then 
Response.vHto "<M>lto Text record fomi 

Response .write **<BR>T«xt record found* 

FOR Xsl TO 2S 

STRSMiorrroooo-MjiP 

?jTextnr*»tni)-rtrtni(request(-r'*»tn«)) 
end If 
next 

rsTex t • update 

Response .Write -<8R>Teict record was updated" 
rsText.closo^ , ^ ^ 

end If ' and of text update 
%y 

<a(end if ' end of text update sectional 
<I > 

Err .Milter = 9 Vhm »- 



2r^t'»!iSM>T5le"r«opd ms updated. Vlv^/fiwrtxp^ 

^ ELSE lb 

%re was an error updatirM t»»^«<»riS>- 
Error #db«rr .Hun6er«^; .dUErr.Oe»cnpHoi«>«<p> 
^ End If X> 

^NPUT TYPC-siiBrit" value-*O0ifnMUE" IdxuARritZ MBwubBrit2> 
VFORI^ 
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«50 LAiigu«ge<^Script 

^ Option Explicit X> ^ , J J. , - _^ 
<|— #1nc1ud« virtual -"comnDn/adewAs.inc — > 
<dfmt> 

^SlfA^^NMiE^'GSIERATm* CDntiftn^-lrteroiflf t Visual Studio 6.0"> 

-n-ITLE>HC«BY - ADO 1ND1V1DUAL</TTT1.E> 
<Hi>HOBer - ADD INOXVIMML </H3> 
</HEAD> 

<aoor> 

<HR> 
a( 

•ThTflJiTtlw thi. page i» f'*''?**^!,!!?*^!!?' 
■Bubnritted without b«ing coRplctely filled out, tlie fom 
•IrSSuywI. If It is submitted and oinplataly Hllad «it, 
•the fbrw U processed In the Else clause. 

ReqiSstrbirth^ear"S= " Or Reque»t("birth_country")- or _ 

RequestCP«"'K>^ex"5= 

^e«se fill out all the fields below for ch you have data. 

A naie caitnot be added without at least a f?rst mne, last n«. 

sex, birth year, and Mrth country .<p> 

MheA yolTare finished, click the add «"Sai buttnn^^a- 

Soil Sethoo-pwt Acnoife-i«siiC267.«sp- Id-fonal nMt.4t)rafl> 

Add person related to Person ID 

Starting Person^p*- 

SSw^TVPfc-TOfr llM«--start-lnai«- SIZtelS value.--dfcrequest<-start.ln«e-)l>-> 

Silwr TYPfc-TEXr HAMEs-start^fnawe" SIZE^IS valufc="«dtrequostrstart.fname")1fr-> 
SSput TYPfe'TOT- M*l*&--startJ«ina«e- SXZE»1S valu*.-<K=inequestCstartJ»iaiiie-)X>-i. 
<fiR> 

SilSr TYPfe'TEXT- i««=-»tartj»irth_year- smM value.--d8-rwiuestrst«rtJbirthjre«i'>*>-> 
<IHPUT TYPE»"TExr N*liE--startLj?er5on_sex- SZZE^l value=--«afcireque$t(-startj»erson^ex->afi»'-> 

j3jjrTJpE--TDcr «*«Ea-$tartj>en«in_id- SI2E=14 valoe--^reqttest(-startJ)erson-id-)X>-> 

^MPin- TYK-'hidden" iMi«^"spouse- SI2E«1 valuea'^fereqMestf-spoos^M^'^^ 
SmpSt TYPEP-Mdden- lfcWe--plirent- SIZE^l value.-^rw|uestJ>arwiJ^-> 
SmpUT TYPfiJ-hldden- HAMfe-child" S12E-1 Malue--^request(^chnd 

<lKPiiT TYPC--TExr iiamc="adolR£lativE-JVPe- siZErfL value.''-d^request<-*DiuiaATiVE.7VPE->«>"> 

<p> Oimers ossified nwrtber range 

<INPUT TYP£^*TEXr »WME=''owner_id~ SIZE=11> 

<INIVT TYPE-*TEXr lW«Ea"person-inane SIZE»30> 
<8R> 

<INPUr TYPtoTTXr* l4*ME="person_fnarie" SI2&»30 > 
<iNPUr TYPf-TEXT" MAME^-personjnname SIZE=30 > 
S!!JlT^i?pS^" l«-B.-peraonJn«e- 5I2&.30 > 
JtSpSt'tvpio-TEXT- MA«E^"person_r<tle" $IZE^30 > 
Sex 

-ailPlir TyPfe'TOCr" NAMEa"peraon_sex- SIZEol > 

5iS!!?TS2frexr IMME--IREC- S12E=4 > 

25151? TYP6»-TEXr- liA«J.-ICMN- SIZE-8 ~> 
<BR> 

Birth: Year » . a ^ 

<IMPOT TYPC^-TEXT" MAME^-bl rth_year" ST2E-4 > 

SIlwT TYPE=-TEXr HANE--bi rth_pionth- SIZE=2 > 

Snput TYPEa-TExr" i«i«E»"bi rth-jday" SIZE-2 > 

55S!S*TYPE--TExr" iMiits-birthjrrjwcur- siZE=l > 

Year Variance «. . ^ . « 

<ZNPVT TYPE^TEXr IWM&=Tn rth_yr_var" SIZB^ > 

<8R> 

Place: Country (or Icvel^l) „ .^^-^ ^ 

<ZNPUr TVP&a'T^XT" »lAJ«&i"b1rtK_courrtry SIZE=30 > 
<BA> 

Place: State Cor level 2) ^ 
IlHPUr TYPEa-TEXT- lUME^^bi rth-State" SI2E^30 > 

Place: County (or level 3^ 

<INPUT TYPe**TEXr' »i*M&s"birth_county SIZ&*30 > 
<BR> 

Place: City (or level ^ 
<IllPtjr TYP^"TEXr* MAME-'birth-City- SXZ&I30 > 
•(8R> 

iiipirr TYPE»"TEXr" iwM£-"b1rth.i8f size=io > 

^SBrTVPE^nrEXr iaME=-birth_1ong- S12E.10 > 

SSSTrvFE.-TEXr- H*i«pi-birth-fleo.>ccur- nz&l > 

<Bft> 

Christening: 
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<TNi>uT TYPEa'TDCT" MAME-"chrisjrear'* 5IZE-4 > 
Month 

<1NPUT TYPEa"TOCr liA*IE-"chrisjnoflth" SIZ£^ > 
Snput TYP&i-TEXr- IM>IE=i"ehr1*Jay" $IZEp2 > 
SSpof^TVP&i'^EXr liAME3"chrii_yr_«ccur" SZZE=1 > 
2!pwr*mSVDfr M»iE-"ehr1«_yr-.v«r" SIZE?) > 

<MI> 

Place, country <or level 1) 

■cIHPUT TYPES-TEXT" chr1^.eountry" SIZEb30 > 

-<BR> 

Place. State (or level 2) , , ,^ 

<IMPUT TYPE=«**TEXr' MAMEf^chrl &_Stat«" SIZE^O > 
<BR> 

Place. County Cor level 3) ^ 

<IWPUT TYPE=*TEXr NA«Ep"chH S_cqunty" SIZ&>30 > 

<SR> 

rtftce, city (or level 4) 

<IHPlfr TYPEa^TEXT" MAME="chn a_ci ty SI2Eo30> 
<BR> 

Lati tilde 

<IHPUT TYPE^"TlXr* KAHE=-chH a_l af SIZE=10 > 
Lonol tude 

<IHPiyr TYPE»"TEXT" HAME- 'chrl «_long- S12E=10 > 
Accuracy 

<IIIPVT TYPEa-TEXT* HAME»"chri 5_oeOuaCCur" SIZEsl > 
<8R> 

Death: Year 

<INPUT TYPE^TEXT" M/«E-"death_year" SIZE>-4 > 

<INPUT TYPfc»~TEXT'' HiM*E»"deathj»nth** SIZEs2 > 
Day 

<IMPUr TYP&="TEXT" HAMEB"death_day" 5IZE-2 > 
Accuracy ^ ^ i 

<IIIPVr TYPE»"TEXT IIA»«a"death_yr_accur' SIZEsl > 

Year Variance . , ^ • „ , 

ciNPur tyi>Ep"text" iiAME-"4e»t**_yr«var sizeppS > 

PlSe. Country fer level 1) 

<IMPUT TYPB»"TExr' iMMEa''deathjcountry SXZBsSO > 
PlSe. state (or level 2) 

<INPUT TYPB="TEXT" HAME^*deat»LJState" SIZE^M > 
Place. County (or level 3) 

<3»IPUT TYPfc'TEXT" NAME*"deatlL-COUt»ty" SIZE»30 > 
<BI& 

Place. City (or level 4) 

<lMPvf TYPE=\ext- MAM&.-dcath^city- SIZE-30> 
Lati tude 

<INPUT 7YPe='^EXr- MAMfe-death-lat- SIZE-10> 
Lonol tude 

KiNMJT TYPE-TiXr- •WMe-'deattL.long" SXZEslO > 
SSpor'TYPCa-TEXr" MAMC^-deatlufleot-Dccur" 53za»l > 

SSp5t*TWC-"TOCT* IIAII^"buH»l«year" SIZEM > 

<INIVT TVPE»"TEXT" ll»l6P"-bur1aljnonth" $IZE^2 > 
Day 

<INPaT TYP€=-TEXr »IAME="buHal_day- S12E»2 > 
Accuracy 

<INPUr TYPI--TEXr MMIEa"burtal_yr^ccur^ SIZE»L > 

Year variance ^ ^ ^ . .■r.^i 

<iNPUT TYPeo"TexT" »iAi«Bliur1ai_yr_var SIZM > 

<fW> 



Place, country (or level 1> ^ 
<INPUT TYPC^-TEXT" liAMfc»"bun »l_COUntry SIZEbIO > 

Place. State (or level 2> 

<lSpSf 7WD.-TEXr MAME^Wlal^tate- SIZEpBO > 
<BR> 

Placa, county (or level 3? , . „ 

■cINPl/r TYPC-nTEXr NM4E« blir1al.jCOUn^* SZZGs30 > 
^R> 

Place, City (or level 4) . , ^ 

<INPin' TYPCa'TEXr* NA»<Es"burial_ci ty" Sr2E»30> 

Latitude 

Smput TYPfc.-TEXr NAM&»-burial_lat- SIZ&OO > 

S!1p1ttvpe»1ext" NAME-"burial.len9'* SXZE^IO > 
Accuracy 

<iMPiiT TYPE»"TEXr" iiAM&B"buri al_geo jBCCUr" SIZEr>l > 
<fiR> 

Identlficatifw or Data Quality Notes 
^MPUT^TYPE^-TEXr IIAME«*'pa rsoaJWrEX" SXZE-80 > 

SKSr'^TVP&TExr iiAi«p"per»oajiOTE2" sizebSO > 
<BR>Hote3: 

UNPVrr TYPE^"TEXT- IUN&i"persofUiarE3" SZZE-80 > 
<8R>Note4 : 

<lNPlfr TVPE-"TEXT" NAHEs"p«r»ru*Kn'E4" SZZEsSO > 
<BR> 

Original Source Citations 
<SR>NoteS r 

<IMPVT TYPE-'*TEXT" NAIIE»"par«>rL-H0TE5 SI2E»80 > 
<fiR>iiote6 : 

<INPUT TYPC-'TCXT" >M««£^"persorLJ«rrE6" S1Z&»«0 > 
<8ioNote7 ; 

<INPirr TVPC--TEXT" ll»l&»"personJI0TE7" srzEsW > 
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•<8ft>Note8: 

KltmjT TYPE=-T^EXr- li»(£--p«rio*OIOTE8- SIZE-80 > 
<BIt> 

c_\ JTAJIT MJLIUUUUC t ■ ^^^^ 

^flOF r«qu»t(-«ojiELATivEjnrP€-)«-s- -mEia* 

DO you wish to enter namag« d«t« and creact a nam age record? 

<imm TVPC--checkbM- NAHb-MMHrriage" SI2&-1 value»"V-> 

<fiR> 

If data is entered in the msrriaoe data area below, a oarriage record wfll b« created. 
Without it. the spouses wilt still be linked, but will not have marriage event data to display. 
Marria9e: Year 

<IIIPUT TiTEa'TEXr* MA»tEs-o»arr_year~ SXZ£a4 > 
Month 

<XMPUr TVPE»'Texr tUMea"Marr.;nonth* SIZC«2 > 



s'*rEXr iuwE-''narr_day" SIZCsZ > 



Accuracy 

<INPtn' TYPfs'TEXr' »l*N6»"B«irr_yr-»ccur* SIZ&>X > 
<BR> 

Place: Country Qor lewel 1) 

<I»PUT Tn»ea"T6XT* IMM&s'marr.country" SXZEs30 > 
<SR> 

Place: State Cor level 2) 

<lNPtfr TVPE-'TEXr' MAME* anrr^^atate" sxzEm30 > 

Place: County Cor level 3) 

<XMPirT T>TE»*rEXr MMEB*'atarr.jQ»iJnty'' SIZEb30 > 

<BR> 

Place: Ctty (or level 4> 

<lHP\n TYPEs'TEXr* l«i«a"Barr_!City" SIZE^JO > 
<BR> 

Latitude 

<IIIPIJT TYPE»i"TEXr' IWIC«i"«arr_lat" SIZB>7 > 

<li!ptfT "IVPE»TE)Cr NM«E«''aiarr_long** siZE-7 > 
Accuracy 

<TNpuT TVpEs'TBCT*' iiMC«''aMrr_«eo.jaccur'' SIZ&«I > 

<fiR> 

Hotel: 

<INPUT TVPE-'TEXr- liM«Es"MARIUiM>TEl'' SI2E=aO > 
^OEND IF X> 
<!ie»irsEND HARlUAGEs= 



<IttPUT TYP&i"sul»it" values'ACSO PCRSON* SiZEsSO idssubmltl namcasutmi tl> 
</forw» 
^ Else %> 

<roRM NEnK»>*rasT ACTioN-''osSAc261.asp'' Id-fonnl naiBe«foma> 
scarrtno per$oo<p> 
Name: Last 

■<IHPUT TYPC^'*TEXr*' iwNE-"start_lnaaie" sjzeaIS value-" -<X«requestC*start_lname")%>''> 
Fl rst 

<INPUT TYPfc*TEXf ' iMMea**starC_fheM** SIZEslS va1iie3'*.<9Uret|uestC'stBrtjfTianw~)9b»''> 
Middle 

<INPUT TfPE^**TCXr* iiAME«*'startj«n«ae" SIZE^lS value>"<<3l«reqMestC^startjm«e")l&''> 
<BR> 

Birth: Year 

KlHPUT TVPEa^TExr »tAMe="ktartJaii rth_y«*r" S1Z£=4 value»'*<dC^requettrctartJbi rth_year")X>*> 

sex 

<INPUT TVFtw'^rEXr' iMMee**atar«^rson_s«x'* siZE-1 va1ua«''-d^r«euestC''atart-person_Mx'')ab-*> 
Re9istry# 

<ZNPUT TYPE^t'*TCXT** HAM£B**start.j>«rsoa.'((r' szz&>l4 valuea"-Ol^requestC"startLpersoa.10]i^''> 

<BR>e 



<IHP\rr TYPEs^hidden" NAM&s** spouse" sxzEsl value-" <X=rcqucsrC"spous«">X>'> 
<INPtnr TYP&i''hidden" lMMC»**parent'* SI2E^1 valii«9''«^requ«&tC"parent''>X>'''> 
<XliPJr TV1>C*"h1dden- iMM&i''ch11d'' SIZE^ va1ue»"<<forequestC^clrildr')X>V 



<jmVT TVW-'^EXr* IM«-"ADQ_RElATIVt_TYPE" SXZE-1 v«lue»"-dfere«JuestC'*«0-RElATIV£_TVPE->3fc.%- 



Dim cnlndiv. rsCaner. rslndiv, Indiv^id. lndiv_i(Lnext, scrSQI. 
Dim lndiv..id-str, owner^id 
Dfm start;_parsofvJd 

Starx^raorul d=rrequesc(" s tartJ>erson_-i d") 

OMhe rJ dsil ef t (start-pereorui d , 10) 

set cnlndiv • scnrer.CreateObjectCAOOOS.Connectiott") 

cnlndiv. open "dbl" 

'strSQl^'Sclecr * fren owoer.t inhere cwmer_id = 1" 
St r^QL^" select * from Hobbvist^t wrfier* " 4_ 

"hobJCOa «WHER_ID 
sec rscwner « server.createoblectCAOooB.Recordsec") 
rsowncr.open strSQL. cnlndiv. adDpenOynaartc. AdLockoptiwiscfc 
owner.id - r$owner(-hob_.1d-> ^ 
indiv.ld a raOMnerChob^extL.no*) 
Indi v_i4-next>ilndiv_id+l 

if lndiv_id_next < rsOwnerC'hob.jBax.next^*) then 
r5fl»wier(-hobL;iext_no-> » Indiv.id ♦ 1 
r sOMne r . update 
else 

'END TIUMSACnOM BECAUSE OF MUMBCR CVER-RUN 

err.mj«i>er=99 

rsOwnar. close 

cnlndiv. close 

end \r%> 

if err.nunfcer >0 then 'skip ell the code if error occurred above, 
'page 270 of ASP for dun 

set rslndiv = Serve r.Create0bjectC"AD008.Reeordset'*> 
rslndiv. Open "Select • frc« HPer»on_T-._ 

cnlnin V , adopenOy nanri c . adLockOpti nri sTi c 
nlndiv.«<idne« 
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•ln<tiv_i<Lstr -*WOOOOOO-»;i010- 

S rTaht(itHingl4.''0")ftindiv_id,4) ..„nnn 
•r«ii«J1vrp«r»o#u1d^ " - 




rslndivrpersorusex") ^ ReqoestC persorjusex j ^ 
rslndivrbirtturr-accur-) « RequestCbirtiCxr-flccup ) 
rslndiv("b1rth_year-) = rtjuyear ) 

r»ln<Hv("b1rth.j8onth') = Requestf birttuaooth ) 
rslndivrMrttudny") ^ =« ^JlJ^ff'^i 
r«IfMHv(-Mrthjco«itry') « R«)"e;SCryr*=?«*5PT' > 

if lcnCReqiie»trb1rtlul*O)=0 then 

else r5indiwrb1rt*i_1at")=request("b1rth_lai:^) 

>$lidi v("bi rttul at") » RequestCbi rth_l at") " type nri sratch 
if len(Request:(-birth»lon9"))^ then 

rslndivrbirth_lorw">=0 ^ 

e1s« rslndivC birtfLiong")»requi!St< blrth_loog ) 

>8lndivrbirth_1ooQ-) = RequestCbi rttvlong-) 
rslndWrbirtJuoeojccur") = RequestC hi rth_9eo_accur ) 
rslndi vC P^rsofudi ff <cul ty" )=1 

' gaa a aas chrt Stent HQ — = = » ^_ , . -n 

pslndivrchriauyr_*cajr-) = Request( chns^jjr.accur ) 

r«lndivf-chn^jnonth-) = RequeitC chrisjnonth ) 
rslndivr<=hrii_d«y-) = Reque$trchris_day ) 
ralndiv(-chrii_yr_var-) = Request Cchnsjrr.var ) 

r$ind1v<-chria_country") - Request rchris cwmtry") 
r»lndiv<"chri5_state"J = Request ( dip s_st«te) 

•rsIndivCchriOat-) =.K?i*!5^ chri«_1mt ) 
if 1enCRequ«»trchHs_1at-»«* then 
r»lndiv("chria_1«f*^-0 

else rslnd1v<-ehria_lat">=request<-chns_1at ) 

*rslidiv<-chHs_,lon«-) = RequestrchriOong") 
If lenCRequestrchris^long then 

else rsindivrchrlsJong'D-requestCchns-long > 

Sln!Kw(-c*iHa^eo_«ccMf^D - ReQueitCehrl iLOW-acoir") 

rslndiwrSe'SLyr-jBCcur") o Rcque$tC*deatlujfr_aceur-> 
rslndiwCdeatJuyear")^ - Reqoe5trdea2_year ) 
rslndivrdeathjnonth") = R«l"«*t<"i*HH?^ > 
rslndivC<te«*J(tay-) = RequestC'dea^ay") 
Slnd1wC<J»«t*i-yrlvar"> « RequestC" death_yr_var ) 

rsindWrd»atti_countrv-) » '^"^"^"SlSS^lh:^?!!^?'^"^ 
rslndiwCdeath_state-5 - RequeatC deatttjtate > 
rslndivj-deagucountf ) - »»«I»?«5£**:2^75«5J'^^ 
•rsIndivCdeattulat") , = Requwt ("death-la t*) 
if lenCRequo«tCde«tk.lat'*)>BO then 
rslndivCdeflth_lat-)=0 _ 

else r»IndivC'dcath_lat-)-requestr<ieath-lat ) 

VsiidiwC-death_long-) - Request<-d«atti,lonB") 
if lenCRcquestCdtath-loog »«© then 
r«ind1vC"d«ath-lona->=0 ^/-^.^i. -i^^-n 

tlse rsIndivCdeatfLlonB >»^"est( deattuiong ) 

rslndtvC-de attugeo-accuf^) » Req uest Cdeath.oeo.ftccur^) 

r4lndivrburla1_yr^accur-) = »«?"S*<^<!''V''^ al^r jccur*) 
randlvCburlallyear) = Request rborial_year*) 
rSnSvi-buHalionth*} . BequestCburtaJjwooth'') 

rairKKvrbur1a1_yrlvar-> - HequestCburfal.yr.var-) 

rslndiv(-buHa1_aiuntry") - RequestC" burl al^»untry> 
rslndivCTwriol staa"J « Requ«»t<"buria1^tote > 
SSdiJ?-S!HSi:countv*> « SquestC-burial county-*) 
rrfncHvi-buHal.city'S • Request rborlal.cljf-) 
•rslndivC-bwHal_laC-5 > 
if lenCRequestC b«*nel_let then 

^ilidivCbuHal.long") s RequestCburtaUlonB") 
if 1enCftequestC"buria1_1ono*))-0 then 
r9lndiv("burlal_long")«0 . , , 

el M r«ln<M v(-buHaT_1oog">=:requestrbuH al.long") 

raIndTvC"buHal_9eo_accur-) « Reque stCfau ri al^eo_accup-) 

If len(reque»tC"person_notel")) > 80 then ^ ,„v 

rsInd1vC'pers<Munoter) « left(ReqMe»tC"perionjiot»r>.80) 

*^?rindiv<"per3on_notel-) - RequestC" persoajtoteD 
'^r$lnd1vCpersQnj»te2'*) • RequestCperson_note2") 
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end If 

If len(reque»t("p«rson_r»te3"}> > 80 then 

' rJlndivCperaoojwteS-) » Requeit(-ptP8onj*ote3*> 
end if _^ ^ 

If lenfrequestCperson.notM-)) > 80 then 

*'rsInd1vrperson_nott4-> « iiM|ii«»t<-p«rsofij»te«") 
end \f 

nil v?>«Snj»te5^"'l ef t (Reque s t ("pe rson_«> te 5"> .W) 
*^r*IrM»v("p«rsoii_noteS") » R«qu«»tCp«rsofunote5") 
lf*lentpequestrper»oft_note«")> > 80 then 

*^Sjn<HvC"person_note6''> - RequesrC"perscnj»OtWB"J 

else 

r»IwHv("p«r«on-note7-) - RequestCpersooJioter') 

If lenCrequestCpenonjioU*")) > W then 

nindlvC-personlnoteB-} - leftO»€qu«»tC-p«r«onjiote8"),«)) 
else 

r5lnd1vrp«rfion_/»te8") « Reqii«st("peraofT_note8"> 
end if 

"rslndivrpersofunotel") • RcquestC*p«r50n_notel"> 
'rslndiv<"p«r»on-note2-5 - Reque5tC"person_note2 ) 
' rslnd1vC"perioiunote3"5 « RequeatC"personjioter) 

rslndl V .uodate 
rslndiv.cios* 



'Add links as needed 

Dim r»Llnk*. RELATIVEJTYPE. RELATCGOOE * , fSindlv, Indlv.ld. StrSQL 
•Ote •lndiv_id_atr. o.*ierJd 
•Ol» '»t«rt_person_id 

* 5tart-peraon_1d»requestC'st«rtj)erscn_id":) 

Sat r«Link» a Server.CreatellbjectC'ADOOe .Recordset") 
rsLlnks.Open -Select * f rwi MLinksjr" , 

cnlndi V , »dop«nOyn«Bic,adljockOpti»i «tic 
r9Llnlts.AdA>ew 

•Indiv.id^tr --00000000>-101D- 

•lnd<v_id_$tr orightCstnnoa4,-0 34 ownep_1d.8)_ 

« rt^atrTnQ(14,-0')4l?diOd,4) 
'rsindivCperscn_id*) » Iodiv_id_»tr owner_id*aooa 
'rilndiwrperson_1d-) - 

"owner Id Indiw.id ♦ oi*ner_1 d*1000 
•r5lndw("pSr*on_id") = IndW.id^str 
•rslndiwCperson^fnane") = Reque»t( Bersorvjfname ) 
pe1artve_type=reque»tC"RELATlve_TvpE 5 
If RELATIV£»TYP&=-<r then ^ 

relate cod«a"c lOCHOOl 
el self RELATivt_TyfEp"s" wid re«uescCperson-»ex")--»r then 

re1ate_code--SH " ^ ^ '-OShoOOI^ 
elaeHf RElATIVHjrrP&»"S" and rwiu«stC'per»oa-»«")«"r then 

relatc_Codes'*SW * '"OSvflOOl 
elseif RCLAT1VE_TYP&-P" and r«que$tC'p«p«orL.«ex">="ir then 

relate_code--PF " _^ '-liFAOOi; 
elMlf R6LATlVE»TVPfe"P" •f»d request Cpersonj€x")= F" then 

relatQ^de-'PM " •-2a#«001- 

re1at«_C(Mle»"C " '"lOCMOOOl" 
END ir 

rsLinksrpenonl-WtartL^rsoaJd 
psLl nksf "person! "V^indi v_?d^ tr 
rsLinka(-relate")-»ELATEjCO0£ 
rsLinks. update 



rsLlnks.^ . . 

r»LinksC*P««^n2'')-»ta'"^~?«'^"-i ° 
rsLink»rper*onl-)=lmHOd_5tr 

If REunTVE_iYPE»"P* then _ 

relatejcode="C - •"lOCHOOl^,. _ 

eUelf REiAnvc_TYP£«"S and requestC persoa_5ex )» P then 

re1at«_codea~SM ' "OSHUOOl" 

elseif RElATIVtJTYP€»"S" and reque»t("per«on_*ex'')a"'»r then 

relate_cod^*$w ♦■OSwiOOl- 

elself RELAT1VE_TYPE»»"C" and requestC'START_p«rson_»ex")»"M~ then 

re1ate_cod©-''PF " _ •"ISFaOOI" _ _ 

elseif RELATIVE_TVPE»"C" and request<-START_per»on_*«K )» then 

relate^codca'PN " '"ZOiwOOl" 
ELSE 

relate_C9dB--PF " -ISFaOOI" 

EHD IF 

rsLi nksC rel ate">-«CI>rE.C0OE 
rsLinks. update 
rsLlnkft.ciosa 



• START MARRIAC C ■ ■ i ■ 

S"rSuS("ll£LATIVf_TYPr)«-S" and r«questC~aditaarr1afle->"Y- THEM 

• f tartjer9on»id«reqoe$trstart_person_1d") 
•oimef^dal«ftC»tart«peraon_id.8> 

'page 270 of «P for <fcn 
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set rsMapp - scrver.CpeateObjcct^-ADOOB.Recordset") 
rsMarr.Opcn "Select * from HMarpageJT"^ 
cnlndl V , adopenOynaim c • adLoCKOpClnn stl c 
psmarr.Addnew 

indi V.I (Lstr =-00000000"&-1010- 

indlv^ld^tr =Hght<stHng(M,"0")& owner.id.B). 

oMmerJdnOOO 




.,_,.._idn000 

rslndivrpersofuid") = ln<J"«v«.1d_stP 
If requestrsTART_person_sex->="N" then 
rsMarrrmarrJiusuJW-? = start-persoruld 
rsMarprmarrjKifeufio*^) « lndiv«iiL.ttr 

rsMarrCmarp^hua-no-y » lndiv_id_str 

end if „^ 
rsMarrC'marr^year"? = Requestf marr^yeaO 
rsMarr("marr_iaonth^*> = RequestCmarrjiionth ) 
psI*irrC"marr-.day'0 = Requestf marrjiay") 
SSrrClnarrlVrlaccur-) « RequestC-iiiarr_yr_accuO 

rsHarrrmarr.countpy") = Request ("mapr_country") 
rsMarrCmapp^state") = Requcst("niarr_statc ^ 
rslilarrC"marr_county*^) = RequestC marr^county ) 

rslterrf''raarr.lat'')=trifnCreauestC"mapp_lat >) 
rsMaprrniarr_long-)=trirtiCrcqiJestC mapOong )) 
rsMarrrinarp_geo_accur") = RequestC fnarr_geo jccup ) 
If 1en(pequestC'mapp_notel")) > 80 then 

rsMarrrmarr^tel") = leftCRequestCmarr^tel ).80) 

^^rsMarrCmarr^tel") « Reqijest("marr^tcl") 

^rSMappCmarrjiotel") = RequestC"marr_i>otel") 

rsMarr.update 
rsMarr.ciose 

END IF ' END OF MARRIAGE RECORD ADD 

end If 'testing fop postive err. number 
%> 

<XIf Epp.Number = 0 Tticn %> . ^ 

<font: sizc=5xi>The new Person iws added. </ix/fontxp> 
The new individual's ntmber is <a5»Indiv_idS^ <br> 
fiin string is 'd&=indiv_id_str5IS> 

«95 ELSE «> . ^ .J n 

There was an errop adding an individual .<p> 
Error t-dfisErr.Numbertb-: <56=Err.Descriptioil9b><ii> 

<!— FORM METH0O=P0ST ACTIOR="inenuhobl-asp* idaformZ namea^mfl— > 
<BR>You have used up all your name space for new records. 

<BR>You may register for an extension or contact the webmaster for assistance. 
<br> YOU may continue to update existing records. 

^--INPtrt TYPE^-submit" valuea" Acknowledge Name Space Error** id=subnritl namessubmitl> 
</FORM"> 

End If 5£> 

<P> 

<INPUT TYPE;="suhmit" valueo-CDNTIIiUE WITH UPDATES* SIZEpSO id=subimtl nanie=submitJ> 
</fonn> 

<X End If lb. 

<pxa hrefb"menuhobl.asp">Retum to Hobbyist Main Menu </ax/p> 

<p>Anbsp;^P> 

</BaOY^ 

</HTML> 
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^ Option Dtplidt ^ ' m 

^\..§^nc^ud^ v1rtii»1-'coBW»ri/«dovb$.iBC 

<HTML> 

S«T?^MA»«E»" GENERATOR" cootenta"Mi crosof t Vi io»l StudIo 6.0"> 

<T1TLE>AOO M(»BYIST</nTLE> 
<H3>AD0 H06S\nCT</H3> 
</HEAI» 

<Bexrr> 
<w> 

first tin* this ^age U ijlT'fiL'* 
•submitted without being ccmplctcly rilled out, the fbrai 
■is displayed. If it i$ submitted «nd eompUttly flllid out, 
•the forw is processed In the EUe clause. 

If Request<-hob_lni«e-)-— Or Rtqu«stC"hpb-.fr»»5:2-"I„- 
or requestrhob-blrth-)-- or requestC"hobueMn )- _ 

•ReqoestCp«b_a6drl^)»'- Or Request Cpub-C^ty )- *> 
*Reque»tC'pMb-«1P'*)-"*' - 



Or . 
Or . 
Or _ 



Mease fill out all th« fields below for irfiich you have data. 
A new hobbyist cannot be added without at least a first nwi, last name, . . , 
birSday. and email address. Pt»one number and full wiling ^^dress are desirable, 
credit card is used only for upgrade to larger name space and full privileges. 

SSr first name, last n«.e. ««i middle n»e (If "»f2,w«ll.»'««*« your<B> logon ID.VB> 
and your birthday, given in the correct format as Indicated, 
irill becflfflc your <8>pasSMord.</B> 

Sen youare™nished. click the ADO HOB»«ST button,<e> 
<fOW« MCTMOO-POST RCno»i--M0Badd01 .asp- id-fbrwl nanie^ona> 

!3HPUT''TYPfc=*TEXr IWME^"HOB_UI«E" SIZE»1S> 

SmSt TfP^-rvcr' »i*i«»«-MoejwA»iE- sizfel5> 

Vour birthday (and password) In mmxivwy fomat. 

<m>For exMvle. 07101941 would be entered for July iO, 1941. 

tSau -aupvT Tfrb'-Tvcr Hmurmjowii.' size=K)> 

mmE ^TMPUT TYPE--TEXT- IWWIE='*HOB_PHOME- SIZEp20> 

AOORESS iKlHPUT TVPfc»"TEXr MME-"H08.>00R1- S12E^30> 

AMRESS 2<HIPVr 7YPC3"TEXr* •«M&.-H0e.>D0R2- SI2£"30> 

Crr^NPlfT TYPE-Texr IW«E«"HOBL.CItY- size^o> 
$TATE<XHPin TYPEaTEXT- NAMD. -H08_STATE" SIZE-10> 
C0UNTRY<1MPUT TYPE.-TEXT" l«ME-"H08^O0OIfrRy- SJZe=15> 

ziP<iNPUT TYP&i'*rExr" HfmEs'mjir sizes10> 

lSlCITUDE<lHPUT TYPE=-TEXT- IIA»««-HOa_tOllG- SZZE^> 

!£aHucy<iNPur nrD-TExr- iwME.-H08_cEO.xcam- si2e»i> 
^^rr cAJuxiMPirr TYPE»"T£xr- iiAia>''Moe_aiE0XTjCO^ SXZE-30> 

SStEIkINPUT 7YP&»"TEXT" HAMEc-HOejiOrEl- SIZ&-80> 

SfSptfT TfPU'subHit" valuft."ADD HOBBYIST- SIZE^SO 1d-»itwiU n«»-»*iwitl> 
VF=ORtt> 

^ Else %> 

Dim cnHcbMun. rsHobNun. rsMob, Hob^ld. Hob.14^r 

set ortlobSjHr'o serwer.createObjectCADOOB.Conneetlon-) 

cnHobMun.Open "dbl** . . ,^ _j 

Set rs»stlli» «• server.Cr«ateobject(-AD008 .Recordset") 
rsNastXun.Open "Select * from HJtestJiobjiuir 
cnHobNua , adopenOynairi c , adLockoptiwI sti c 
Hob.ld - rsMastiiiijK-llastJtobjtextLjno ) 
r£Mastiftin(^st_Mobj»ext_no"> = Hob_id + 1 
rsMastmm. update 

•Response .write "pub_1*«" 
• Response .WH to piA^id 

•page 270 Of ASP for dui» 

set rsHob - server. Createobjectf AOCi».Record»ef ) 
riHob.Open -Select * frcwi Bobbyist-T" ._ 

cnKobNua, adopenCynaraicadLockopCisn Stic 
riHob Adfinew 

Hob id_str-RIOn-(-0000000000-4hob.id,10) 
rs»«b(-hobJd-) = hobJd_»tr 
•rsPubC'p'^-^*'') » pub_1d 
rshobrhobjKxtjKj-) "t at 1 tD start 

rshobrhob_p»j^_neKt^ ) « 99 _ 
r$hohrhob_fn«iie-) = Requcstf hob_fna»c ) 
rshobrhobjiwwie-) - Roquest( hob_)m»anie ) 
rshobrhob^lnanc-5 = Request( hob_lname^) 
rshobrhob enairj » RequestC hob.onall ) 
rshobrbcblphone-J « Requestf;hcb_pbone;;) 
r5hob<-hob_addrl"5 » Request^ hob.addrl ) 
rshob(-hob_addr2-5 » Request('*hQb_addr2 ) 
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rshobC'hob.city") = RequestChob_city-) 
rshobC'hob^state^') ^ Request("hob_stat€") _ 
rshobC'hob_country-> = RequestChob^country ) 
rshob<"hob«2lp-) - R€qu€St("hob«zip-^ 
•rsPubC"pub_lat'^) = Requ€StC*pub.lar') 
if lenCRequest("hob.lat-)>^ then 
rshob("hob.laf^)=0 

el se rshob("hob_l at")=r€qucst("hob.1 at") 
end if 

•rsPubC'pub^long") ^ Request("pub_long") 
if 1enCRequestC'*hob.lonQ"»=0 then 
r shob (" hob_l ong'*)=0 

el se rshob("hobJong")=request("hob_long") 
end if 

rshobC*hob_geo_accur") ^ Request C"hob«geo_acciir ) 
rshobC*hob_notel") = Requests bob_notel") 
rshobChob_credi t-cd") = RcquestC"hob_credit_cd ) 
rshobC*hob_bi rth") = Request C hob_bi rth") 

rshob. update 

%> 

The new Hobbyist's number is <a6*hob_id36><BR> 

<5KIf Err. Number = 0 Then %> ^ ,^ 

<lfont size«5><!b>The new Hobbyist was created.<«/b><l/font><p> 

<a href="menuhobl-htm">Hobbyist Main M€nu</a><p> 

<5C ELSE %> . 

There was an error adding a Hobbyist .<p> 

Error #<3&=Lrr.Number5l6>: <:%=Err.OescriptionaS><p> 

^ End If %> 

<X End If %> 



<f>>tobsp;</P> 

</BOEnr> 

</HTML> 
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^ Langtage^ScHpt X> 
<3SOpt1on Expllclr 9&> 

<dCRespons«.Btfff«rMjnie %> . . . - 
<!— #includ« virtuals^caiwon/adowbs.lnc" — > 

<KTML> 

<META »WME-"C£«ERATOR" Cooten-Di-Mlcrosoft Visual studio 6.0''> 

.OXrLE>H06BV ANCESTOR PCOIGREE SU»*ARY - Start S€«rch</Trnjt> 
<H3>M0B8Y ANCESTOR PEDIGREE SMMARY - Start Search (Fre«)VH3> 

<A»EAD> 

<BOOY> 

<M> 

•This program let* a viewer choose and pay for nanes. 

•The first tint this p«8e i» r*^n«ved. and any time it 1$ 
'submitted without being completely filled out, the form 
'is displayed. If it is slotted and completely filled out. 
'the form is processed In the tlsa clause. 
Dim start_person_lna)ne, start-persoo-'mame, start^ersoojnnaae 
Dim start_persoii_byear. start^rsoruid 



'LOGON CHECK 

'if s«ssion<"buyer_log9ed_(on->o-huyer legged on- then 

• response. ndlr^triogHVOl.asp-) 'see p. 337 of prog guide 

■end if 



•If Requestrstartj)erioOr«">-'; or Requ€»t<-5tartLP«rson_fh 

or requestC starts rson_byear"V" and requestCstartj>ersonJd then 

If Request("sUrt_p«rsorulname'')s-' AND reque5t<"startuJersoiui<r)=r"" THEN 

^cer the last name, and then add one or more of the following fields > first 
name middle n»ie. birth year - as extra criteria to describe the person trfiere 

SSS^^DSd like to start ti!e Hobby ancestor pedigree sunary search. <l-(llote: Only the lest nmne is used for testing.)--> 
<ftR>Or, if yoo already have the person's Genealogy Registry 
ID, please use it to go direct and save tine. 

<BR>Search may be ^ ^ ^ , ^ ^ 

limited to nanes in a recent time range, such as those born in this century. The 

pedigree-folloinno process is used after that. <p> 

<FORN H£THOI>3post ACriONa"hoban01S.asp 1(^ona2 name»for»2> 

Starting/Focus Person :<BR> 

nMte<BR> 

Last 

<INPUT NAIitt»"start_p«'*s<«-l'«««" SI2E»14 > First 
•dNPUT ii*M&-'*start-perso**_fi»aiie- size-14 > middle 
■dNRTT liaiiC»"st*rt^rsofCi¥iame SI2E°14 xP> 
Birth Year ^ « ^ 

<INPUT M*i»eCw"startj»ersonJ)ycar" SIZE*4 ><p> 

Person's Registry 10 

<iNPirr NAME-'start^persoiuid- sizEal4 > 

SnpVT TYPC«*sufamit" values"start Search" idssubmitl nameBSubintl> 

</FORM> 

<j(else%> 

<% 

•Dim strSQLTenp. tabl e_name, owner.id 

' create temporary table for cookie processing 

Dim aisearch. rsSearch 
Dim mstart_persof\.id, a 
Dim strSQip 

Dim firstrec. lastrec, stm, line^nt 
Dim strSQLfields, maiual lowed 

nax_a1lowcd-300 „ , 

set cnsearch - Server,Cre«teCbject<"AD0I».Cdnn«t1on > 
cnsearch.Cpen "dbl" 

Set rsScarch b Serve r.CreateObjectCADOOB.Recordset-^ 

'mstart_person_1<l " r1ghtCstringC»,"0")*reque»tC*'start_persof>_id">,12) 

'from the opening screen 

'Response .writs pistart.jMrson.1d 

"Vhere persoiulnwae >« ftnstart_perMn_id 

•construct SQL for multiple search criteria 
if request(''startj)erson_id-)o'"* then 

StrSQL|»=**SELECr^person_1d. persoiulnmne, person_thaBic, 4_ 
"personjmiame ■ "At. 

-birth_year. birthjwnth, birthjday, bi rth_coontry, -«u 
■•birt»L.scate, birth_couney, birthjcity 
"from l^rsorx_t "^i. 

"where person-id « »r«|uestr«art^rson_id~) * " *_ _ 
" OtOER BY PERSOK-UMME. persorufviame , persofuwume, birth-year^ 

else 

strSQLfields-" BIRTW^year > '1900' and ** 
If nique$tCstartL4>«r*oo_lna«»e >o tihen 

StrSQLfieldssstrSQLfields A" p€rson_lname « '- &requestC*start_persaA.1name ) A 
end if 

^^sSsSfields^strsStfieTds^F and persof?_fn«nB - *" ArequestCstart.jiersofufname-) IT' ' 

if request C"start_pcrson_mname")o" then >^ ... « 

strSQLfields=strs<».fi«lda «" and pertonjiname o ftrequestC starcpersonjRnaoe") & 

^^strtSSeldSStrtoWelSs**^'*^ birth!lyear « •" ArequestCstart^rsoiu^ear^) &- " 
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end If 

StrS<Jup=''SEiECr^j«rsoru1d, pirsoiulnaM, persoiTJfiiaMe. "4- 

"birtfustate, Mrth_courity. birthjdty *. 

"f n» Npersorut "fiL. 

-irfiere ^ ftstrSQLfields A_ ^ 

" OftDER BY PERSOHJLNMC. per8on_f»wwe. p«r»oa>name, birtiuyaar- 
end ff * and cf sql craata logic 

• Viera par»on.li«ae » *" ftrequestr»tartj»ersocUname-) »--*_ 

•••where per»on_1rtMi« -«> *" 4requescCst«rtLj>ers<m_lnjme-> A""* 

and persofufname -> irtquestrstarcjierson-fnawe^J fl!!! f- 
and personjwiame -> *" ftrequestritart_personj»nw« ) A 
and b?rtK-yaar - 4fxquestr5Caixj)er»onJ>y«ar > & 

'Relational (,<, >. >-) - HSDM »- OPERATOR, COHPARTISOH OPERATORS 



'responsa.tN-ltia request C"»taft_p«raoculnaiie"> 
'Responia.Mrite »trSQLp 

If rssaardi. state « adsrateOpen then rsSearch .Close ^ ^ . _ 
rssearch.Open strSqM>. cnSearch. adopendynamic. adLockoptliilsnc 

'rssearch.open strsQLp. cnScartrh 

*use input screen like dl>5rchl0 
*do search 

<PORM NETHOO-eost ACnoWs'hob-nOM.asp" id=fbr™i n5me=forml> 

select a sST^ing focus per«>n from tKe follwrtng list by checking a single 

^R>The person's relariwcs will be counted and the 
resoltinr«»onts will be shown to you on the next screen Cfree). 

•if rsSearch. eof - skip 

do while nor r5Search.EDF and x < nax^lloMed *<26 
r™«ifi«?2°?-5;>ilHPUT tVPe=checkbox nanie=chk-«strX »" VAUUE«1>- 



nSK- I "oriSSnr- ft strx * - valiie-"ft---ftrsSearehC"birth^ear-)ft*;-&2C^Pi.^^ ^^^T?"!? 
rSmZ" ft -gridjfd" ft strX ft - valtte-"ft-*-ftrsSearchC"persoiu1d-^ft *"«rtb«p5**" nM-lS>"5 



response.MHte r<WPUr type-text 
respons«.«n-it« (-<IHPtfT typa-text 
response.wHce <-<lllPin- typ««text 
rsSearch. novencxt ^ , _.. 

•if x^l then firBtrecerssearch.bootawrfc 

loop ylr'T* X 1 

rSJJSs"JHt:e*<"<IMPJT type-hidden name-l1n«.cnt values" ftx ft" size«4>''> 

^%«wS^5ritr-<h3l!At Least "ftX ft" names were found meeting your criter1aVh3>" 
end if 

'^^Response^Write "<h3>"« ft" iwaes "wr* found naating yoor criteria</h3>" 
end if 

'^Rj^So^SrwHte -<h3>iio Nanes merm found naating your cHtaria</h3>" 
end if 

* 1 as trec=-rssearch . booksark 

'tMD subilt buttsns that go fomard or back 
%> _ 

^INPUT TYP&i"sulMri r^value-'SHOif RELATXyC CDUMTS" 1d««ibaHt2 naaBe=sul»1t2> 
</R)RM> 

49lend iflb 

YOU are visitor nuaber 43faSessionC"eounter">«> 
of%»sAf)p11catfonC-Cotmter'>x>. 

•<p><a href^"welccMel-asp->Retum to 

IS'hrI!f3SbJn018tasp>Retum to Name Search screen. </a>M9>ftnbsp;<c/P> 

<P>{nbsp :</PxP>ftnbsp:</P> 

</BCOnr> 
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#1nc1ude virtual -"enmoi^aitovbs.lnc — > 
<ht»1> 



•ottta MME»'*CENatATOR'' Cont)entia*'P«1 crosoft Visual studio S.OV 

<titl0SEMICH HOBBY PEOIGKEE MB SUWMRIZE</t1 tlo 
^3>SEAIKH HOBBY PEDIGREE AND SUMMMaZE</hl> 

'«ody> 



•2/25/99 Hri» version to crtatc report , ^ , . 

•after revlalon of the SQL to use LIKE and several oAer logic changes. 

'This progran searches all lines back to their beginnings 

•and collects the person mMbers along the wajr. IC can be used 

•fior multiple purpose* 

' create separate screen to get the starring n^mhtr. 

'Tht first ti«a this page is r«'H«»5d|,«J<' ^""J* ^» 

'submitted without being o — 

*1a 
'the 



! first tiPie WIS page is ratris^S'i,*^" ^ iiL""*"" 
mitted without beTng cowpjetaly flhed ««t. the font 
displayed. If It is subMltted and coMpletely filled i 
I foni is processed in the Else clause. 



<lt.K2S'jS^'SSs?'3'ei'*perIiln*^ -ould like to Start the pedigree search. -(pxRMW HCTK»-PWT *CTlOM-'-db»rch02^sp- Id^ral 

Sil^mlJsSrt PerSS^NPUT tvpe-tSt" »«ME«-startL4>erson_1d" aZE^MXJwwr MXiHPur TVPE^-Ttxr •MME--Oi«er_id" siZE-BxpxmPUT 
TYPt-"suhBlt" value="Scart Search" idssubiritl na«c=sul)Britlx/R)R«>~> 

«-elsc9&> 

Dim strx, startj»erson_id 

^Set^Hi tcSnt » Server .CreateobjeetC-MSWCPageCounter") 
HitCount.pagehit 

RM X-1 TO requestCHneL.cnt") '25 
STWWUaiTC-0000"«,4) 

'Response .write strx 
■chlnw*-"chk-*strx ^ ^ 

IF HEflMCSTCOOC'ASTTOO^J. THEN 

STARTJ»tRSOiCl ObREQOEST C<X1 D_I0"ASTW<) 

'Response.Write "chk"48trx 

■ Response. WHte REQUEST (-chk"tetni> ^ 

•Response .write requcstC"gr1d_1d Irstrx) 

•Response .write 5TARTJ»£RS0N_I0 

EXIT FOR 
END IF 
NEXT 

• Response .wHte requestCHn^jt") 

' ftesponse.wri tc "start-persofuid'Astartjersofuid 

9& 

Starting Person^> 

5nput^"pE=*TEXr" NanE^'starOnane" SlZEo-lO" values-<Sfe=requestC"gnOnwe"*Slll)0^"> 



Snput TVPE-**THXT" »IAMEa"start/n«ie" sm^-lO" valoc=-<afcrequestC'grid_fna«>e"A5n«0«>"> 

Snput TYPE^'*Tlxr- W«E=-starO»nwia'* SI2E3»-10" value=''<afi=nsqu«st(-gndjM»e''«STRX)«>-> 
<l— BR--> 

Srmlt jyp^-TBXr" IK»ME-"stanJ*i rth_yeai^ »I2E»-4" v«lue="«ab«requestrgndJiyear-BfiTWO« 
5lTOWtTyp^"TEXr iia«E--startLperson_id- SIZBp-M" valu«=-^fcrequeatrgHd_1d-«STW0«>-"> 



<br> 
<% 

Oin strSQLTMip, table^nane, o«incr_1d 
■ create tcn^rary table tor processing 

' tabl «tjfimie»" t race-4r1 oht Cst rl ngrt . "O" request rowneri d") , t) 
• tabl e-nwe-" trace"*! ertCrcquestCstartjiersoa-iir) ,10) 
*tablc_naoM^**tr»ce-41eft(startLj>erson_1d,10> , 
tabl ejiase-"t r"*l eftC5tart_person_1 d . 14><fBid CrlghtCtim* S) , 1. Zj 
•for work t*ble name, use startjiertofuid plus the, current seconds as a i 
' this neans that the process can be run fpom anyMhere, and no logon is necessary. 
strSQLTenp- "create caole 

4table_naaie _ 

«"(Tr-5eqJtey long, " , 

Wrjtracejiey charCJO), 

*-Tr_level short. ... 

*-Tr_next_gen_status char(l), _ 

ATr_relate_code chara). 

«-Tr_p«rsoru.1dl char(14), 

«"Tr_person_1d2 char (145, _ 

4"Tr_de1ete_i>yte char<i)>" 



Dim cnSearch, rsSearch, rsTrace, mlevel. tracejcey 
pirn rscreate 

Dim sstartj>erson-id. x. trace_lcey_F. tracejceyjn 
Din fatherjiit, notherjiit 

Din sequencer, personZjf, personZji, strSQLf . strSQUa 
bin tr^relateueode, tr_person_1dl, tr^rson-1« 
aim strSQLd 

scquencer=1000000 'countdoMn from 1 million 
tracejiey- stHngC30."<r) '30 char. key^«00 years 
set cnSearch • senrer.creatcObjeccCAMM .Connection") 
cnscarch lOpen "dbl* 

'cnSearch. Execute strSOLTesv 'create table - vorkil I 
'If isanpty(rscreate) - 
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Set rscrcate » Server. CrcateObject("ADOI».RecordMt~) 

'cns«»rch. Execute "droo table -*t*t»1e_nwe -nns KJIUST FOR REPETITIVE TESTZNG 

••rtcrosoft OLE oe Provider for ODBC Drivers error 8O040e37 

r$cr«at«.Op«n strSQLTerrp, cnsearch 

Set rssaarch = Sarver.CreateObject<"ADOI».Becordset") 

Set rsTrace - Server.CreatecbjectC ADODB. Recordset ) 

m opening screen 
'Response. write las-cart.persofi.'id 
'x«L * t«iiporary debug 

DO while x<6S$36 '1000 *x<10'2o3 . _ 

•2*n6=6$S36; 2000 - l€0O=940OYEARS 400/20year$ per generanona20 GEICRATIONS 
•ai-)eve1=«1ev«Ul don't consolidate here - better to sec the logic elseidtere 
trace-key«f-leftCtr»ceJiey,»level-l5 * 32 J !3?!li$*''**=*-t*y*l2^J*'"l? 
trace_ltey_ltel«ft(tracejiey.iilev«l-l> * "2- * HflhtCtrace_My.30-inlevel5 

*3trSQLf= "select ♦ fro« UlnJ(SL.t where personl = "_ 
• I,"*" testart.4>erson_'td »""*_ 
' & " and Relat - " ft"'" *-F~ A**"* ^ 
$trSQLf= "select PCRSOMl, RELATE. PERSOM2 from MLinka^t where personl - „ 
& — {nstarCpersoruld 4"'" _ 
» - and Relate LIKE 'PI*"* _ 

&"Select PtRSOMX, RELATE, PERS0N2 frow HLlnKSL.t2 «*iere personl - 
A" • •* testarCporsorui d 4* ' " _ 
4 ** and Relate LIKE *pr%'" 

•4 - >nd ni1d(Relate,3.p= ;f '■nd^worksl^ 

* - and Relate LIKE '•F*'" like " jT'JJZ fIfZ Z 
■ 4 " and Relate s 'ISFftOOl'" 'like " A-'T 4"F- 4"**" 
• 4 - and Relate o * - •ISFAOOOl*- 'like " 4-«- 4-F" 4-*'- 

•4* aid RelitrUke " 4-W 4«f- 4-»- 



'cnsearch. op en "dbl" 

•Response .write strsqlf MsgboxCstrSQLf) 



if rssearch. state ■ 
•rsSearch. Filter = 



rsSearch.Open strSQLf. cnSearch 



adstateopen then rssaarch.Close 
-relate » •♦f*'" 



'no "end If" needed - Btatemant used after first time through 



adopendynanlc. adlDCfcOptlnristic 



' we «rf11 add a record here, regardless of outcene. 
if rsTrace. state - eds^teClosed then 
rsTrace.Open "Select * fPOBi •* 4 tablejiame, _ 

cnScarch, adependynanric, adLockOptiaristic 
end if 



sequencer ^ sequencer - 1 
rsTn - - ■ 



Trace .Addnew 



'rsSeanch. Filter = "widCrelate^l) » f 
•r»Search. Filter = "nelete = *F* 

•response .write " "Arssearch. recondcount 'always -1 , so useless 
•response. write " "Ars»earch("personl*'3 



' response 
'response .write 
' response. write 



-4rssearchf " relate" ) 
'•4rss€archC"pc«'aon2*) 



'if rsSearch.Recordcount > 0 then 
■if rsSearch.Recordcount > 0 _ 

• if midCrssearchC relate-), 3.1) = "F" tfien 
if not rssearch. EOF and not rsSearch.bof then 
father_Mte"V* 

rsTrBceC"tr_$eq_key-> - sequencer 'assunes asc. index on this 
'will keep last in as first out 
rsTrace rtr_trace_Key->- trac«Jtey_F 
rsTraceC"tr»level^) = ailevel ^ ^ 
rsTrace C* tr_jriext«9er\.» ta tus" ) » f « therjii t 
tr_relate_code - rsSearchf relate ) 
tr_persoruidl s rsSearchf* personl ) 
tr_per9oru1d2 » rsSearch(-person2") 
rsTraceCtr^relate-code") = tr.rel ate_code ^ 
rsTraceC-tr«person_1dl-) - tr_persoiL.1dl 
r«TraceCtrjierson_Td2") a tr_persoaJid2 
rsTracertrJelete^te") - "0^ 
perfon2.f - raSearchC'personZ") 
rsTrace.update 

else 

fatherJ>10i"H- 

rsTrac«rtr_»«U««y'*> = sequencer 
rsTraceC'tr_trBCeJiey-) = trace_key_F 
rsirace("Tr_level") - mievel 
rsTracsC"tr_next^^A-status") - father_Jnt 
rsTrace C'cr_relatejCode") o F" 

r3Tracertr_person_1dl") - «start_person_1d research ("personl 
rsTr«ceC"Cr_p«rs«>n_id2'') = 0 _ 
rsTraceC'tr.deleteJbyte*) » "0^ 
' rsTraceCtfrnt-Stasp-) - n»cstj» 
timestwnp field, with index with descending sequence 
•could be used to naintaln correct push-dnwi stack sequence 
rsTrace.iqidate 

end if 

• nocher search 
rssearch. close 
•rssearch. Filter » 



•rssearch. Filter » "relate » *t^*' _ ^ 

strSQUw* "select PCRSOMl. REUITE, PERSOH2 from m.inks_t where persoca > 
4"'- 4nstart-perseii_id 4"'" _ 
4 " and Relate UKE^M** . 



4 " and Relate UKE 

4** union " 



i-selcct PCRSONl. RELATE, PERS0K2 from HLlnks_t2 where personl < 
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ft"'" testart^rson-1d *"*" _ 
ft ** and Re1at« uke 'ppK" 

• rssearch.open "SeUct • from Llnki^t where personl » V 

• ft""'to$t»rtj»erson_id 

•ft " end Relet* Llics •pi«"' _ 

• . cnSeerch ^ . , , 
rss«arNch.Op«n scrSQUs. cnSearch edopcndynaraic, etfLockCptiMfstic 

• A - and Relet « *M ') *. cnSearth 
' rsSearch .movencxt 

' we add « record here, negerdless of outcome, 

'unncccessary to open reTrace again - gets a error 
'rsT race. Open "Select * frpm " ft table.jMiie. « 

cnsearch, adopendynanlc. adLockOpdialstic 
lequenccr a sequencer - 1 
rsTrace.Addncw 

'rssearch, Filter o "MldCrelate.3,1) « 'M'" 
•rsSeardi. Filter - -relate - 'H'* 
' response .wri t« rssearch . recordcount 
'response .write rs»earch<''personl") 
'response .write rsse a nch<" relate") 
•response -write rsseanch("persoo2 > 

'if rssearch. Recordcount > 0 then 

*if rsSearch. Recordcount > 0 _ 

•if iiiid<rssearch(*r«late-),3,l) - "M" then^ 

if not rsScarch.EOF and not rssearch.bof then 

«ther_hit-'V 

r»Trace("tr_»eq.key") - sequencer 
piTr«ceCtr_trace_key"> « trace_key^ 
rsTrace("tr_1evel") • »level 
rsTrac«C''tr_ne3tt_Qen_statu5") = mother^it 
rsTrace("tr_re1ate_cod«"D = rssearchf" relate") ' t 
rsTraceC"tr^erson-idl") s= rsSearcht personl"! 
rsTraceC"tr_person_<d2"> « rss«archC"p«rson2"> 
person2Jl « rsSeardi<"peraon2") 
r8Tracertr_delete_by«e-3 • "K^ 

if facherJilt » "M" tl»en . , , ,^ ^ 

rsTrace("trJle1etcJ>yte") - D" 'don't save nother record for laCerCdo it now) 
end if 'if fatherjtit is no 

rsTrace .update 

else 

wther_hit-"ir 

rsTracertr_seq_key")^- sequencer 
rsTraceC"tr«trace_key") • tr*ce_key_H 
rsTraeeC"tr_leve1") - "level 
rsTraceC"tr_next_Bea_ status J » notner^nlt 
rsT racer tr_re1ate-code") = Mf 

rsTraceC"*''_pe»'»o»^^<'^"> = "Start-person_id 'rsSearchC^pcrsonl ) 
rsTracec"tr_per$on_id2") = 0 
rsTrace("tr_deTeteJ>yt*") - "O" 
r^Trace. update 

end 1f 

■ If fatherjiic a 'H' and notherjHt = "N* then 
'Response .write *father*hit "ftfather_hitaa)other_h1t 

• restart search at a loM«r level ^ , 
rsTrace. close "2/23/99 statement below worked perfectly' 
strSQi.4- "select • from " ftTable_name ft « 

- where tr^eleteJbyte = ft _ 
" order by tr_seqjtey" 
'note tl»t the SQL wuld not look for o D' 
•so had to add positive 'K' for keep. 

• Response .Write strSQLd 

rsTrace. Open strSQLd, _ . . ^ 

cnsearch, adopcndynapslc. adtockOptiaristIc 

•ResPonse.wHtc retrace Ctr-person-iitt"), 
'can^t us« this statement if at end of file. 

If rsmcK.lOF and rsTrace. BOF then 
' if rsTrace. Recordcount - 0 then 

'Response .Write "balling out too soon* 
exit do ">7^ 
end if 

»lev*l«rsTrace("tr_leveT") +1 
crace^key «rsTrace("tr_tracftJtey") 
•istart^ersonL.id =riTrac*<"tr_person_1d2") 
rsTraceCtr_deletftJbyte") » 
rsTrace.update 

El self fatherj»it « "V" then 
RUCart_p«rsorL.id o person2_F 
■level^1evel-»-l 
tracejtcy ■ craceJccy.F 

• even if both F ft N are V, do F first, coeie back for H later 

elsalf inoth8r_hit = then 
BStartJ9erson_id • person2^ 
■lewelaoileven-^a 
tracejiicy « tracejceyja 

1^ . 

xaxf^l 'tem^rary debug 
LOOP 'cnddo 

if rsscarch.state ■ mdscateopm then rssearch.Closa 
if rsTmce.state « adStateOpcn then rsTrace .close 
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Mf cnScarch .state s adstatftopen then cnSearch.clote 



'dm aiSearch, rsSeardt, rsTrace, alevel. tracckey 
*Olfi rscreare 

'Oim fflStart_persoruid, x, trace«lcey_F, trace_key_(a 
•oIm f^therZhit.^therJ>1t 
•Dim sequencer, p«r»on2_f, person2_in, str^Lf 
'Oin tr_relate_code, tr_person_1dl, tr_person-1<Q 
Dim strSQLs, people^tot. oldestJbirtluyearJiold 

'Set cnSearch « Server. CreateObjectC'AOODft.GDnnectlon") 
'cnSearch.Open "dbl" 

siTS<}Ls-''SELECr personal name AS SUUIAME, "^L 
"OOUIfTCPtRSOMJO) AS PtOPLC, "A_ 
**iirinCb1rth^ear) AS EARUEST 
"mm "irablcLJMme HPersorL.T " 4_ 

'IMERE tr_persofUd2-perion_ld and tr_p«soiii_io3 > 'O ' '4l. 

"GROUP BV PERSONJInaffle" 

* Response. Mrlte strsQLs 
rsTraca.Qf>en strSQLs, _ 

cnSearch adopindynamlc. adLockOptinristic 

Response .Write C"<t»ble border a1 ign-center>*') 

Response .write •'<capticrt>oiRECT ancestors search results sumARrVcaptiony" 

ReSpenSe.wri te "-atfr^SURNAME^OHxPEOPLE^THyEAALIEST Blimi'* 

people-tot!^ 

o7destL^i rt*uyear_hol d='*9999" 
Do wh-iTe not rsTrace.EOF 

' Response .Wri tc ••raTrace("«jman«e">&"«obspj"_ 
'ArsTraccCpeop! e")&'**nbsp ;"4i-sTrace<"earnest")*"<BR>" 
Response. Write ''•rtTi>^TD>"ftr5TraceC"suma«e") 
Response.wnte "-^rb-'ArsTrace ("people") 
Response .write "<Ta>"*r$TraceC"eariiesf ) 
peopl e_tDt!=peop1 e.tz>t+rsTrace ("peopl e**} 

if rsT race C earliest") < c1destJ}1fTh_yearJ)old then oldestJ»irth_yearJio1d = r^raceCearliesf) 

rsTrace.NQVEMEXr 

loop 

Response.wHte •<fRXTn>"&**TOTAL/ou)EST" 
ltesponse.wri te "-^ra^'Cpeople.tot 
Response.WH te *4roe>''tol destJi>i rth_year Jiol d 
RBSponse.Write ("Vtab1e>'*) 

If rsTrace .state ■ adStatcOpen then rSTrace.close 

^END OF SURMAME REPORT 

* create CCOOUPWr report 



'Din cnSearch, research, rsTrace. mievel, trace_key 
'Dim rsCreata 

'Dim instart.j»er9on_{d, x. trace_lcey_F, trace_|tey_ni 
•Dim fatherjrit, inother_hit 
"Diw sequencer, person2_f , person2_p). strSQLf 
'rtn tr_re1ate_code. tr_per9on_idl, tr_per»on.id2 
dm strSQtg peopie_tot \ eldest^lrirth^earjiold 

'set cnSearch « Server .CreateObJectC'AOOOB .Connection") 
'cnSearch.Open "dbl" 

strSOtQ^'SELEcr Hrth_icountry as country, birth^tate as state, 
"COUIfrCPERSOICXD) AS PEOPLE 

"FROM "iTable.rMme HPerson-T " 

"WHERE tr^crson-ld2<^ersoa.id AND TK.PERSOH_102 > '0 ' "4, 

•GROUP BY Mrtiucmmtry, bi rtK.fttattt- 

' Response .Write strSQLs 
rsTrace.open strsQLg. _ 

cnSearch ', adopendynarric. adLodcOptimisric 
Response .write '*<P>&Rbsp:</P>" 
Response .Write C'<tab'}e border a11gn-center>") 

Response .write -ccaptionoDIRECr ANC£STORS<BR>SEARai RESULTS SUIMARY^«R>BY aMJWniy AND STATC</captfoiO>*' 
Response .write "<T>0^>UWTRY<rH>STATE<^n^PEOPLE** 
peopl e_tx>tcO 

' el des tJti rth..yearj)0l<^"9999'* 
Do tdiile not rSTrace.EOP 

'Renonse .Write *'r^race<'*sumBne*>ft**«nbsp:*'. 
'ArsTraeeCpeopl e'')&"«nbsp ; "ftrtfTraceC'earl iest")A"<<8l&-'' 
Response.wnte "<TltxTDt>''6rsTraceC"CXXJirnnr'') 
Response .Write ■-^Cb«"ArsTr«cef" STATE") 
Response .write "^Ib-'ArsTrace ("PEOPLE ) 
peopl e_tDt>i^)eopl e_tDt+ rsTrace ( "peopl e") 
If rsTraceCearliest") < oldest^irtluyearJiold then aldestjiirth-ycarjwid - rsTraceCearll est") 
rsTrace.WOVENEXT w , 

loop 

Response .write "•aR>-aD>"4"T0TAL" 
Response .Write **<TCti^r>" *4peop1e_t»t 
Response -Write •*<Tn>*'4peopl e_Urt; 
Response .Write C"Vtable> ) 

If rsTrace. state = adstateOpen then rsTrace .close 

'END OF CEOGRAPHV REPORT 



if rsTrace. state » adStateOpen then rsTrace. dose 

cnSearch. Execute "drop table "Atabi e^^najne 

if cnSearch. state a adstateopen then cnSearch. close 

•note - the current setup win only handle a pure father/bother baclmrd 



us 2002/0032687 Al Mar. 14, 2002 

197 



C ;\pat€nt\Modu1 es\hoban02O - asp 

' search 

•end if5K> 

<p>^(nbsp;</p> 

<a hrerB**Wel cornel. asp ">Hoaie Pa9e</a> 
<l"Hits: K-aSHitCount.HltsX— > 
</bodY> 
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<t» Languaoe^scrlpt Sfr 
<% Option Ixpllcft %> 

<l— finclude virtual B'canmon/adovba.inc** *-> 

<HEAI» 

<MeTA NAME^'GENERATOR" Contcfit^'Mlcresof t Visual Stwllo 6.0'V 

<nTLE>A0O I«DtXER</TlTLE> 
<H3>A0O INI)EXERVH3> 
</HE*0> 



'The first tine this pag« 1» rstrleved, and any time it Is 
'siAaritted without being co«p1ete1y filled out. the fbnn 
*1s displayed. If it Is subnitted and conpletcly filled out, 
'the fona i& processed in the Else clause. 

If Rc4ucsti''pubL.1naR«~)«"" Or RequestC'pub_fhaaie'*)»''*' _ 

or rcquestCpulUii rtli*)B""_ 

then 

'or Requc»tC*pub_eB»aiV')»"" Or Request:(''puh_phMie'*)a'*" Or _ 
* Request C"pub>.coun try")* Or Request("pub_state'*)s*"* Or _ 
'Reque$tC"pub^ddrl**5=-" or ReqijestC"pub_!Ciry")* or _ 
*R«(ju«8tCpu*>-»^P**)« - 
'then 

Please fill out all the fields below for which you have data. 

A new indexer cannot be added without at least a first name, last name, 

enail, phone, full nailing address, and birthday.<p> 

Your first name, last name, and middle name <ir used) will become your<B> logon ID,</b> 
and your birthday, given in the correct fonnac as irdicated, 
irill become your <B>passwDrd.</B> 

When you ar« finished, dick the ADD INDEXER buttDn.^> 
<POtm HETHOO^POST ACTIOM=>'*id}(add01 .asp"> 

Name: Last 

<INPirr 'TYPEs'^EXT** KMEs'PUB.LNAME" SZZC*1S> 

KIMPVT TYPfa'TEXr* MM«E9'PUBt_BIAME" SIZE^S> 
MidiHe 

<rHPUT 7YPE-"TEXr' IUME«>''Pl«_M»UME'' SI2E»15> 
<BR> 

Your birthday (and password) in MMDOYYYY format. 

<INfVT TYPEan-EXT" MBMEt^'PUB^BIRTH" SIZEs8> 

<BR>for cNamplc* 07101941 would be entered for 3uly 10, 1941. 

<P> 

EMAIL -cINPUr TYPE^'TEXr* NAME-*'PUB.E>MIL'' SZZEbSO> 

<BR> 

PHONE <IMPIIT TYPEb'TEXT" NAMEs''PUB.J>HONe'* S1Z£=20> 

<8R> 

ADDRESS l<INPUr TVPEs'TEXT" IUHE?'*PUQ^AOOftl'* SIZEs30> 
<BR> 

ADDRESS 3<1NPUT Type«*'TEXr** NMf&9'*PUB.>«0ft2" SIZE-30> 
<BR> 

CnY<3HPUT TYPE="TEXr' NAME»-Plffl_a7Y~ SIZ£s20> 
STATE<INFVT TirPE=-TEXT" IMME=" PUB.STATf SI2E-10> 
COU«rrftY<T«PtrT types-text* NAME=-PII8_CX)UWTRV size^is> 
Z1P<IMPUT TYPE-"T6Xr" IWM&.-RJB JIP" SIZ£-10> 
<BR> 

LATITUDE KlHPVT TYPE="TEXT" KAME="PU8_l AT" 51ZEs7> 
LCNGITUOE<XNPUT TYPE-"TEXr* IMWEa-pUB.LOfKr S1ZE=7> 
AOaiRACV<INPirr TYPE="TEXT" IW«Ea**PU8jCECLACCUR- SIZE-1> 
<BR> 

CREDIT CARIKINPVT TYPt^tEXT* IIAME»"PUB_aiEDrT_CO" SI2E=30> 
<BR> 

NOTEKINPUr TYPEh'^EXT" NM«E^**PUBl|IOTE1~ SXZMQ> 
<HR> 

<INPUr lYPEp'sufaMlt- valuea'ADD iHOeXER" SZZE=SO Id-suMtl nMM-subnritl> 

</fORM> 
<5K Else %> 

Din cnPubNin. rsPiAMun, rsPub, Pub-id, PubL.i«Lstr 
Dim rsMastNun 

set cnPubNun o server.craateObjactCMXXX.Gonnection'*) 
cnPubNiai.Open "dbl" 

Set rsMastNun - Senfer.CreateObjectCADOOB.Recordset") 
rsMB»tl»u«.Open "Select * from i«ast-Fub_nu«" 
cnPubvus, adopenOynanic,adU>cl(Opr1«1 sti c 
pub^id o rsl«ast>iuBCNast_pub_n«xt_no-) 
rsPtastHuaC'Nast.jMJbLnext.jw'') e pub^id ■•- 1 
rsMastMum. update 

'Response .write "pub_1d=" 
'Response .write pub_id 
'page 270 of ASP for dun 

Set rsPub = Serve r.CreateObJectCADOCS.Racordset") 
rsPi^.Open "Select • from Publl she rjr',_ 

cnPi^NitB, adopenoynaml c , adLockOptlan Sti c 
rsPub.Addnew 

Pub_i d_st ri*IQfTC0OO000O000-«puh»id ,09) 
rsPubCpub^id") = pob_1d-str 
'rsPubrpub.id*) = pub_id 
r»PubCpuh_ne)Ct_no"> » 1 'set at 1 to start 
rsPubCpub.jnajLjiexCjW) = 99999 'set at 99,999 to Start 
rsPubCpubjfTiame'') - RcquestCpub.fname") 
rsPubC'pub_fflnaw''l o RequestC"pubjmtajne*) 
rsnibCpub.lnarae"} = Request(''pub_lnasw''l 
rsPubf-pub-icBail") = Requestc'*pub_cmail"l 
rsPubC*'pub_phone"J » Requestc"pub_phone-> 
rsPubC'pubjBddrl"! » RequestCpub^addn") 
rsnibCpub-addrZ**) • RequestCpub-addr^") 
rsPubrpiAjcity-J - R«qttest(;gub_city-) 
rsPubCpidustftte'^) ■ RequestC pub^tacc") 
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rsPubr'pub.country**) = Request("pub.country"} 

•rsPubrpub_lat''> = Request(>ub_1at") 
if len(Requestrpub_lat-))=0 then 
rsPubC'^pub_lat*)=0 

el se rsPubC" pubjl at**}Brequest(*'pub_1 at**) 
end if 

•rsPubC"p"b_long") o Request("pub„long'*) 
if lenfRequestC pub_long"))=0 then 
rsPub ( pub_1 ong" j=0 

el se rsPub C*pub_l ong" )=request C'pub_l ong") 
end if 

r$Pub("pub_geo_accur") = RequestC'pub^geo.accur'') 
rsPub("pub_notel") = RequestC"pub_notel") 
rsPubf"pub_credit_cd") = Request("pub_credit_cd") 
rsPubCpub_birth") = RequestC"pub_birth") 

rsPub. update 

%> 

The new lndexer*s niraber is <X=pub_idX><BR> 
<attf Err.Mumber = 0 Then %> 

< I font sizeBS><lb>The new Indexer was created. < I /bxi/fontxp> 

<a hrefs**fnenu1dxl.asp**>Indexer Main Menu</axp> 
<X ELSE %> 

There was an error adding an Indexer. <p> 
Error #^&»Err.NiinberX>: <dSsErr.DescriptiortXxp> 
<X End If SK> 
End If %> 



<P>tebsp;</P> 

</BODY> 
</HTMI_> 
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•dSO LanguagenVBScHpt S& 
^diOption Explicit %> 
^'Response. Buff er&t rue %> 

tinclude v1rtualB'*caimon/adovbs.inc** — > 

<Hnu> 

<HEAO> 

<META NAME»"GENERATOR** contcnt>>*>ri crosoft vlsual Studio 6.0"> 
</HEAD> 

Dim cnScarch, rsPage 
*Din mstart^rsoruid, x 
Dim strSQLpage 

*OiBi firstrec, 1astrec» strx, lincL.cnt 



'Dim strSQLfields, max.a11ewed 
strSQUpage=-select • "Sl, 



''Mhere pub.id « &requ«stC"publisher") iT*" 

Set cnScarch a Server.CrcateObjectC^ADODB.Gonnecrlon'O 
cnsearch.opcn "dbV* 

Set rsPage s Server. creatcobject("ADODB. Recordset") 

rsPage.Open strSQLpage. cnSearch, adopendynanric. adljockOptimistlc 

if not rsPase.eOF and not rsPage.bof then 



<FORM METHOD=POST ACriON="//KE>frHUFF/Project3_ljOcal/iinputOa0.asp" id^mC n«iie=forni2> 

<INPUT TYPEs"TEXT" NAME="project-nunl>er'' value»-0001- SIZE=14> 
<INPin' TYPEa"TEXT" IWM&s" publisher" value«"000000001- SIZEi^> 

<INPUT TYPBs'^TEXT* NAM&>"next-page_to_pracess** va1ues"^rsPageC"nexta>age_toj9rocess")3ie>" SIZE=9> 
<!— #1nc1ude VIRTUAL»''C:/GENl/DBSRCLe9FRAG.XIIC*' — > 



<IHPUT TYP&-" submit" va1ue«"SUBMIT NEXT PAGE'* 1d»subm1tl namessufami tl> 
VfoRM> 



<9EeND 1F%> 

<P>€inbsp;</P> 




</BODY> 
</KTHL> 
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t LanguuM^^VBScript X> 



Optfonexpllcit ] 
Response .Bufftratnw »> 
<l— iinclifde virtuala'ccmon/adovbs.lnc' — > 

<HTW> 
•tft£AO»> 

<MeTA NMIEp'*GEIIStATOft'' Cont«nta'MlcrOSOfC VlSUal StUtflO B.0''> 

•tfYZTLEXXT NEXT PROSECT IIUMBER</TXTLE> 
<H3>GET NEXT PROJECT NUMBERVH3> 



Use the nmber you receive as an identifying paratetjer in preparing GEOax0fTML input data. 

<p> 

<X 

'The first tiaw this oag* is retrieved, and any tine it is 
'sirfmfcted without being cen^letely filled outi the form 
'is displayed. If it is suMttca and opopleeely filled out. 
*the form Is processed in the Rise clause. 

If RM}uestC*piAi_lnaeie'*}s"'* Or RequestCp*^-fneme")«*" _ 

or reqoestC**pUbLj»i rth"5=""_ 

-dten 

X> 

LOGON SCR&EN<811> 

Enter your last nane, first naaw. and ariddle naaM as your <8> logon ID,</B> 
and your birthday, given in the correct fsmt as indicated, 
is your 4>passNDrd.VI^ 

Hhen you are finished, click the UXSON butt»n.<p> 
'^OW MET>ioo-rosT AGnor^''log1dx01.asp'' id^ral n 

Hane: Last 

<INPlir TYPE»"TEXT** NAMEb*'PUB_LNAME'' S12EsaS> 
First 

3<INPUr TVPfc«"TEXT" NA)C7'*PUB_FNAM£'' SIZEsl5> 
Middle 
„ <IMPUr TVPEa'TGCr' IUMEsi''PUBLjaiMC*' SIZfc>15> 

0 <w> 



Ybur birthday Cand passwonD in PMXJWW fonnat. 
■cIMPUr TVPC^-nrEXT- llMIE»i"PUBUBXimr SXZb-S> 
<an>Fer exanale, 07101941 Mould be entered for July 10, IMl. 

LOGON MESSAGES :<br> 

<INPIfr TVPEv'TEXr* IMME-'UXSJIESSAGr* SIZE^ VAUIE*"<dteSESSZONC*PUeLLOGJilESSAQE">S^~> 



3 

a 

P<XNRIT TYPE«**subarit" valuei^UOGOir SZZEbN id=subaiCl i 
</FORn> 

y ^ EUe 3S> 

1 Dim cnLogon, rsLogon, Pijb_id 

2 Set cnLogon r: Server .Create0faject:("AD0O8 .Connection") 
, cntogon.open "dbl" 

ij set rsLofion - Server .CreateObjeccCADOoe.Reajrdset") 
■ rsLogon.Opcn "Select * from Publisher_T " Sl. 
^ "where pub.lnane o "*ArequestCpub_1nane'> A"'"^ 

** and pub.fnane n '"ArequestC putL-fhaaw") ft""^ 
n " end p(i>_fvi«ae • "*Arequest( pub.jiwuaK^) 1^**"*^ 

»I - and pub_birth - *"Arequ«Bt?-p4ibJ»1rth-5*'" "i- 

^ cnLogon * .adopenOynanic^LAckOptiKistic 

if rsLogon.EOF or rsLogon.soF then 
, SESSION 1:''pUb_1og_me85aoe")-'*I»fVALZD LOGIN ID < 
^ response. redirectClogidxOl. asp") 

else 

sessionCindexer logged on^l-'lndexer logged on* 
end if 



^ End If 

^if sessionCindexer logged on">='*indexer logged on" then 
•THISPAGE.NAVIGATEURL "MEKUl.HTM" 

' response .«rrite("<FDm METH00=fOST ACTIOIMaBrail.htm Itfi^tomZ naMi«fbnn2>") 
'response .write "Successful Logon <MR>** 

' Response. writeC*'<ZNPVr TYPEvsuberic va1u»4CNU szze^ idi4ufaar1t2 naneesufamit2>'*) 
* response. write*-</P0R»''*3i^ 

FORM i«THoo=f«osT AcriONw^manui.has" liM^mfi n3nei«foma—>> 

Successful Logon <MR> 

<!— INPUT TYPE--TlXr" NANEa-pUB^IRTH** SI2E=8 VALU&a> 

<! INPUT TYPESa'SUbrnt" value^'HENU*' StXf.^ idssufaeilU nanMubBlt2> 
<!/FaRM— >> 

<a href^'MENUidkl.asp'^Go to Indexer Main NenuVaxp»> 



Response.Redl rectrinenul.hta'*)]G>^ 
'tf>anbsp;VP> 
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<X0 LanguagesVBScHpt lb 
avptlon Explicit K» 

<i— tlneluoe vlpeitBl«"cf«nDn/adovbs.1nc'' -<> 

<MTM^ 

NAMCa'*GEllERATOR'' Content-''if1crosoft visual studio CO'^ 
4H3>AiocEPT cexnM IHIVrVH3> 



*cane fraa 163 ctutnge pgn 

'Dim STMcr^paiSOH-Xt> mstart-persofuld. ». STRX. 



*r>Saarch. close 

* ProgrM dbsrdSl created fmn dbsrcl41 



*e1s« 'second half of page 

*IF RGQIIE5TrMlj»de">'*OMNGr* THEN 

Dim cnirnHv, rsindlv. rsindlvchk. rsLinks, rsLlnkChk 
Din rsltepr, psmrrchk 

Dim strSQLOik. strSQUtarrchk, strSQLLlnl^k 
Din indivldLstr. 9*^1 d ', onncr.id 
Dim husb_Td, wif«_id. chi1d_1d 
Dim LINXLPUPS, namv^dups. msirH 
"Dim father, anDther, child 
'Dim ID_P1. I0_P2. ID_SO. IflLSOOC 

'Dim XDLJEl. 10^. ICL^NCl. XDL9NC2, ID.5NC3. Zn.5MC4. I&lSNCS 
Dim BtrfCX ' . spous^jcnt, SPOUSCjonx, par«nt.cnt, partntjcnix 
Dim Chlld-cnt. Ka, Kx 
*Dlm strSQiJupdataft 

*Dlm XQJSace. IDJS1C7, IDLSICS, XD^C9, ID^IOD 

• klfLcotnter^rray^requtstCkid-OOunterJirray") 

* parcnt-OtCorequestC'parent.cnt'*) 

■ pro j_startJf«i*"request<"pno>j_start_nia«") 
*piib_1d3requestCpub_i d") 
'pfX>ject-rttjnbersrequestC*prDject_|iUHber^) 
• paoearequest ("page") 
If Ul then 

[If session<"indexer^og^ on''>s*induiar logged on* ttwn 



'pubL.1d = sesiionCptib.- 
puh-i ds-'OOOOOOOOl^ 



'dedde whether to accept ttrfs page of Input 

'err.nunber^S 

•end if 

set cnmdlv • $«nfer.cr«at«ab3acrC'*M)Oi».connecr1on'*) 
cnlndlv.Qpen "dbl" 

sat rsindiv » setvor.CrBataobjectC'ADODB.RecordMtr) 
rslndlv.opcn "Select * freai person_T",_ 

cnlndiv.adopenOynanrlc.adLoctoptiDii stic 
set rslndivchk - 5erver.Create0bject('*AD006.Record5et"> 

set rsLlnks » server .creaceobjectrADODB. Recordset^) 
rsLlnks.Open "select * from Llnka_r;,_ _ 

cnlndi V . adopenpyraml c .adLockoptlml sti c 
set rsLlnkcMt « server.creatcobjectCAOOOB.Reoordset"} 

set rsMarr « server .CreateabjectC'ADOOS.Recordset") 
nMarr.Opcn "Select * from IUrriag«_r',_ 

cnlndi v , edoperOynmtri e , adLockoptiml sti c 
Set psMarrCMc a Server. creareob]ectC"MX)iiB.Recordset''> 



*bstaat rpicCTi ■■ I II ■■■■ 

•if reque»tCchk_start"5-l then 
• DDjupdateJtoves "^starc" 
'end 1f^ 

•■■■■I i m SBAt lO »»««»« w« 

'there iHll be duplicate names, fawt there should not be duplicate links 

na»e.jfupSi4> 

UNKJXIPSaO 

marrf age-dL^s^ 

oo_update_M>ves "hu" 
husb_1 ^ImH v_1 d_str 
Do^update-ltoves 'vi" 
Hl?e.1 <W1 ndl v_1 d^tr 

'Add links for parents 

'Ccheck for link duplicates t» avoid duplicate Insertions) 
strSQLLlnkOik^*Select * from Llnk&_T "4. 

"where personl = '" Shusb_1d ft"*" St. 

" and person2 - - «wife_id ST" &_ 

" and relate - 'SW*" 

'If rslndivchk. state • adstateopen then rsindlvChk. Close *no "end If* needed - statctaent used after first time through 

rsLlnkchk.open strSQLLlnkchk. cnlndiv ' .adopenQynanlc.adLockDptlmlatie 

Zf rsLinkchk.COF and rsLlnkchk.BOF then 

rsLlnks.Addnew 

rsLi nks("personr)3husb_1 d 

rsLlnksC'p«rson2">cw1fOd 

rsLlnka<"rel ata")="SW" 
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minks. i4>dlate 

ELSE 

Limewjps-tii«c_pups+i 

END IP 

rsLlnkChk .close 

strSQLLlniD(McB''Se1ect ♦ from L^nksjr 'tL. 
"where personZ » «husb_id V*" 4_ 
" and personl - tortf^JTd **"" «u 

" and relate » "SI**" ... . ^ . . . . 

rsLinkChk.Open StrSQLLlnkChk, cnlndlv '.adopenOynamc.adLockOptiiinstlc 
If rsLlnkChk.EOF and rsLlnkChk.eOF then 
rsLinks./MMww 
rsLink « (-persool" 5=«rl f e^l d 
rsLink s('*peraoA2'*)shusb_1 d 
rsLlnks("reUte-)--SH- 
rsLlnhs. update 
ELSC 

UHKJUPS-UIIIUWPS+l 
EM> IF 

rsLinkChk. close 

■=Children== 

Chil «L cnt=reqM«» t^Chil d_cnt") 

Ka^ChTldLcnt*! 'fix type of variable to mnenc , 

do vfhile Kx <& Ka 'was 6 

«tf1CX-ri ght(-O0O0-aKx . 2) 

•if reque»t(-cKkOC"*»trSiO0=l then 

' 1 ndiv_14-stn4pub_1d «ri«htrooOOO"«ZDOCft5trSKXtproj_starotiJB-l. 5) 
DojtfpdatOiDves "CH'AstrKX 
chi 1 d_i iMndi v_1 d-Str 

Add.chi1dJ.1iiks h(»b_id. •rife.id. chilit.1d 'lOJl. ID^, ID_SOO( 
'end If 

ICWKX4-1 

loop 
'loop 

'■MStart HarHage Recor d r-Tm 
•trSQUiarrChk»"Select * from HamagcL.T "ft. 

••here iiarrjwsjio = «iusb.1d a-'^ *_ 

- and Mrrjofejw - <*rife_id 

rMarrChk.Opoi strSQUtarrtMc. ailndlv ' ,adopenDynacHc,«dLockopt1m1st1c 
If rs»«arrthk.EOF and rsMarrChk.BOF then no <M>11cate 
rsMarr.Addnew 

rsiiarr("»arr_hus_no")-hu$b_1 d 
rsltorr(''nwrP_»rffe_no")=irife_1d 

r$Marr(-Biarr_year"5 = trlin(Reque$trnapr^ear'*)> 
rslterr<-owirr_|i»nth") = trirnfUequeitf marrjnonth » 
psMrK-raarr^day") « tHni(Reauett( uarrjay » 

• r*>*arTr»arr_yr_»ccor'') = tritt(Reqijest( marp.yr^ccur")) 
rsM*rr<''i»apr_«pprox") = triiit^Request("marr_^prex'*J} 
rrttorrCiwirr^aDjdet*-) = tmn<Requ«stC"n»rr-dete")) 

PsmrrriMrr_coMntry") « RaquestC'aJCountry") 
Psaurr<*'iMrr_«t*te"> = RequestQfstate ) 
rrtUrrt-marr-.coonty > » R«que*tC»cour»ry > 
rsHarrriMiPr_city*'> = RequestCiBcity") 
' rsnarrCBarp.l af)-tr1m(reauestr«arr_l at D) 
•rsmrrt''»apr_long->-tpl»iCpequestC«>a»''*-l««g » 

• rsPiarr<''«arr._oeo jiccup") - tri«(Requ«»tC marr_Qeo_accup"» 
'If len(pwiijestCina"*_notel"» > 80 then 

rsMaprC'aiapr.notel") • 1eftCRequcstC'*«»»r_notel"),80) 
'else 

• rsNarr<'%Barr_n«>«el"*) » Request ("laarr.notel") 
'end if 

'rsnairCwiprjiotel") = Reque»tCraaprj»tel"5 
rsMarr. update 

'Response .write "^Bl^Marriage reoord was updated" 
ELSE 

marri ue,dups-«iarri a9e_dups^l 
end 1r ^ record fbund 

'atHBsEnd Marriage 
rsMarr. close 
rsLlnks. close 
rsindlv.dose 
cnlfldtv.cloftC 

'•M»am OF PROOUMw 



Sub Do_UpdateJtoves (suffix) 
Dia m_notes01, aunotesO}, m_notes03, «_notes04 
(H« ncnotesOS. m-notes06, m.notesO?, ai^tesOS 
Oim N, Nl. Nlfnit, rem. stmi 

• ' irMHv_1d_5tP»r1*tCstrt nqfO- .X4)apub_1dAreque»tC"1d"touff1x) .14) 
indiv^id^tr =Hghtf$tHnnCl4."0")4 pub_1d.9)_ 

A rightCstrTngCM.-crjAtriiiCreqiJeatrid'ftsuffixW.S) 

strsqL0ik^''Se1ect person_id froai Persoo-T 
"ehcre person_ZD « *- Aind1v.1d.str i,"*" 

'If rslndivChk. State - adstateopen then rslndivchk .Close 'no "end if" needed - statcnent used after first dme thnkigh 

rsIndiwChk.Open strSQLChk, cnXndiv * ,edopenOynaflrfc.Bdl.ockOpt1iiistic 

If rsIndivchk.EOF and rsindlvchk.BOF then 

'Xnd1v_id-str oHehtCstHnoCMrO')^ pub.id.lO). 

« n!^t(strfngCM**'0"}ft1ndivJd,4) 
'pszndiv.open StrS<]Livdates 

cnXndi V , adopenDynaml c , adLockOptiinl sti c 
"If not rslndiv.EOP and not rsXndlv.aOP then 



rsindiv.i 

h - trlnCRequestCld-'taffflx)) 



rsind1v('*per»orv.id") - 1r»d1v_1d_«tr 
•rslndlvCpersofuid'*) . 
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rsZodlvCperSMCfrume") = trlir<R«^ue»tC"fnane"*$uf«)C)^ 
'rslndiv(''pcrsoajnruiie'^) «= trim<Reque»t("«narae"ftsiiffix)) 
rslndlvC'^perMiulnaRK") - trlmCRequestC1name''ftsuffix}> 
p»IfMHvf"|)€rion_»ex*) = trimfRequest("sex"4suffix>) 
rslndivC"persofutitle") = tn»(llequest<"t1tl*&suff1x>) 
r«lnd1v("p«rson_refn-) = tHm(RequestCrefh*4sufHxJ> 

rslndivr'*birthJSEO^date'*) » trim(RequestC'bdati"&£uffix)) 
rslndlvf-blrtiuyear") « trim(R«quest('*by«ar''Asuffix)) 
rslivHwC-birttuiwntJj") = trinirR«questl'*bonnth*'Asuff1x}) 
rslndivf-blrthjlay") = trin<Reauest(''bda/'AsuffHx)) 
rslndiv("b1rtlx_»pp""<"> = trim(Reqoest("Dappn>x"4suffix» 
r*lnd1vC"birth_country'')= trinrRequestCbcountry'Asufflx)) 
rsZiMiivC''birthL^t«t:e**3 » trtwCRequestCbstate'AsuffH*)) 
^.r^^^^-k*^ ..~».»^.>'^ ^ tomCRequestCbcounty'&suffix)) 
< triiKRequestrbcity**li9iiffix"^ 
_ - - ^ = tr1»CRiqiiBstriar*siiffln 
'rslndivCbirth-long ) - triaCRcquestr'1ong''Asifff1: 

rsrndivrdeath_GEO_datft") = tr1n<Requestrddat«-*suffix)) 
rsrndivC"deat*uyear^) ° tri«fRequestC*dyear"&siifflx)) 
rsIndivr'*d«atl>jnont:h'') = trinrReque£tC'cknonth*'&suffix;} 
rslnd-ivc'dtath-diy") = tHin(ReQue»t(*'<Way"A5ufflx)) 
rsInd1vr''death_a{)prDX~) o trim(ReqtjestC'dapprox'*&suff1x)) 
rslndiwc"d«ath»coontry*)= tHatRcquesc("dcountry''&suff1x» 
rsi:ndi'vr'*deach_stat«'*> = tHiaCRequcstC''dst:aC«'A5tfff1x)> 
rslodivf"de»rh_county') = tHB(Requ«st<*'(k»unty''A«jffix>) 
rslndivC-deatJucity") = i:r1iB<Requ«st<''dc1 ty~&suff1x» 
'rsIndTvrdeAtJi_lat-S = trimfRequest<-lat'&suffix)} 
'rslndiv("death_lon9 ) » tHmCRcqu«stC'*1ong'*&Suffix)) 

rsIndivr''buria1_GE0_date''> = triaCRequest("burdate''trsuffix)) 
rslndlvi" burial .year") = tr1mCRequest('*buryear*'arstiffix)) 
nzndlvr'bufial.nionch'') <> rr1mrRequestr''bunnonth''Asuffix)) 
rsIndlyrbuHal^day") o tnmCRequest(''burday'*Asiiffix)) 
r5lnd1vc"bur1aljM>prox") • rrimCReque9t("burappn>x'*&suffix» 
PBindlvC'bu r1al_councpy**)'» t:Hin(Raqiiesrr''burcountry''4suff ix>} 
r»IndivC-buria1_»tat«"} = tHinCRequ«st('*burstate''&suffix>) 
r«Indivr"buHa1_ciount:y ) = tHinrRequestl''burcounty''&3U^1x)> 
rslndiv("bur-i*l_<rity'j a triin(RequestC'burcity'*Asuff1x)> 
'rsIftdivf"buri«l_1at-3 - tnmCRequestC*lat"«rsuffix)) 
•psIndivCburiaUlong') = tHB(RcquestClong"Asuffix)) 

rslndivCchHaL.GEELdate") = triDiCRequest("chrdata*'Asuffix3) 
rslndivf-chris^year'*) = tr1oiCRequeatC"chrycar"ftsuffix)J 
ralftdivc"chris_inDnth"D ■ triB(Re<joest(''chnP0Oth'*A»uffix)> 
rslndWrchris.day") = tH«(RefloestC"chrda/'**uff1x)) 
rslndWt-chris^approx") = trim(Reque5t<"chrapprox"Asuffix)) 
rslrtdi vC-chri s_countrjr )- trimfRequestC'chrcountrv-Asuff ix)> 
r$Indivc"chris_»tate"j o trimfReqo«stC"chr$tat«"«uffix)) 
rsIndiv(-chris_countY ) - trinirRe4}uestC''chrco«inty'*A5ufftx^) 
rslndlvCchris^clty"! = tr1m(Re<)iJcstC"chrcity"4suffix}) 
•rslndiv("chn»_lBt") « triiiifRequ«»tC"lat"AsuffijO> 
♦psindivrchHOong') » triin(RequestClong*'Asuff1x>) 
'■UKJtesOla"" 
•nunotiisOZo"" 

Ml iari tweques tC'notejcnt'teuf fi x)*l 
if NlinriC < 9 and Nlinit >0 then 
for u-1 txj Nlimt 
strH=r1 oht("00**4« , 2) 
a tftil-ri oh tCOO'M , 1) 

* RunoCfl s4«rniaraqti«scC"nec«*''tourn KftscrN) 

rtindivCpvrsofunote'astrNl) - rci|MStC'notes**Asuff1xftstnO 

naact 

end 1f 

•rsIndiw("personjK>tel*'3 » oLJiotesOl 
'rsZndiv(''persoi\JWte2'*) > iiLJMtes02 

PsXndiv. update 
•end if 

* rslndiv.dose 
else 



end if 'di4>1icate check 
rslndivchk. close 



End S(i> 



Sub Add-.chncLLink$ (father, mother. ch11d> 
*Add link* for child 

fttrSQLLlrdcChbi" select • from Links_T "a_ 

**where personl - "* Af^ther ft'"" ft_ 

" and person2 - ftchild ft"'- «u 

" and relate • •C8*" 
rsLinkChk.Open strSQLLlnkChk. cnlndiv 
If rsLlnkdik.EOF and rsLinbChk.BOF then 

rsLlnks.AddneM 

rsU nkfr'personl-Jsfather 

psL-i n k s ("per son2 "j-chi 1 d 

rsLi nk»("relate")«"a" 

rsLinks. update 
ELSE 

1 i nk^pa-1 1 nk_dupa^l 
CND IF 

rsLlnkchk.dost 

strS<a.LlnfcQiks>*Select • from Links^T ''8<_ 

•\ihere personl = irocher A"'" &_ 

" and person? = ftchild 

* and relate » "CB"" 
rsLlnkChk.Open strSOLlinkChfc, cnlndiv 
If rsLinkChk.EOF and rsLinkChk.BOF then 

rstinks.Addhew 

riLinksr*'personl'')=«»ther 

rsLi nksC'per9on2*';achi Id 

rsti nksC rel ate-)="CB" 

rsLlnks. update 

ELSE 
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1 i nk^dup sbI i nlLjdups+l 

END IF 

rsLinkChk*c1os« 

strSQLLinkChkxr-select * from LinksJT 

-wher« p«rsonl = Achild A, 

" and person2 = Afathcr &_ 

" and relate = 'PF'" 
rsLinkChk.Open strsQLLinkchk, cnlndiv 
If rsLinkChk.EOF and rsLinkChk.BOF th«n 

rsLlnks.Addnew 

rsLinksf"pepsonl")=chi Id 

rsLinksi'*person2")=sfather 

rsLi nks rel ate">«" PF" 

rsLlnks. update 

ELSE 

1 1 nk^dupsssl 1 nkudups+1 
END IF 

rsLinkChk.dose 

strSQLLinkChk="Se1ect * from L-inks_T 

"where personl = *" Achlld &**"* 4_ 

" and person? = *** toother 4_ 

" and relate « *PM'" 
rsLinkChk.Open strSQLLinkChk, cnlndiv 
If rsLinkChk.EOF and rsLinkChk.BOF then 

rsLinks-Addnemf 

rsLi nks ("personl- )=chi 1 d 

rsLi nks ("person? " )=«io ther 

rsLinksrrelate")="PM- 

rsLi nks. update 
ELSE 

^ i nk^dups=1 i nk_dups+l 
END IF 

rsLi nkchk . c1 ose 



End Sub 



else 

err.numben=fi8 
end if 



if err-nunbersaO then 
%> 

Page XX was succesfuHy accepted and the database was updated. 
Please continue with page yy. 

<BR> : 
Note: There were ^dKaname^dups^ attempted duplicate individual insertions, 
^1ink_dups1(^ attempted duplicate link insertions. 

and <a6=^narriage_dupsSK> attempted duplicate marriage record insertions, 
<BR> 

Each individual may appear in the input HTTML pages more than once 
(once as child and perhaps multiple times as parent/spouse) . 
but there should be no link or marriage record duplications 
unless you have tried to enter pages twice. 

^Is^ 

Page xxx was not accepted for update. Perhaps you are not logged on as an indexer at this time. 



^<jKEND IF 'FOR OK or error responseSK> 
<p>*nbsp;VP> 

<l— p><a hrefi=''menuidxl.asp'*>Retum to Indexer Hain Menu </ax/p—> 

</60DV^ 

</HTHL> 
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<5Ct LBngu«gc=A«5cHpt %> 
<X option Explicit X> 



^•sponscBufferMtrue 
<l-- «1nc1ud« virtual -"canwjn/»dbvbs.inc* — > 

•dIETA NAM&>**GaiEitATOR' Conttnt^'NicraMft VIuibI Studio 6.0"> 

.^nTLE>I.OOQN SCXEEN-RESEMCKEIl/BinrBK/ITrLO 
<H3>U)O0N saiEEN-ltESEARCHER/ftUVER</H3> 
</HEAO> 

<HR> 

<X 

'The first tine this page is retrieved, and any tiwe it is 
'submitted without being conpletely filled out, the forn 
'Is displayed. If it is submitted and conpletely filled out, 
'tho fom IS processed in the Else clause. 

If iieQuestf**btiyer_lna«8">--' or RequestCbuyer.fhaM")-'"' « 

or reque»t("buyerj>i rth'*)='*'_ 

then 

'»es»1onC"buyer„loa)ed_on- >="•• • reset tMngs 
' SESSlC«('TKjyer Joajn«tsa9e*>= 

X> 

U>GCM SCREEN-RE5EARCHER/BUyER<BR> 

Enter your last ranm. first naow, and oriddla nana as your <B> logon io,</B> 
and your birthday, given in the correct fonaat as indicated, 

is your <&^asswerd.<</B> To be sure you rttaofhtr exactly how ynu entxred this information, 
you midtt print off nils page before going on. 
<BR>Mhen you are finished, click the locom button. <ix> 
<FORM METHOO&POST ACnOf*=** 1 ogBYOl . asp" id=fDrTnl MBIfr3for«l> 

Naow: Last 

<INPUr TVPEs'TEXr NAME-'^UVEIUIIMMC'* SIZEsl5> 
First 

^MPUT TYPEs^TEXT* HWHEp-QUYER^FlMME" SIZE?=15> 
Middle 

^NPUT TYP&.'*TEXT- ItMC»-BinrEILJ«IA«" SI2falS> 
Your birthday (and pass»»rd) in mmdoyvyy -Ponnat. 

-OMPVT TYP&»*TEXr" MA«a"Bl/YER_MKTH'' S2ZE«4> 

^R>For example . 07101^1 would be entered for luly 10, 1941. 

<SR> 

<P>«fibspiVF> 

SHpSfTVPE^^TSf- NANEb'UDG-HESSAGE" SIZE^ VALUE-" •<9fe^ESSICNCBUYER_lJC}QJIESSAGE'')X»''> 
</p> 

<INPUT TYPE^'sufanit" value-'LOGOH" SX2&>80 td>si*m1tl nane-si*iiitl> 
</POIttt> 

<dt Else 

0\m cnuogoni rsLogon. buyer.id 
Dim Buyer.^ssion.fiaaML.linit, rsBuyLog, sq^log 
Din todaysLJiane-xnt, standara.jmeJii«nt 
standardLneiM_1 iari fc^CO 

Set cnLogon s server.createObjectCAOOOB .Connection") 

cnLogon.Opcn "Al" _^ 

set rsLogon » so rv«r.Createobject(*A0006 .Recordset > 
rsLogon.Open "Select * frtstj Buyerjr " ^ 

"■Here buyer.lnanie =» "•AreguestC'boyer.lname-) V'Su 
" and buyar_fTMBie - ' ••*reque»t("boyer_fnaiBe") 



and buyar_fTMBie - ' ••*reque»t("boyer_fnaiBe"5 i 
- and buysrjwiame o ' 'OFoquestrbuyerjnnMie^) - ^ 
• and b*5»rj»irth a •-ercquestrtnjyer_|>irth*'H-* 
oiLogon '.adopenDynaaicadLACkOptiaristfc 

if rsLogon.EOF or rsLogon.BOF.thcn 

SESSZ0Nrbuyer.1o^^mw^''>''imMtzD LOGm ID or passmdrd. 



'use SEUCr unique fom oif SQI. and avoid The -folloiring counting routine. 

• It would also avoid the wultiple counting of one naie viewed mltiple rfnes. 

•Rext son merely counts ALL buyer records. . , ^ . 

'There nwy be two or more per natne, so there needs to be same slaclt in the limit number 

• SQL! oga" select • from buylog_t " 4_ 

• "Nihere buylogjmyen- * '*rsLogonC-buyer_1d") dr-'"*. 

• "and datevalueCbuylog^date) = "*&d«t« 4 

'The Next SQL gets the exact nuoiier of nanes for this day, regardless of 

'how many cKfferent level of payaients, but this is too expensive to run 

•at the counting levels - anyidiere but at the logon level ^ „ , . - 

'DO we need to nave two ninbers'> one for real nones and another for all paynent levels? 

»es»ionC'buyer_id">=rsLo9on("buyer_id") 'save for future lO 

SQLlogs" select distinct buyloq.buyer. hWiJOajUME^a, 
*'dacAva1ue(buy1og_date) as daceonly 
"frow buylo^t " 

"idiere buylogjHiyera "•4rsLogon<"buyer_1d") ft"'"IL 

"and MTEVALUC(buyloft.date) - '"Adate *""* 
Sot rsBtyLug - Server.CreateObjectf'ADOOB.Recordsct") 
rsBuylog.Opon SQLlog, cntogon ' .aooponDynanic.adUKKDptlnlstfc 

if rsAuyLog.BOF and rsftuyLog.EOF then 

todaySyjunie_cntW> 

else 

todaysLnmL.cni»i4} 
do until rsSuyLog.BOF 

todayaLnaRejcntwtodays_ftaaML.cntfl 

rsBuyLog .HoveHext 
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loop 
end if 

rsBuyLog. close 



' Response .MHte "todaySuJiamc^cnto-Atodaysuname-cnt 
Buyer_sessioa_naineL_liinit=standanLnanie_nmit - todays_naine_cnt 
it Buyer_scssion_name«limit < 1 then . ^ , j ,. 

SES5I0Mrbuyer.logjnessage">"Reached Name Linrit for one day 
response . redl rectCfogbyOl- asp") 
end if 

sessi on r' buye r_name_l i mi f •>=Buy c r_se s si oojiame^l i mi t 
sessi onC" buy c r_names_used") =0 

session('*buycr_logQed-on**>"buyer logged on" 

session("buyer_id''5=Pi9ht(st:Hng<"0" . 10>&rs Logon C buy er_id") ,10) 
SE55lONC'buyer_1og_p»essa9e")="succESSFUL login" 

end if 'end of rsLogon segment 

%> 

«d5 End If 'end of first and main ifX> 

<«if session("buyer_logged-on")="buyer logged on" then 

•this happens if you are already logged on, I guess. 

•It checks to see if the prior routines completed successfully 

•THISPAGE.IWVIGATEURL ••MEMUl.Hm'* ^ ^ n ^ o 

•r€sponse.writeC<FORM METHOD=POST ACnoN=«Denul.htm i(Mbnn2 namB=fonn2> ) 
•response.write -Successful Logon <HR>- 

• Response .wHteC<INPUT TYPE»5ubmit value^MENU SIZE^ id=submit2 narae=submit2>-) 

• rcsponse.wnte'VF<«M>"X> 

< I FORM METMODbPOST ACriON*"menul.ht3n" idsfonri2 naffle^onii2> 

Successful Looon <HR> « « , 

<1 INPUT TYP&»"TEXT" NAME="PUB_PIRTH** SIZE^S VALU&=3> 

<!INPUT TYP&=" submit*' value="MENU- SI2E=80 id=submit2 naine=sul)mit2> 

<l/FORM> ^ . - , 

<a href^i"MENUidul.ASP->Co to Buyer's Main Menu</axp> 

<Xend if%> 



Response • Redi rectC'menul . htm">S£> 

<l^^bsp;</P> 

</BODY> 
</HTML> 
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(• Language^VBScHpt ! 
( Option Explicit 1> 



^NtespQiiM.Bufferstnie %> 
<l— tlnclude v1rtua1»»"OMBnon/»do¥ba.1iic ~> 

<MTML> 
<H£AO> 

^lETA IMM&i'CENEMTDR'* Contantk%Hcroioft VIsimI Studio e.OV 

'^rZTLMOBSViaTS LOGON SCRCEI»VnTLC> 
•<N9>H0UVZSTS LOGON SCREEJH/»ll> 
</HeAD> 




If RequestC'hob-lnwe-^-"*" or RequestCt»bLfha»e")-"" ^ 
or p«niwtC''hoh_W rth"5»""_ 



button. « 



1C> 

LOGON SCXEEN<BR> 

Enter your last nwte. first none, &fMf niddle nan* as your <B> logon 10,</B> 
and your birthday, given in the correct fomat 9S indicated. 

telnSotJrHSSiS^'JlIck tho IJ^ 
<fSOIlM METHODeFOST ACTION*" loghobOl.Bsp 

Name: Last 

<]NPUT TYP6^"TEXr NAM&"holUJ«Mr SIZfelS> 
First 

<dMFUr TVPE«"TOCr MWE^'hoU.FNAME'' SIZEelS> 
triddle 

<INPUr TVPE-'TEXr NAME^'hotUmANT* szz&a5> 

VOitr Mrttiday (and pasMord) in IMOOWW fbrrnt. 

<<lllivr TYPE- TEXT" NAME^'hobuBlXTH" SXZE»8> 

<BR>r^r exMplc. Onomi tmild be entered for July 10. 1941. 

S5yr TVPE»-TEXr* HANE=-L0Q_MESSAGE" SIZE^O VALUE="*flbSESSI0NC-HOa_LO<UKSS«E")«>-> 
<Hlt> 

<iwvr 7YPEs"«idm1t" value="LOGON" SI2B=80 Idasufamlti f\ame=subnitl> 
</FOIM> 

Else %> 

Din cnLogon, rsLogon. haloid. itrSQLLogon 

Set cnLogon a Server. CreateObjectC'AOOOe.Oonnect-ion'') 
cnu>oon.Open "dbl"* 

set rsLogon e server. CreatcoblectCAOOoe. Recordset") 
strSQU-ooon o "select • from nobbyi«t_T " gu 
"•here hob-lname • •*'ftrequest("hob_TnaaK ) *- 
" and hob^fnwie - •-«ireque»tChob_fna«en a"'"*. 
" and hobjmane = •"ftrequest("h(A_aina»e"J 4"'"4_ 
- Md hobJ>irth « *"4reqoeatC"hohLj>irth")4"' " 
* cnLogon * • adopcnOynaai c , adLfickOptlail sti c 
'Response .write atrSQUAgon 
rilogon.Open strSQUogon, cnLogon 

if rstogon.EOF or rsLogen.BOP then 

SESSIOMC^J*ag-l"^^0e >- ZmMLZD LOGIN ID OR PASSHDRIT 

response . redl rect(**1 oghobOl . asp") 
else 

sessionChofabyist logoed on")o-hobbyist logged on" ^ 

sesslonChobJd-)^ ghtCstrl naCO" .10)»rsii»gon(-hob_1d") ,10) 
sesslonChofabyist nane liiBit"3=r«Lcgon("hobjii«jijiextjio ) 
5ESSlON("hobJogjiess«ge")»"suXESSFUL logir" 



^ End If Sb- 

^1f seMlonC"hobbyi«t logged on'^-hobbyl sc legged on" then 
'THISPMSC.NAVIQaCURL '*MEMa.lfTir ^ , 

' response .wr1te("-d=aRM METHOi^iPOST ACnONrtwnul.htn 1d^n«2 nBflK^nri2>") 
'response .write "successful Logon 4IR>" 

* Response .writeC'^KPVT TYPE-subailt valu»4lENU SIZEmM Id-suborit? nM)e«sufa«lt2>") 
' response .iwi te"</FORM>TI> 

<I"R)RN Mnw»>P06T JCnON.~inenul.htRr i&^rmX nan»<forai2— > 
SuccessfHil Logon <M&^ 

<\ —INPUT TYPE="TEXT" NAME?!"PORJHtTH" SIZE^S VALUE=3> 

<\lHP\n TYPE^'ftuborit" va1u«="HENU" SIZEpSO 1dasubarit2 nanessabRrit2> 

il^hrSt-NEMUhobl.aip'Xio ts Hobbyist Main Menu</axp> 



^*Response.Red1 rectC"aenul.htBi")9&> 
<Mibsp;VP> 
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<9BI LAnguageoVBScript %> 

-dS option Ejqpllcit 1b» 

^Response •Bufftr^triM '%> 

<!— #{nc1udc v1rtua1«"comnoii/*«tevbs.ine" — > 

^CTA liAME="GCNERATOR" contente"«i crosoft Visual StuiKo 6.0"> 

4nTLE>INDEXEll/l>UBLISHER LOOOM SCREEIk/TTTLE> 
'«I3>III0EXBI/PUBLISNER LOGOH saiEElk/H3> 
-</MEAD> 



•The fir»t time this page is retrieved, and any time It 1* 
•subwitted without beioQ conpletely filled ?«t. the forw 
'Is displayed. If it is subnitted and completely filled out, 
■the fonn is processed In die Else clause. 



If llequestCp«b-1na»e")="" 
or requestCpubJH rth">« . 



1="" Or RequestC"pubL.fh«ie")»"" . 



Enter your last nane, first nan«, and middle name as your <B> logon 1D,</B> 
and your birthday, given in the correct format as indicated, 
is your <e>i>assMord.VB> 

Mhen you are finished, click the LOGON buttwi.<p> 

<FOW METMOOsposT ACTlOtte'logidxOl.asp'* Idsfonnl naiiie=fonril> 

Mane: Last _„ 

<2HPtn' TYP&**TEXT* MMIE^'PUBlXIMNE" SZZEs15> 

SnPUT type- "TEXT- IIMIE*''nJ«^IMME* SXZE^5> 
Middle 

dMPUr TYPEaTDCT- l«liE.-PUaJW«ir SIZD-1S> 

S5 birthday (and pa»s««rd) In WDOVYVY fonMit, 

<IMPUr TVPE**TD<T- llAMD.-PU8JIRTH- SIZ&*>^ , 

<BR>F0r exaqile, 07101941 would be entered for July ID, 1941. 

^rxfar> ____ 

^[WVT TYP&>"sutairft'' value-'LOGOir SIZEaSO Idssiifamltl nanessufami tl> 
^ Else %> 

Din aiLogon. rsLogon, Pub.id 

Set cnLogon » Server.CreateObjectCADOOB .Connection") 
cnLooon.Open "dbl" . . «^ 

set rsLogoo = Server.CreateObjectC ADQOB.Recordset") 
rsLogon.Open "select •from Publisher T " «u. 
"ihcre pub-lname - •"4^requestCpiib_.ln««e ) A 4_ 
" md pUb3»<we = '"ftrequestt'oub fnawe )*..*- 

" and pubjaname o ' •**reque»tCpi*JBna»e*V*" ' A- 

- and pub_b1rth = ' ••Aroquestf P»*Jnrtf»"5*" ' 

cntooon ' ,adopcnOynawlc,a«jo ck Optliinst1c 
if rsLogon.EOF or rsLogon.BOF then 

SESSIOHrpubJoftJ«tSSafle-)="llWALID LOGIN ID OR PASSMIRD" 
response .redi rect("logidx01.asp-) 

less1on<-1ndexer looged on->s"1ridexer lowed on" 
sess1on<"publisher Togged on" >»" publisher logged on 

Mssionr pub_id->-HflhtCstr1ng(-0- ,10)^Lo9onrpub-1d-) .09) 
SESSIOMrp«bJogjMSsage-)="SOOCESSFiiL UOGIN- 



^ End If 

^if sesslonClndexer logged on")="1ndexer logged on" then 

•TMISWWE-IIAVIGATEURL "MENUl.HnT 

• response .wHteC^POW i«thoi>»post ACnoii=«enul.hm id=»foiTi2 nai«^onn2> ) 
'response .write "Successful Logon •<kr>" 

• Response.wri teC-cIMPUr TYFE=subnit value=#ttNO SIZE*>eO i(i.subBrit2 nanB»subaiit2>'') 

• response.wri f'</fOM>"%> 

^i^^FOim methoDbPOST ACnONa-wenul.htn" 1*=fbiiiZ naaie=fonn2— > 
Successftil Looon <hr> 

<I--IMWT TYPfe-TEXT" MWEp'roBJIRTH" SI2E-4 VAUJE»3> 
<{INPi;t TYPE^^subnit" value="MENU" SITEsSO Idssubalt} nanessubnii t2> 
<yhrS^"ilENUidxl.asp"X3o to lndexer/Pii>11sher Main Uienu<Juxv> 
•dfend ifX> 



^* Response. Redi rectCnenm.htv"))^ 
<p>&iibsp:^P> 
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c:\p»tentMte<fcn«tMlEIIUIPm»ASP 
<htiRl> 

^U^NAME-'CEMEiWrOlt" Conttnts^Klcroaoft vf simI Studio 6.0"> 
<t1tt»TtM namt 5t0fWricle> 

</h«ad> 

•<body> 

<h2>Th« Name Stor«</h?> ^ , j 

se5iior("buy«r„loBgecl.on">o buyer logged on tfierfl^ 

^>Fir»t Tfn« Users Heed to Register and Then tag On</h3> 
<p></P><p> 

<rhref*'bo¥add01.ftsp'*>Searcher/BuYer Re9istrationVa>«rt>sp; Provide identifying and payment 
Sf2!S?iot?'Ind wSblish logon'^sp: l>Sy «ntry fee of $S.OO. good 

until used for specific mmes.Anbsp;Vp> 

<h3>Reoistered Users Need to Log oni</hJ> 

SThref«-1ooby01.asp->Searcher/Buyer Log onV»**«P; Entry point to Pay-Per-View 
searches .Anbsp ; </p> 

<h3>0pe rating Trans aerions</h3> 
•4i3>EXPItESS SCRCEMS</h3> 

S^r«fii-|l»srcl70.*sp->EKpre.s Name vie»«/A>*nb8Pi (Display Nane^ Birthdate, Birth Place only) 

Sl>DETAILED OKTA SC»EEMWh3> 
<p> 

charge per name or related data iteni.</f>> 



Sj!lSS^^?Sl«d*S8Ls in GEDCOM fonnat CUnder Construction). V«> 



<p> 

<a hre^'buyphotl^asp > 

Download purchased photos (under Construction) .Va> 
</p> 



<P> 



SJlw"p!lrcEisid*do^Jn«nt images (Un<ier Construction) .</a> 
<l^P^M»spi</P-'X*—^ href-'-XFILETOl-ASP-Xl-KML FILE TRAMSFER- • x/A- I XP"> 

.(Xend ino 

JSt?-S3>s2v1ces available wirhout Registration (Main 

Database)</h3> 

</p> 

^Ji?r^ltl^^cV<f^^^^ see how n«ch our datal».s. contains on your 

fSifylines. starting w?th aTno«n relatlvo.Anbsp; R«c«1ve counts of direct 
™estors by sumwe llnd earliest birthyear. and counts of direct ancestors births 
by country ux6 state .«f«bsp; </Pxp> 

<a href«"db5re022.asp">Co«pare , ^ . 

Fwiily Lines For Cousins</a>«nbsp: people can see if they have connon 

relatives. 

<BR> 

S*^hr«f^"iBageS.g1f">Show map of AncEstors Blrthplaces<ya>*nS>sp; Cdononstratlon only) 
Statistical map of birth locations. C^der construct! on) V»'"> 

<p>4nbsp;</P> ^ . , 

^l-.H3>De5cript:ions and Ir»struct1oo»:</H3> . , , ^- 

lU S-Per-View Search first lets you try t» find * Icnown relative who is 

irTtS daSbaieTanbsp; From there pay-PerWiew Search will charge you for each 

linS naSt^und, plus an additional fee fbr othar related data it«* selected 

fir Schrwne.«r*4p; Payments are good until used - no monthly subscription 

rates.«nbsp;4nbsp:</p> „^ , « r« 

<p>Ojrrent rate8:inbsp; Name $1^0. Sources $.50. 

Bioaraphlcal text $.S0, source docunent images $.50. phoxxi J.SO.imbsp; All data 
eloSSS my not be awillable for each nameA^bsp; Having paid once, the 
searcher need not pay aoain for vi«rtng that na«K.</p> 

^The Pedigree statistics option first lets you trv to 

^d a knowS relative who is in the database, and tfien P*^!;'^*? 
branches to their ends.  It displays all wrn-ncs found, the nui*er of 
direct orooenitors found iwith that surname, and the birth year of ^oldest 
pe^ ?SSd in each line.«nbsp; This option will be free to begin with, but 
Jxcessive use may require that a small fee be charged later A»bsp;</|». 
<c>Th€ compare Family Lines f=or Cousins option uses Oie , ^, j- 

Pedlgree statistics logic for two different people, tfien examnes all findings, 
looking for exact ■atches.4nbsp; The most recent matches, if any. are 
di splayed. </p> . . , . ^ ^ 

<f>>The Show map of Ancestors Rirthplace demonsto-ation will ^ 
be further developed later so that births^ deatfis. or marriage^ 
grxMis of ancestors can be displayed in tabular fone and In graphical form using 
USA and world mBps.«nbsp;</p> 

standards (less expensive to search) .«c/p~> 

S?£-.T/Pro3Kt2lLic"/BiJersHandbookl,hto->Buyers Handbook lnft>naat1on</a>«nbap;4nbsp;tebsp;«nbsp;dnbsp;Vp> 

<p>For more generalities and technicalities, see <a 
hireft'' . ./Project? Jjjcal /Pol i cyl.htm''>Policy andtechnlcal 
1 nfo</a>«sp ;«nbsp;tebsp ;«nbsp ;«nbsp ;</po"(px/p> 

<a hrefBVela»M2.a9p">HCMie Pagc</v> 

</bodf> 

</htBl> 
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C ! VpAtwiVHPdiil •i>i»emri dil .aap 



4Mt« tUMEm'aciKMTOsr Qmtantf'^croweft Vl«ual Studio 6.0% 

<t1tl0XNDEXEIl/PUBLISHCIl MaiU^t1r1tt> 

^Ml0f».Tl««0«t>.60 'DEFAULT IS » MINUTIS - THIS IS TO PUSEICVE THE PUftUtSHER-S 10 P«WHET£R 

-.^ 

<hJ>IMDEXER/PliaUSHtJl HEIW</h3> ^ 

<X<f st«1on(-1odexer lo»ed M->o-1nde«er log9«J on thwtffr 

<di3>R*slBtar«d lnd««ri/FubH«her» ncvd eo Log on:Vtt3> 

Srhrff^"l«fl1dx01.«ip">In€iwier/PubHsher Log on</f»</p> 

^>Fl p«t Time users Meed to Hegl ster and Ttien Leg OiH/ha> 
<P></Pxp> 

<A href=Md>taddoi.»sp' 



Register as lndexer/Pi*11shcr8nbsp;VA></P> 
<dleTs«ab. 



4)leTs«ab. 
<p» 

^!3>oata Entry and Correction scrtens</h3> 
<ha>EXPflESS SCR£EMS</h3> 

S*href.-dbsrcl60.aip->expre»s Haae view. Add. Change. Del Ink. Del ete</**ib«p : (Process Name. Birthdate. Birth Place only) 
<P> 

<pi> Anbsp:</P> 

^lri1?5iS!S"AS'*f1?S SSly or Individual t» begin a pedigree structure, use only once.Vpxp* 
«hr> 

<h3>oeTiaLa> WkTA SCREEII5</h3» 

href*"dbsrcaJ«.as|)">Oetailed Pedigree 
Data Insert and update</ax/P> 

2*hr»f=-dbpi*03«.aip->viei Detailed Data In 
Pedigree Poniiat</a> 

«!— a href-''gr1d01.asp">Browse Person File in Crid FOnnatV«x/P— > 

<P> - . . ■ . 

<A href="addlnkcl.xxx">*idd LirA 

Between TWO NaoMS in votir liaBse S|>ftce</A> ^ . . , 
(under Constpucdfjn) use for unusual repa1rs.lnDsp;<</p>^ 

<A hrefb-addlnkcl.300C">Add LJ.[* 

SSt??CcSSn!M»e^''^5^Sct1nfl one oonplete pedigree ertth •"Brtier^An^; For 



pediQr«e.«ob»; Later she wy be i»n»ed xtjtmi 
coavTcted pediBree.Anbsp; «nbsp:</pxp> 



<fp> 
<3nr> 



«^-RaiSx!.5-3eSJS?^ Entry Rl«i>V^sp;«nb.p;Ent«r Sun». for de>cend».t data entry. 
Tt»1i Will let other* knew your plant and avoid conrniet*. 

^SGBXOM-tD-Mm.-ts-GenRcg^erver Setup Transact1ens</h3> 

<a hrefw'*gedcoH01.Btp"xlequest next Project ID nunber (optional )</«> 

S*hrefti*fle<fcoafl2.a»p'Mlegister GEDOOM Input proiectVa>«nbsp:«nbse: Enter Naow counts 
f^9C-y^SSctSiMgQmii step 1 processing ana receive bac( Project ID and nurtier ranges. 



jedcaml.h«e">GEOCOn Processing instrucnon»</a>«nosp;«nDspi«wK;™i m ww"-**^''' 
^ri^ hrif?!!/projectZ_loeal/in«tr«l2.htir>Fleld-l«el procearing notiWa****?;***?:*" « 

2 '^L'VSA^ISR^:^^^ Obstruction) oa«n1o«l executable file, for <!BWO«-t»*niU 

conversion 
4XEnd ifa^ 



?href^"1aedcoad.h«e->«E0C0n Processing instmction»</a>«nbsp:anbspjConc«t and Sevw-at^Proceirlng Suiaiary 
• ^ref?T!7projectZJIoeal/inrtr«^h^^ jioti»-y»«r*«p;<rt«p:*" 
lei are prepared and ^ ^ ^ " 

iref^'aMapp .eMe's^BX 
ferslon 

ax><stron0>Oescript1ans and 
lnstnjct1on»</»tron9>-c/n>- 

SSfSSSS^Jd*^ ^fiSS^"!^ a logon, and .dtai they do^y. Ujey a 
22hSi S for thCTseTves. which they rtouiynota do«n and 25*b:;."^lii* 
a 100,000 (1-99.999J name nueber r«nge.dnbapi "ihey cwi enter and updatia nanas 
directly within their assigned space. 

4l)r>To start the process, one individual a*i«„. 
or faarily needs to be added separately uslna the AM nWMIOlY transaction, ^r 
that all other naaes should be added as reTatlves attachad to that _^ ,^ ^ 
SSt personor f«a11y. Ideally, all naaes entered Into a tmm ap ace sh ould be 

and then comect then with links, but that is a confusing and error-proi« 
5Sc«s? andlhould only be dona In special cases by soaKone trained and 
expar1cnccd.)VP> 
<p> 

<P><stren9>quality Omtpols 
«/stront^ - . 

■^r>VOU are welceme to stake out "name spaces by entering ^ _x ^ 

nvKsTcspecially duHng the early testing tlwea.anbspj But we resenfc the Hght 
Tw<tc?inde«ers/pubHsher. if the data qi«11ty Is not acceptable or It causes 
confusion or diMiHcaClon.«nbsp: i»a want to foster cwitlnual Inprovcnent in datt 
quality; and frtentfly coepet1t4on may be hjlpfvl:*?!*^^* also hope people will 
try tSiing up to keep data quality Wrovlng^bsp; </P> 

^"r5l2'iiSJroil%iJ?1S?*i^-tVl^ffI'r u^ that will allow «.t data 

Srewratloirand accuracy and conpletenasa checking to go on P|*i!f^" 
Se^tops. periiBps after reserving a set of "ms to be prepared.anb»; One data 
Stio?^t£arwiTl be new t»,«Dst genealogy data storage systoes is the latitude 
and longitude nudbers for locations .dRb9p;anbsp:«nbsp:VP"> 

<streng>Riture Poss1bil1t1esV»trongyAr>ln the future, indexers and Publlahera nay be able to receive royal tie* on the nanes they I 
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C;\p>tcnt\HPdu1 es\iiiemridxl,asp . 

entered, based on th« nrnk^tr and kinds of accesses by buyers .tebsp: This may 
encSJaie iStnnfl the b..t n-nes to add to -ake the database more complete and 
better answer researcher/buyer needs .Msp;«nDsp: 
^r></P> 

<7^^p><strong>The Publication process (Future) 
</strong> , . . 

<br>lndivi duals can publish genealogy book* ^ ^ , ^ « 
through this Genealogy Registrv syiten and reach the largest mnber of 
people.Msp; as searchers follow their pedigree, they will see just the nwes 
Key care about, and may use and pay for a part of y***"" ^Jf*'*^*" ^fU^ 
even realizing they have used any particular person s P**ljc«tlonA*SD! This 
should tend to aaxiarize the benefits to both parties, keeping down publication 
costs, while Increasing "sales" to the largest m«bcr of buyers, 
because they will need to pay fbr only the names they want.tobsp: For example. 
SSUone looking fbr ThtaeasS or Stinsons would not be too likely « ^ 
about Huffs. But there may be some useful data there if they could select it 
out. 

<br>Publishers can include genealogy data, life ^ 
stories, photos, and copies of source docunents. and buyers can select the names 
and data features they want.Vp> 

<p ;j r /p—> 

<A href^"Welcome2.asp">Honie Page5/A> 

</body> 

</htinl> 
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C ; \paten tMtodul esXSTATSOOl .*SP 



<m Language-VBScript )^ 

<<X0pt1on Explicit %> . ^ . « 

'ditiil> 



<iieta MWe^-GEMEIUTOR- Q>ntent*"HicPosoft Visual StwKo 6.0"> 

<title>MAlH WVTAflASE STATISnC5Vtitl€> 
^3>miH DATABASE STATISnCS5/h}> 

^haad> 
-<body> 



*8/2S/99 



create oatabase statistics raport 



Dim cnSearch, rsSearch 

C«m rtarsOMtatsOl. •trsQUtats02 

Dlin paopT«L.tot. oide»0)1fth-ycarjiold 

Set cnSeanrh - Sarvar.CraataObjoctrAOODB .Connection-) 
cnScarch (Open "dbl" 

Set rsSearch » Sen«r.CreateObjectC"AlxH».Records«") 

»trSQUtatf01='*$EUlCT persoiulnme AS SURNAME, 
''COUNr<PCRSOIL^O) AS PEOPLE, "ft- 
"winCbirttuyear) AS EARLIEST 
"FROM Per»on_T " aL 
•croup by PCRSO«_lname" 

rsSearch. Open strSQLstatsOl, cnSearch 



ReSDonse .Write C<table border a1lBrw:enter>") . 
Response write ^<captlaci>MAIN DATABASE 5UMMARY<br>eY SUIIWNE AND EARLIEST BIRTH</caption>«* 
Res^nse .Write -<T».StfRNAHE^)m>PEDPL£-mi>EARLXESr BIRTlT 
peoplctot-O 

oldestjji rth_year_ho1d3"9»y 

00 while not rsSearch. EOF ^ 

'Response .write rsTrace( surname >fir&nbsp: _ 

•4rsTrace<"p«»p1 e''>*"4nbsp : "4rsTraccC"earl lesf •)4''<BR>" 

Response .Write "<TR><ri>"l(rsSearch<" surname-) 

Response .write "-^Ito^irrsSearchC people ) 

Response .WHte -.mb-ArsSearchC; earn est ) 

?f Sl5i!S?^Sih2o*?2Td!;si!b?S^iear^ld then oldestJ»1rth_year_hold = rsSearchC'earlleat-) 
rsSea fch . MCVEHEXT 

loop 

Response.wri ce -<TRxTtl>*'4''T0TAL/OLDesr* 
Response .irHte "<rn>-«peopl e_tot 
Response .write "<rD>"toldest_b1 rthjrearjwld 
Response .Write C"</table>") _ ^ , 

If ^search. state = adStateOpen then rsSearch. close 



•emd of surhame report 



create geography report 



strSO-statsOT-'s ELECT bIrth-COuntry AS country* birthjstate ai state, 

"C0UlirCPER50ll_XD> AS PEOPLE 
"FROM PersoiCT " . 
"GROUP BY birth_country, birth_state 

research .Open strSQL$tats02 , cnSearch 

Response .write -<p>lnbsp:</p>- ^ 

Response .Write ("<table border align=center> ) ^ _ - 

Remonse .Write ^<caption>MAIN DATABASE SU»BiARV-«R>BY COUNTRY AND 5TArEVcaptl0fP> 
Response.wri te ••«^T>l>C00ffTRY<TH>STATE<O«>PK)PLE* 
p«op1e_tDt=0 

^ol dest-bi rth_year_hol d--9999" 
DO Hhlle not rsSearch. eof 

'Response .write -r»TraceC"«Jrnafie->4j8ftb»p: _ 

' ArsTrecer peopl e-^ft-Anbsp :"&rsTraceC earll est")*-<8R>" 

Response .write -<TRxTD>"fcrs5earchC OOUMTRY") 

Response .wHte ■<TD>'**rsSearchCSTATE") 

Response .WHte -<TD>-*rsSearcK;; PEOPLE^) 

^rSrSJ^ifrSJ^r^^'dStSlrthi^^ then oldestLblrth^earJwld - rsTraceCearliest") 

rsSearch. MOVENEXT 

loop 

Response .write "«TR>^rco''4''TOTAL'' 
Response .Write "VTOxfan*-*' 'Apeop1e.tot 
Response .wnte '•-<TD>'*toeop1e-tot 
Response.wri te C</tab1e> ) 

if rsSearch. state » adStateOpen then rsSearch. close 



'END OF GEOGRAPHY REPORT 



'if rsTrace. State adstateOpen then rsT race. close 

'cnSearch. Execute "drop table ''Atabl e_nanie 

if cnSearch. state • adstateopen then cnSaarch.close 



^!t^Hre^^lcciiiel.xxX">«kine PageVa— > 
<l"Hlts: <-XKitCount.>HtsX--> 



</body> 
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Ci\paomt\wo<iu1 »*\i»b1 amei . asp 



<htn1> 



4Deta lUMEa^Generacor^ cOHrEMT-'lticroaofft *tord 97"> 

<l--bftM hrtf^-f11»://ci/1f«t|H*A<»wroot/Project2LXocair--> ,<<-V«0!3» "> „ 
<l-^»€ hrK-?:/lly Docii«nSM«jal Studfo ProJtcWProi«ct2/ProJ«ca_W»c«ir-> 

<tl tl e>V#el ccncVti tl e> 

^^b^ b»ck9row«l-*_th«raes/l«av«s/l«abkgd«opg"— > 
<center> 

BETA-1 Test Version - Data Ptay Be Subject to nodlfication or 
Loss 

<fbnil colorB'*red"> 

<br>4)r>The Genealogy system th« world Has Been waiting For 
^r>7be ultimate Research Tool 
^r>€enealo0y's online Data Exchange 
<fcrxbr> 
</h2>VFOiHV</center> 

<fbnt SIZE»"3">-* «joi«"justify"x/l» 

Sen^n^iraM^^^ftTGencalogy teoi str»Vc«nt«r> 
.<center>The Nation* sM>sp;and w>r1d% Online Pedigree Vcenter> 

^ ALIo£*cSS?^itP5.000 nones, on the my to 500 

oinion</p> 

<t — p ALIG«=*'center">*nbsp ;</p~> 

<p>ute hope Chi a site will become the first place people 

iSok wh?want to learn about thai r.f ami ly.«nbsp;-e ««njnewjll add tteir 
efforts to solving this enormous jigsaii puzzle, the SCO nilllon people lAo have 
ever livS in the us. and all the flmlly connections between them.Cnbsp; Next 
coiU ihr»«rld.4nbs^;<i-a href*."l(howtb->«o» To Use TMs 

^JiS^h^if£-iilInuidul.a*p">Tl« Searcher's PortaW*> 
<blockquote> 

Genealogy hobbyists and casual viewers 

can exauine the worldniHde pedigree index, seeking a 

near relative who can be their connection tDM>sp;many 

gmerarlons of their ancestors .Anbsp; 
VolocltquotD- 

<pxA href>*VMnu1dxl.asp''>The 
Indcater and Publisher Portal </*> 
'<bl ockqtiOte> 

Add your research to the world-wide, waster - ^ ^ , a^., 

indek pool, exttrine the pool yourself, then look fbi«nbsp;the most fniltftil 
areasMbapisomeone nightfinbsp ; extend .Anbsp; 

<p>After the index is well under way. we hope to. upgrade 
this scct1on&ib$p:to add ainbsprpubli cation option" Wnch cananbspjcorftain 
m>r« detailed biographical data on each name* including text and photos .Anpsp; 
Useri of the option would pay a small fee iiWch would go as royalties to the 

publishers - the s«ae people who created the Index.lnbspjtebsp; 

<l-br> Make this t*««quot;fin«l restlg Pi«^«>E^*»»■ jfour *Jta, and 
discover that In fact there Is «quot:11f« afterdeathAquot: as the data 

^r^"h^S1^^!/Projl^c5Ij2SvWr001,ht»•^ Instnictions^A>**sp;VPx/blockquot«> 

^!>&ni>sp;</p> 

<a'href=-1aedcoml.htni''>GEDCOM Processing lnstruct1on$</a>«nbsp;4nbsp;Concept and Seven-step 
PRicessIno Stimary. (Logon as Indexcr t» get access to trmnsactiona.) ^ ^ 

hr«^w£«Jert2!lO»^ processing notesV">**»P;*nbsp;How dates 

and places are prepared and processed for GEOOm to GenReg conversion. 
<p> 

Donations gladly accepted from ell users and contributors to help 

this Index r«ach Its full potential Msp; A one-Mme UO Is suggested .8nb$p; 

See FAQ on lam page for project estimates md ceoputations. 

<p ALICIM"justify"x/P> 

^»%S£rvices^vaT(able althout Registration CHaln 
t>atafaase></h3> 

<A href^-'dbsrcOlB.asp >WlCESTOR ^ _* i 

summary:</a> search direct ancestors In wain database and swnarize results, 
oivina sumwaes. total counts and earliest birth year. Also sunraanze births by 
eounS?v ar3^ate.4nbsp;<>k hretv-". ./Project2«tocaVln*tr003.htw->Instruct1ons</A> 
<axA href»"dbsrc022.asp">COUSIHS ^ , ^ ^ ^ 

siARCH:</A> For any two starting nanes, search main database for most recent 
comSnon direct ancestors. <A href=-../PrDject2_ljocBl/instr003.htm">lnstruct1onsV^ 
</p> 

3rhref-"iniaoe5.gif">Show «ap of Ancestors Rlrthplacas</A>afibsp; Cdcnonstratlon only) 
Statistical aap of birth locations. (Under const niction)</P> 

•«DxA hre1^"8tats00l.asp'*>oiSPtAr OATAaASE statistics :</*> , , ^ 

Srmain database, report totals by surname and earliest birth year, and by country and state. 
Vp> 
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c;\patent\WDdu1 »»\m1conw2 . tsp 

•<p a11gnB''ccnter">Systcm Concept and Purpose 

<p>«nbsp:tebsp:&fibsp;«nbsp; Although th«re are thousands of ^ ^ . 
genealooy sites, many with narvelous resources, it still appears that there is 
no other site 1) where finished, fully lineage-linked, accurate data can be 
stored in unlimited quantities, and everyone in the iiorid can examine, improve, 
share, and add to it; 2> where data frcm all the other sites and research can be 
consolidated and integrated; 3) where researchers can publish their data and 
receive royalty payments from other users; and 4) where huge efficiency 
in^rovanents can come from working together and avoiding duplication of effort. 

<br><A href^"../FrDject2_Local/Policyl.htn">Hi story, Policy and 
Technical 1nfbmat1onV'A>«nbsp; «nbsp;«nbsp;Msp; 

</p> 

<yfont> 
<ir> 

<pxcenterxfont SI2&="5">SUPP0RT THE 
GEHEALOGy REGISTRY PR03ECT</font> 
<br>ANO HELP OETERHINE 
ITS DIRECTION OF GROWTH</ccnter> 



<A hr€f«"BUVD0III«,htm"xh3>BUV TO 00MATE</h3x/A> 

CUnder Construction) Purchase goods and services from our affiliates u*»o allocate 
the rebates to support the Genealogy Registry Tax Exempt Foundation. 
Designate areas or genaalogy database dovalopment you would like to see done. 

(Estimate rebate at 5X). , . , ^ , 

<A hrefW'*OOIMTEIN.htm'*xh3>DO»MTE</h3></A> CUnder Construction) Donate funds directly to the Genealogy 
Registry Tax Exempt Foundation and designate areas of genealogy database 
development you would like to see done. VOu can choose other charitable 
recipients as well. 

^xA hrefr"../Pro]ectZ_u>ca1 /contact!. htiii**>contacc 
us</A></p» 

•<p><A href s".. AMI cane3.htn'>Go to Welcome screen and FAQ</aWp> 



<hn>. 



<brxA href-*.. /Pro ject2jLecaVimage001.htm">Image Gallery - CxperimentaW'^aMsp; 



<BLOCKQUOrE>VBLOCKQUOTe> 



VlK>dy> 
Vhtml> 
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<M LanguagesVBScript X> 

^tion Explicit X>, ^ , J , 

<htni1> 



^^^NW&i'GENElwraR*' content»"irtcrosoft Visual studio 6.0-> 

<tit1«>SEAIIOt ran -TREES- IM NEW CEDC»K/ti tl » 
<h3>SEAIICH FOR "TREES" III !«* 6EDC0M</h3> 



Dim NSTA5LE2. WSTA8LE1 
Dim 5trS<lLT2, strSQUTl 
Din cnSearch, rsCreate . 
Din rslndiv, r*Tl, rsT2, rsLink, rsSCHEMA 
l>im sqlGeOndiv, windlw " 



Din sqlLink. sqm. sqlCUar. sQlJaflli^g 
Din oSner, tret-oit. TontJ»ame» sqlTreeAdd 
Dim person-cnt, P^^Pl 
Dim rsRiiport. strSQLr, strSQLdt 



iUr«e 



."OOOOOOOOl" 
•CREATE OR RE-IIIITIALIZE PERHMtEKT TREE TABLE 

•SwSiSS-'^pM^S^tart^ 

•USE OWNSt 10 AS GEDCCM 10 AMD WRK TABLE NAMES 

WSTABlJElp-ieTl"&-000000001- 

strSQLT2= "create table 
Awstab1e2 _ 
A" (person? char (14) ) 

strSQLTl?= "create table "_ 
Awstablel _ ^ 
A- (personi charC14) ) 

set cnSearch » server. createobject("ADOOB.Q)nnection") 
cnSearch.Open "dbl" . . _ _i. ■ • 

^nsearch^!^ute »trS<JtTa«p 'create cable - iwritill 

Set rsCreate » Senfer.CreateObjectCADOOB. Recordset") 

•set rsupdate - Server.CreateObjeetC'ADOOO.Recordaat") 
a(|lClearte''Update persoa_t 
** set tanl. » 0 "4L 

- dhere person_id *~2222?- 

- and pcrsofuid <^ ' famwr A 99999 

cnSearch. Execute sqlClear 

StrSQLdt»-OELETE FRC3H Cree_t ^ *_ 

- Mhere leftCpersoiu1d.9) - Aowiar A 

cnSearch. Execute strSQLdt 

i EXPERIHEKT' 



.1 .SCHEMA EXPERIMENT ^ . , . 

SET rsSCHBIA B cnSearch. tecnSchemaCadSchenaTab I es) 
do while not n^««a.eof ^ *4. 

^SlSh^lSS^l*^ Ur^SlSbiSr -this is wst for repetitive testing 

'£dt?Jrii^e*-d^'*Jabi:^^ -nilS is 3U5r R« REPETITIVE TESnHG 

end if 

•Response .writ* rsScha»rtable_na«ie-)*" - " use line to see all tables 
rssdtcMa.novenext _^ « 
• •Response. wHte rsSeh*inaCtableji»"> 

rsschema .close 

•S^t~^^sLrch - server. crea«>object("AOOoa.«Bcordset-) 
set rsLink - server .CreateObiect<-AOOTO.Recordset"2 
iSt rslndiv = Server .CreateObjectC^OOOT.Jccorget ) 
set rsTl = Senrer.CreateObjectrAOOOa.RecordseO 
set rsT2 - senfer.CreateOb3ect€"ADOD8.RecordseO 

•rnSfturch ExecUtA "drop table 'AwstableZ 'THIS IS lUST FOR REP ETTTIV E TESTINfi 

•cSlSJSl&JSS -drop Sle -tostablel -THIS IS JUST FOR repetttive testihs 
tree_cntssO 

00 WHILE TREEjCmr < 65000 

^!rtSSSf?SEm*Prwider fbr ODBC Drivem error 'acXMOeST- 
rscreate.open strSQLT2, cnSearch 
•rsCreate .close « _^ 
rsCreate .Open strSQLTl, cnSearch 
'rsCreate. close 



sqlGetIndiw»-select,Ber2oii.id from person^t 
^^here penon_id > •=_Agwner QOggg: * -*r 
- Biul oerson-id *" Aowner A''9999S A A_ 



and peraoruid *" Aowner 

- and taol » 0 "A-^ 

- order by persauio* 

•get loi«»t-nu*er penoiuid 
'consider use of mu function 

rslndiv. open sqlGetlndiv, cnSearch 
if rsJndiv.EOF or rsindiv.BOF then 

rslndiv. Close 

exit do 
end if 
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rslndlv.dost 



S^MhlU X « WOOOO •» '30 'IDOOOO 'loop til process is done 





rsTl.open "select • frocn - ^ablci... . 

•»^lTl=*in»«rt - add nuifcer to table 1 

rsTl.Add»ew 

rsTlCpersonl >^ndiv 
rsTl. Update 
rsTl.Clost 

''*jS;S?S,*2dteJ;n5yfM»ic. adLockOpt1«1stU 

sql Li nk=- select person? fra« ]1nk«-t 
^1-here personl - ; " *JfI««^v t, *. 
" and p€rson2 not In «_ . * « 

- (select distinct personl as persoii2 fnm ©KTABLEl • J *, 
• and pcrson2 not 1n . 

- (select distinct person? froia MSTASLE2 ft ) 

•^t a new set of links 

do while not rsLink.eorf and not rsLlnk.berf 
*qKive new links to table 2 

r»T2(-person2-)-rsLlnkrptrson2 ) 

rsT2. Update 

rsLink-inovenext 

rsL?nk. close 

M?r»T??»tate « adstateopen then rsT2 .close 

•otc neit person nuift>er frcra table2 to be expanded by finding links 
salT2="Select persan2 frow " 4l»SlABLE2 «u 

''Sl^^ ^] aii*endyn»ric. aduoekoptirristic 

'if not rsT2.eof and not r*T2.borf then ^ _. ^ 
If rSS.Sf and rSTZ.bof then 'all records done* 

rsT2 .close 

exit do 
end if 

Hindi v=r$T2C"persofi2 J 
rsT2. Delete 
rSTl .Close 

•bJ?ow'h^ SJ.rihe^SSal tally for one tree and set to start another 

'update persorut 

•set tagl - tre«_n«a 

'where person_-id in 

'(select personl from Airtable) 

sqlTagl-" Update persorut "4_ 

- set taQl = " Atree-cnt *_ 

- irfiere persoruld In , 

- (select personl fronT^eiKistablel 4")" 

cnSearch. Execute sqlTagl 

sqlTreeAdd>'*Select «rin(personl> as onnp. 

- countC*) as countp 
« firm ^testablel 

rsri.epcn sqlTreeadd, cnSearch 
loHjnaancrsTlCMlnp'*) 
personjcntBrsn<"countp ) 
rsTl.dose 

sqlTrees-lnsert into tree_t 
' sqlTree="In»ert into tree_t 

- i;iSlV-'*-<SlSS^«i5cpersonl) froa -«a.sf!.lel A")-*. 
•- , ■ &tree_cnt 4*)" 

'sqlTree-" insert Into tre«_t "<c_ 

2l^l?"^^ioS!•^^oe^(- »-(select ■in(peraonl) fran "iwstablel ft-)""*- 
*" fnxB awstablel 

, " &tree..fnt VY 

cnSearch.Execute sol Tree 

enScaixh. execute "drop table -«wstable2 
cnSearch. Execute "drop table &«stabiel 

•cnSearch. Execute "drop table "Atabl «_na»e 

lcx>p 'end of tree_cnt loop 

••^Prlnt out the Tree TabU 



an ( 
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set rsRepert o server.Cr«ateObject("«X)OB.Recjopdiet") 

strSQLr="SELBCT_^* "4_ 

FROM trGC^t . . * _■■■« . 

Mh«re leftCpersoiu1d,9) = *- iomer V"** «u 
" ORDER BY TREE^UM" 

* Response .Write strSQLs 
rsReport.open strSQLr, - - ^• 

cnsearch *. adopcndynannc, adLockOptimstic 

Response .Write C <table border align=center> > , ^ 
Re^se.write *<capti on>ALL PEDIGREE TREES FOUHp<Aaption^^ 
Response .write -<rTH>TRtE NUMBER<rH>NAME a>Uirr-<TH>lJOWEST PERSON ID 
peop1e.tot=0 

•oldest-b1 rth^ear_ho1d«"9999 

DO while not rsReport.EOF ^ 

'Response .write "rsTraceC surname )« dfibsp; - 

•«rsTraceC'people">*"«inbspr&rsTraceC*earliest")«r"<BR> 

Response .Write "<rTR>^rD>**&rsReportC*tree_num j 

Response .WH te -^D>-«frsReportC"person^cnt ) 

Response, Write ~^I»"afrsReportC person_id ) 

T/J^f^J^rlTSt-r^'SlS^s^i^ar^l- ^ old.stJ,irth_y^r_hold - rsTr.ceC"..r1 i e.f •) 

rsReport .MOVENEXT 

loop 

Response -write "^r>^D>''&"TOTAL , ^ ^ 

• Response. wHte "<m»<br>'' '&people.tot 

Response .Write "^rD>"&peopleL.tot 

Response.wHte C"</table> ) » ^ i„ 

if>sReport. state = adstateopen then rsReport. close 



' clean- up at end 

cnsearch. Execute "drop table "JwstableZ 
cnsearch. Execute "drop table "«wstablel 



set rsTl » nothing 
set rsT2 = nothiM 
set rsindiv « nothing 
set rsLink » nothina 
set rsSchema = nothing 
set rscreate « nothing 
set rsReport = nothing 
set cnsearch nothing 



'update persorut 

•5h^r^*pir^n-id «o.'"*o«ne^OS291 
•and person-id <= Aowier &"99W9' 



rilt OLD DBSRC020.ASP CODE BELOW 

'Response .write reque5tC*line_cnO ^ . . 

• Response .Wrt te "start-4>erson-id"Astartu>er$onLJid 
%> 

<hr> 
<br> 
<br> 

%> 

<p> </p> 

<a href='Velcanel.asp'">Hcnie Page</a> 
<!«-Hits: <-SllrttCount.Hits»— > 
</body> 
</htn\> 
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<X* LBnGuage:=VBScrfpt %» 
^tOptton Explicitly ^ , 

'hnKs-gemeiiatOR" Q»ni»nt>."l«ero9oft v1«o»l studio 6.0-> 

<Cltle>HKrCH -» PAREtirS- PEOPLE III HW CBKWK/Cltlw 
<h3>IKTCH -NO PAROUS- PCOPtE IN NEN CEDa»K/M> 

<hr> 

^/Vg^goflM his no way to wirk tho proper mtdilng nam 

Mn owner, m 
ofn strSQLTl 
iHiii cnsearch, rsCreate 

gl:S?S^; JSSfcTtr^lS^trry. «,lMatchAll. «,1«tch 

l>in sqlSp, sqlCh, sqiNextUpJ 

g: S?S%.irS5;rgjS2:^. NoP^rSe^aame. NoPaa^year 
O^m NoplrSlld MoPef^ClrwM, MoPerdLfheme. MoPardiJiyear 
dII NmOM. W«r.1n»ne. HoPer.JnMie. NoPtrJ^ftsr 

•Dim rslnd^v, r»Tl, rsT2, rsLink, 

•d1» sqlCeUndiv, windiv. x , . w 

•Di« Suinlc, sqirZ. sqlClMr. sqlTefll. sqlTree 

•Dili persenjcnt, P«epl«-t»* „ ^ 

•Dim rsReport. strSQLr, strSQLdt 

OHMrs-OOOOOOOOl- 

•CRCATE OR RE-INITIALIZE PERMANENT TREE TABLE 
'SblI!n2S«^&TiS(ttari^tr«>n_1da4)toidCrf^^ 

'USE OMCR ID AS CEDCOM ID AMD MRK TABLE NAMES 

••STABLE2«-WT2-*"00OOO0OOl" 

IITABLEl^»-Nn-A-000000001- 

'strsOLT^B -cre»re table 

' «i»tob1e2 _ 

• ft- (personZ ch>r<14) 

strSQLTl^ -create table 
tttablel _ 

*" Cper«on_id chaK14). «l. 



set cnsearch ■ server. CreateObjKt("ADOOB.Oinneetion") 

'cnSearch.Exeoite strSQLTeap crmte table - norksM 

set rscreate - Server .CreateObjectCADOOB.Roeordset-) 

••set rsupdate » Server .CreateobJectC-AOOOB.Recordaet") 
'aqlClearta-Upciate persoiut "A- 
*- set taol » 0 "flL. 

- Mhere person-Id >r^'*;*^«''-tI222S91"*- 

- and peiWL.1d <- "* «o«ner «rM999*- 

* cnsearch. Execute sql clear 

-strSOMft^-DELETE FROM treejt,; *- 

- whoro 1«ft<p«rsonJd,9) « «ow»er A" 

* cnsearch .Caecute strSQLdt 



do 1*110 not rsScheaa-eof ^ 

••{■F r<«chHaf-t^le_naaRe") ^ W9tabie2 then 

• mS^rSh!Sec*lt« table -«»«table2 'THIS IS MJST RJR REPETITIVE TESHNG 

'S:ife?£SSi'^"Jjir^lSblS" this » .usr for repetitive TEsn« 
end If 

*Responsc.«Hte rssch«a<"t«bl«.jw»e")4" " ' use line to see all tables 
rsscfwna.onvenext 

**'R«Kp«)(ise.Wr1t« rsSch«««C"t»bl«ji«iie ) 
loop 

rsSdiena .close 

EWD LXPCTIiiHfTn ^ rrrrTt-l 

Set raiutch - server.createOblectCAOOOO .Recordset ) 
Set rsMatich2 - Senfer-CreateCbjectCADOoe. Recordset ) 
Set rscnt - Serkrer.CreateObiectrA0006.Recx»rdset-^ 
set rsNext • server .CreateObjectC-AOOOB. Recordset") 
^t - !^ver.CreateObiect(iAOOOB.Reeorrfsee:i 
•set rST2 ■ senrer.createobjectrAOOOB .Recordset") 

*cnsearch.Execute 'drop table -«Mrstable2 'TWS IS 3WT POR RE PErmy E toting 
oIsSrch'EAeSrte "dr^ table -fcwtablel 'Tins IS 3U5T FDR REPETinVE TESTING 
•trecjcno^ 

'DO WaLE TREE_afT < 65000 

•trBe_cnMreejcnt*l , _. .wwi^a-^t 

'Hicraseft OLE OB Provider for 006C Drivers error '80040e37 
•recreate .open strSQLT2. cnSearch 
'rscreate. close _ ^ 

rscreate .open strSQLTl, cnSearch 
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'rsCrcate. close 

•find n«ne« without parent links and put In work 

sqlltoPar«"lNSERT INTO " MTABLCl *» ^ . ^ . . .^^^ h- 

"SELECT p«ri«ruicl, person-lnam* pcrtoiuniaw, b1rth»y«ar, as procassad 

from parwrut "ftl 
" where per9on_id not In fu _^ 
" (select per«>nl from link^t 

- «ihere laft<person_id.9) a^" fcianar 

- and l€ft(relat«,l) a > )-&_ 
** order by perscHi-idr* 

cnSearch. Execute sqiNoPar 



s<]lChtcCnt>>"&ELECr count(*> as NoParOit 

«• fnm - airtablcl 

rsCnt.open sqlChloOit. cnSearch 

iioParOit»r»Cnt("lteParCnt"> 

rsCnt. close ^ 

If HoParOit > 0 then 

• rscnt. close 

• exit do 
•end If 

do Mhlle a<10 'for testing - for real use 2<3 or sonething 

8qlHextTry-''SELCCT * from " Mtablel *_ 
" where processed o *Y 4„ 

• order by person-id" 

rsHext.open sqlHcxtTry. cnSearctk 

if rsNext.eof or rsNext.bof then 

rsNext.dose 

exit do 
end If 

•sqlM»ie-"SELECT ln«»e, fname, biPth-year " 
'■ where per9cn_id » '* anextjaroe ft 
'rsNext.open sqlNwe, cnSearch 
Next-Nane-rsNextC person_id ) 

NoPar.1 naatea rsMeKtC pe raon-lnawe^j 
MOPar_f?iame-r»Naxtrparspn_fiiane ) 
iiol>arJbyear»rsiieittrbirth_year > 
rsHext .close 

•get spouse and child for the next no-parcnt person. 
«qlSp=SELECT person^id. person-lnane. persoiufhaiM, b1rth_ywr 
" from Hnks_T, person_t «_ . 
" where personl - * taext-nane ft 4_ 
■• and persons » perMnjfd "ft_ 
*• and relate like 'sX*"*- 
- order by b1rt*uyear* 
•just take first spouse? 
. -r.dose 



rsMext.open sqlSo. cnSearch 
If not rsNext.bof and^not rsNext.aof then 
MoParSp^id srsmottrpersoruid D 
NoParsp^l na»e=rsilextC'*pe rson_l ) 
NOParsp.fhm^rsNcxtC person_fname } 
MoParSp_l>yeararslle>ftC*bi rthjrear") 

NoParSp.id • 
NoParSp_ln - " 
MoParsp^r 



NoParSpJbyeapa" " 
end if 

rsNcxt.close, ^.^^ 

'lust take olde&c child' , . 

aolO^''SCLECT person_1d, personJname, persofufrase, b1rth.j^ar «» 

- fro* Unks-T, person_t '*at_ 

- Owrt personl = ftnextjiame ft" *_ 

* and person? » person_1d ft- 

• «id relate like 

" order by birth_year" 

rsllext.open sqlCh. cnSearch 

if not rsi*ext.bof and not rsMext.oof then 

ltoPar<h.id -rsNextCpersoicid-) 

NoPa r<^1naBe«rsNextr porsofulnaM-) 

NoPa pChjfn«»rs»iextr personjftMKO") 

MoPar<hJbyear«rsHwtC"birttufe«r > 

else 

NoParCh_id =" - 
NoParOulnaMB-" " 
NoParCh_fna»e»" 
tMParOubyeara" * 
end tf 
rsNext. close 

sqlMatchAllK'SEUECT person_1d, perBon_ln*Be, persoqjfhame , birtitjrear 

" froM per»on_t "du _ . 

" where persoo-lnawe » - ftHoPar.lnas* ft &_ 

" and personJ^name - *" ftiioPar_pnaw ft" ft_ 

" and birth-year - «lloPar_byear A_ — 

" and persoruid <► *" «nextL.na«e ft"'" 'turns off selfHintching 

rsNatch.open sqliftitchall , cnSearch 

if not rsmatch.bof and not rsaatch.eof then 

'naybe shorten natch nana length to ignore any 2nd given nane 

Raspons* .write 'J^^*Pi</^ ^ 

Response .write Citable border aT1gn=center> > 

Response .write ''<capt1on>w\Tai RESULTWcaptionp*' 

Response .Write -^>REUTIOIi<rH>POeOII I£kTIWJIAHE^H>FNAIIE<<TH>eiRTH YEAR 



Response .Writ* "^nb^FlfrSELF" 
Response .Write •-<F0>*4Haxt^jttma 
Response .write -^"4MoPW_lnan« 
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MspMse .write ''tn^'Monr^ftmim 
Response .write -.iTO>-a«oPsr_|»year 

Response .write "-rfTUxnto-SPOUSt" 
Response .write --OOf-aitoPerSp-ld 
Response .write -xrD^'ftteParsp.lmwe 
Response .wH«e --<Tn>-«ltoP«rSp_ft»a«e 
Response .wHte -.^ro>"«ltoParspJ»year 

Response .write ~.^rR>^ra>CHILD* 

Response .wHte "•'^!i»toP«rOyid 

Response .write ••■flT)>''4lloParCh_ln«Me 

Response .write "'<nt>'moPhr^tnmM 

Response .write "^D>"A»ioParchJ>year 

Response .Write "<tr>^TIb-<8R>^T0>-<8R><fnx><BR>^ilb-«R> 

Response .**nte "-ORxrnwWTOI" 
Respwisa .write -^D>;&rs»tttrf»Cperson_1d ) 
Response .write "VTO'ArsMatchrpersofulnaBe J 
Response.wHte -<Tlfc."4rsM»td»rperwJwme"> 
Response.wri te ~<TD>"»rsMatch( blrth_year ) 




r8«ateh2.open sqiMatch, cnSearch 

if not rsl«atch2.bof and not rsMatch2.eof then 
do while not rsnatchZ.eof , ^ 

Response.wri te ''<^rR>^TD> &rsMatch2CR«1ate } 
Response.wHte "<n>~«rsltotcMC;P««"sofu1d"> ^ 
Response .write -.mto.-arsmtcMCperaon_]^Mne;> 
Response.wri te "<^:*»^tcMCpeMon„fTwi» > 
Response.wri te --flT)>-4rsitttch2rDlrttuy«ar^) 
- rsmtch2.niovencxt 
loop * relatives of mtch 
end If 

rsaatda.close 
end If 

Response.wHte (-</table>") 
rsmatch.close 

sq1lie3ttUpd»"Updote " ««tablel «_ 

" set processed = 'y*"*. 

- where person_id - «Mext^JiaM • 

cnSearch. Execute sqlKextUpd 

*te1w'irtBo'»act1ng - need to Just Tlit all relatives ttere i 
'sq1natchSp-"SELECr person.! d. Inwue, fhane, b1rth.jrear A_ 
•^frus UnkSLT, person_t "Ml. 

where personl nn " 4.. 

fSELKT person_ld 

Tro« p«rson_t 

where Inane - " «cPar_lnapie «u 

and fnarie = *" «i*oParj=nawe 
'- and blrttuyear - " anoParJiyear * ) ft_ 
'" and person2 - penorv-1d "4_ 

and relate « 'SX"'A. 
■■ and Inwie » fiWoParSp.lnane «i_ 

and fTume » *" 4woParSp.FfianeJi^ 

and b1rth_year = MoParSpJvyear «u 

order by birth_year" 

•p« rsoojri th_s«»a-Spoo»«-rivyvrper8on_1<r> 



•'below Is too tHcky, and not quite precise 
**-t«kes either a spouse or a child, but does not reqMlre both 
'tqlMatchO^'SEUECT per9on_1d, Inaew, fhane, birm_ycar aL. 
from 11nka_T. per5on..t "A. 
where personl in •* 4_ 
<SELKT pers(in_1d 
frow person^t "4, 
where Inane «a *" iiloPar^lnarie 4_ 
— 1 fnaMe - '** «ltoPar_Fna«e *_ 

ANoParJiyear 
V»d-*- 



and birtfuyear - ♦«op 
and penoS - peajPOr**** 
Mid {(relate - "SI-*- 



and Iname • «ltoParSp_1nB«e «t_ 

- end fhame - WoParSpJ^iaqie 

" and birth»year = 4MoParSpJ>year A ) &. 

or (relate = 'CX'"4_ 
"* and Inam » *" SMoParCh-lnane 

- and frauae » - ^Z^^^^^J^^J^ 

- and b1rttu.ycar - tttePardu^ar « ))•*- 
order by Mrthjfear" 

*salltttchSp-''SCL£iCT persofuid. Inane, fhane. blrtluyear "Ml, 
'^fnm llnks^T. person_t 
" where person! In " *_ 

CSELECT person-id 
••' from persofut 4- 

where^n«» » INoPmr.lna 



una fn«ie - «»ioPar.Fnane *. 

and birth_year a ** ANoPar^year *") *- 
•" and persons - person-id "4- 

and relate •» 'CX'"*- 
"* and Inoee s " MoParCh-lnm 4l. 

and fnano - *HoParauB»me JL . 

and birttuyear • 4iloPerCh_byear &_ 

order by birthj^aar- 

•peraonjrith-aw«-jchn<WrswwC"person_1<r> 
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'SEC IF PtRSOM WITH SAME SPOUSE IS EQUAL TO PtRSOW WITH SAME CHILO 



••—print out t*>e natch Results Jabla 

sat rsReport ° Serve r.CmteObjectCADOOB. Recordset ) 

•»tr5QLn--5ELKT • 
tree_t "tu 
I left(person_1d.9) ■ 

I Vf TREE^KWr 



* Response .write strSQLs 
'rsReport .open strSQLr, „ . . . . ^ 

cnSearch adopendynannc, adLockOptiRn sti c 
'Response .write -<P>«nDsp;</P>'* 
•Response .write ("<table border a1ign=center> ) 
•Response .Write *<caption>MATCH RESULT5</captiof©'" 
•Response. Write '•«TH>PERSOII IIKTH>UIAM£0>i>FNAM£<«Tt»BlRT>l YEAR" 



'get a new let of links 



*t» avoid endless loops and expansion ^- ^ ^ j ^ » ^« 

'theory - avoid getting any dups Into t2 - don't add any new nuBobers t» t2 that. are in tt or tl 

•SSmattJrplan- igrSre dups ^o t2 by reading in disdnet for each ne« Iteration and deleting all dups when done. 
*if rsRcport. stare « adstateOpen then rsReport .close 



• clean-up at end 
• ' cnSea rch . Execute "d rop t«bl <• AMStabl e2 
'cnSearch. Execute '"drop table "totablel 

sec rsCiit = nothing 
set rsNext o nothing 
set rsPUtch = nothing 
set rsNatchZ » nothing 
set rsschena = nothing 
set rsCreate « nothing 
•set rsReport • nothing 
set cnSearch - nothing 



Wre person_1d ->»'2S!?*''*5'2222?1" 
'and persor(_id <^ '" tamer A"»999' 



,LL 0U> DBSRC020.ASP OWE BELOW 

'Rtsponsc.wri te reqijest(-11ne_cnt") 
■Reiponse.WHte -start.persofuld-totart.persofUd 
1^ 



^r> 
<br>- 



<p>AnbEp:Vp> 

<a h^ef^^te)ccalel.a^p~>llo■e PaoeV«»- 

<r--Hits: <-3BrttC0unt.Hitsat"> 

•</body> 

</html> 
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<XOption Explicit ^ ^ ^ ^ • 

<l" linclude virtiHiln-corwon/adflvbi.Inc" ~> 

«wta WWE^'GENERATOR" Cont«n^*Mlcraioft Visual Studio (.0% 

<t1tl«>CALC0LATE DUPUCATIOW STATlSn«</ti tlo 
<ii3>CM.CULATE OUPaCATION STATlSTICSVhJ> 

Din owner 

learch. rsCint 



*sq1CnttJrHgue='*SELECr distinct 
Mrsea.'n«*, per«>ru.fif»«n» 
•* rrom p«r'son_t 



Din cnSearcht rsGnt 

Din sqICntAll, aqlOitUnlque, sqiGEDUNZQ 
Oi« coiint.a11. oount-unlquc. OitsedDUp 
Din sqIcedPar, cnt.i>arcnt5« sqlMoPar. QttlioPar 

own«rB'*0000000Ol'* 

sat cnMarch e s«rver.CreateObject<*ACOI)B.Oonnecrion'') 
cnSearch.Open "dbj" _ . ^ 

set rsOit o Server.CreateOb]ect("M)OOB.Recordsetrj 

sqlCntAlla'SELECT count (•) a» count_a11 "<u 
from pcrsoiuf 

rsCnt.Open sqlOitAll, cnSearch 

count_iill«P»Oit("eountjal 1 ") 
rsCnt.dose 

:='*SELECr distinct count (*) as oounC-imfque, 

_ I 

\ pcrson^t 

sqicntuni que-" SELECT countC^) as countLOinlqut 'Su 
" from (SELECT distinct 

• persoiv.1 nane . pepsorufnane 
•* fpom person_t) " 

where personal narae 
rsCht.Open sqicntuirlque. cnS«arch 
coimtJuniquearsGitC'count-unique") 
rsCnt.clos* 

•do nm CEDCOM stats ^ ^ ^ ^ 

sqlGEDUKXQ3'*SELECr ccuntC*) as CntGedDup fPO« ^ ^ 

- rsELECr dlftinct a.pcrsorulname, a.personjfriiflw 

- from peraorut as a, persotL-t as b "«u 

- where leftCa.persoruid.S) = ««mer&"-ft. 

- and left(b.persofuid,9) o «owncr^A"' 

• and a.persoiV-Tname o b.pcrsorulnarae 4_ 

• and a.pcrsoru.tT«we - b.personjfhiM > 

rsCnt.Open sqlCedVniq. cnScarch 

cntGedDupsricntCCntjSediXip'') 

rsont.clos* 



•a database wonder' Cas 1n, *1 wonder if It works?" - It does> 

'The procedure below can be used to ccxnpare the nui6cr of names without 

'parents In the new GGDOOM, with the ntnter of noes in the general <latabase 

'that match and have parents - this nay give us a clue how well the detail 

'matching night go* 

'loolc: 

*the Innemost layer Cselect and subselect) gets the people with no parents 
'In the GEOOOM . ^ . ^ 

•the next layttr our matches those mnca agoinst oil other rmes, ... 

'on the Inane and fnane fields, giving us the maxnnun possible natches that mght have parents. 

'the next layer out selects only those names that actually have parents. 

•the last layer out Is Just to count the rowlts. ^ ^ ^ ^ ^ 

'Silkier versions of the building block routines can be found In wsOlD and inOlS. 

sqlCedParai ** "A. 

"SELBCr GOuntC*) as cnt^rents 

- f n» 
" ^ 

" SELECT personl 

" from llnks^t "A. 

" where leftCrelate.U - 'p* 

H and personl in ft_ 

"SELECT b.parson_1d 
" f ran ( **^ 

" SELECT peraon_id. person^lname, ptrson^fnmitt b1rth_year 
" from penon_t "«u 

" where leftCperson-id,9) - •" downer A"' 

" and personal d not in ***_ 

■ (select personl fnn 11nks_t "4. 

- when 1eft<per«>n_id.9> = ^- Aowner 4-'"4_ 

- and left(reTat«.l> » P')"*- 
" order by personal d " 4_ 

* ) as a, person^C as b "«(_ 

- where left(b.person_id.9) o tower 
" and a.personJInane s b. per son.1 name ^ 
" and a.person.fhane » b.persoru'fnane **<t_ 

rsCnt.Open sqlGedPar, cnScarch 
cnt_parents=rsCntC'Cntj»a rents") 
rscnt.close 



'find nncs without parent links in (ZOOM, 
'use GO conpare with corresponding parents 
sqlNoPar* " 
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C;\patent\Modu1 es\ws015 » asp 



" SELECT countC*) as CntHoPaP from^,*- 

" CsELECT personal d, personal name *_ 

" frpm persorut ^ ^ 

" where persofu^d ™>t in Sl- 

" (select personl from links t «l- 

- where left(persoiv.id,9D = '** toimer & «_ 

- and leftCrelate.l) = •P')"«u 
* order by perswu^d &_ 

" ) - 

'cnsearch. Execute sqlMoPar 

•sqlChkcntt.**SELECr countC*) as HoParCnt 

- from - toitablel 
rsCnt.open sqlNoPar, cnSearch 
cntMoParferscntCCntNoPar") 
rsCnt.close 



set rsCnt = nothing 
'set rsNcxt = nothing 
'set rsMatch «» nothing 
'set rsMatch2 = nothing 
•set rsSchema = nothing 
•set rsCreate = nothing 
"Set rsReport = nothing 
set cnseatxh s nothing 

'update perso»>_t 
' set tagl = 0 

where person-id :=> '"towner &"00000* 
'and persoTuid <= Aowner &"99999'- 



u^L OLD OBSRG020.ASP CODE BELOW 



'Response .Write requestCHne^cnt*;) 

'Response .Write '•start-persorL.id^&start-person_id 

%> 

Total Records in Database <5fecount_anai> <8R> 

Total DISTINCT Records in Database <»=countuMmque3fixflR> 

Total Database Oups in New GedCO« <aferCntGedDupafcxBR> 

Total nwies In GEOOOM with no parents ^MfitNof>arXxBR> ^ ^ ^ ^« 

Total nanes In general database that could have matching parents <flfc:Cnt_parentsXxBR> 

<hr> 

<br> 

<br> 

-A 

%> 

<p>Anbsp;</p> 

<a href="tfelcomel-asp •>Home Fage</a> 
<! —Hi ts : <-3ftii tcount .Hi tsX"> 
</body> 
'^t»i1> 
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c:\vfa«no\>LiwniLi.p«c 



•bidhttill.prg crcatt HTML pages for Input to GENRBi server 



close tables a11 



•PR0JCCTJ>llfc=-C:\Vf=6EllA" 
* PAOJKT-NIW^'*0003.'' 

*N««JST5RTJ(Wai*=3001 MREIATIVE HUHBEIIIIG IS USED 

^!!S|5f&f*o!aMt.S001 «TKIS IS FOR THE -BUUUT NWES TWT ARE A0OB> R» UNKNOHM SPOUSES AND PAREKTS 

*NMIC_ENOLOVE11FUM»S999 
* WW£jgfTal?»S «A not uted in prttgran 

•? -enter Prolcct mmh^r or Wj^ 4 digits 
^accept "received ~ 




^ftcc^t "Enter Main Nane Range Beginning Murtber: 
♦nane^stafXjeain =va1 CpinaRie_startjaain) 
*acccpt " Enter Main Mane Range Ending i 
*naML.emtjBa1n aval(Bname_emtji>ai(0 

I Nunber: " to MMBa^tartJWerfncm 

Ljjverriow =w«iuwMw«_»i^"»-_v»V. ' . - ^ ^ 

*accept - En^r Overflew NMe Rmge Jn^ng i^Mbtri " to aranejendJDvernow 



^accept "Enter overflow Name Range Beginniru mxi 
^iweelstartLOverflaw =val Ojiia«e_start_0verflow) 
^accept " Enter Overflew iiane Range Ending ma 
«iMe!jendJ>verf1ow BvalOmanejendJOverflcw) 



♦use statsOOl Aft assumes you ere already In the right directory 

*pRO3ecrjlR"StatsD0i->pro5_jd1r ^ 

*««t directory to «project_dir ft& probably unnecessary, but do It anyway 

♦If »tats001->n«ne_cnt > nareeL-endLmain - sialinLStartJBBln +1 I _ 

* .or. «tat«001->sp*re_jcnt > oa»e_endLoverflow - najae_start_flverf1ow + 1 

«7 "NM«e lUH^ ARE NOTSUFFTCieNT TO FINISH THE PROCESS. " 

♦7 -YOU MAY NEED TO RE-ENTER OR RE-VERIFY THE PROPER NUMBER RANGES." 

♦RETURN 

♦ENDIF 

•use U CLEMl FILE USE 

NM«^ART.iMWL0MjaiRREffr-«MC3TARTJDV^^ 



PAGEJOfTi^ 
select 5 
use notesl alias notesl 
select A 

use famZ alias fanl 

!!$e*indiv2 alias indivl 
• 

select 2 
use hmll 

sefeet 1 

use testis alias testU 



•go 129 

•So r - 



fdille recnoO <IS9 
do ^ne .not. oofO 
•skip 
♦dlBplay 
♦? husb 

PACEjCin-=PAGEjCMT^l 
select 2 

append b1wk . _ 

tS^K9 fl With --ditti1>- 
append blMk 
r^lace fl with "^MEAOo" 

aopend blank . 

n^ace fl with '*.mTl£>GHXIM TO HTM. DATA a)NVERSIOHVTTn.E>" 

append blank 

rSlace fl with "VM«Dc^" 

SBBcnd b1 ank 

;^«ce fl with -^«body>" 



n^Tace^fl'wIth '*<tl2>«]C0M TD HTML OATA CDNVER5IOHs/H2>'' 
?Slace*^^^ttl -<HJ>QITER OATA INTO GCHEALOCIf REGISTKy INTERNET DArABASE</H3>'' 

append blank 



IpU^'^n'ilth -PACE NUMBER -^trCPAKSEJMT.S) 



rapU^^fTlrilti ''<FOM METHOPMWr A(CTIOIfc."+"'--rfntemetj«ldrBSS»"-+- i*-ft>nnl nwe-fon«l>- 

select 1 

H_i ndi v=" " 

pc rton..noBhuftb 

*aihusb:^sb 

♦Bwif^fe 

•ndMJSbfWwsbf 



•«wifeft:wifef 
*ia»rif«w»rtfe« 
•7 nhuah 

♦select a11 fnoei fllel where indiv - Mhusb 

entry„type»"HU* 

do htatll 

husb^ s ia.indiv UCAVimi FINAL HUSBAND NUMBER, RETUWED FMM PROCEDURE 

select 1 

nuindivfe— 
persofL J io J w ife 
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C: WfocnOXftLflHlMU. 
do litnll 

Wlf«^ « mJntflv AACAFTURE FINAL WFE NUBER. RCTUIUia) FROM fVOCEDURE 

selact I 

p« rson_no=liusbf 

do htali 

s«l«ct 1 
ptrson_ni>shustoi 

do htmli 

select 1 
personjM>=4iri ftf 



select 1 
p« rson.jM>=«ri fan 
entry_type="l*r 
do htwU 
••»♦»»♦♦•» 

select 1 
select 4 

loCAte for famna 
CHILO-OTM) 
x=l 

do Mhile x< 21 
if x<10 

strx=str(x.l> 
else 

strx=stKx,2> 

*»trTc=iH9htC00--wtPCx.2>,2) 
eodlf 
select 4 

■Chi Ids- Chi 1 tf->strx 
if AiBchild > 0 
person.j)0>4mchi 1 d 

«ntry_typ&-'*CH-+RIGIfrCOO-+l tHMCSTROC.2)) .2) 
aa LEUCNT-Oa lXL.OfT+1 

do ht»ll 
efMKf 

•raUo ttLOCAL CHILD UOOP 



select 2 
append blank 

r^»1actt n with ~<input type-text nMeaCHZUlLjaiT s1ze«3 va1u^**V"*-iri9htC''C»0''-»>1tHm(strCchild_cnt.3»,3}^'">'' 
••^sSTARr tMUOASE PROCESSING 
SELECT 4 UGCT F/MILY FILE LOCATED ABOVE 
ouaarr-datea fanljidate 
njarr-yearto fanl.oyear 
tCparrjouNii^ fvalcinnonth 
mjaz rr_days f ami .rnday 



'r.jSfiproxi^faad..tBBppr( 

ouRarr_piac=* faiA.npiac 
aura rr^laceXtffaaO. .nplacel 
oLJ»arr_pl ace2<^aBa. .m)l acc2 
flunarr-pl aceS^faHOL .npl ac«3 
Bunarr^pl ac«4e(nnil mi acc4 
mjnarr-dlv tfftna.div 
select 2 
append blank 

replace fl with "<flJt>MARiaAGE DATA" 
append blank 

replace fl with "<BR>-m>YEAR~MH— t30-APPRX— GEDOQM DftTt CD CITY C2)C0UMTr <?)STATE— -<4XDWrntV DJV^(/1T>" 

append blank 

replace fl with *'<BRx1nput t]^>e»text iuBe«arr_year s1z»>4 valii^"+"**'+ltPiaiCrtr1«&u»rr_year))+"'>" 
append blank 

replace i^ with *«inpiit typestext naaieBmarrjHMith sizes! va1u«a'<»"' V1tHnCrtHaOA.parr_piomli)>+-"'>** 
append blank 

replace fl with "<1nput typeatext mmesoBrr^y sl2e>2 valiJe-"+'**VltrtBiCrtri«Oru»rr_day))+"'>" 
append blank 

replace fl arith *'<inpirt typestext nameacarr^^pprox s1ze«3 value="+"'**+ltriia(rtr1aK«U»arr.jijvn>x))+'">" 
append blank 

replace -fl with "Kinput type*text namoearrjiiate sizsais va1ueB"-^'*"'-t1tHai(rtrittOiuBarr,jlate))-»-'">*' 
append blank 

replace fl with ''<1npift type«text nameNndty sizealS valiic«'^"*''-»1tHn<rtr1aCBURmrr_p1asaD>+-'">'' 
append blank 

replace fl with *<input typestext nanecaicounty sIzobIS valwN>~'»"*"4ltTl«Ki^«0iJnnr^lace2)>«-"*>'' 
append blank 

replace fl with "-dnput type-text nanw^nstate sIzbsIS Vft1ii»a~-f~* VlCri«CrtHaiCRunarr^lace3>}V'>" 
append blank 

replace fl with ••<1nput type=text mKM=ncountry size-lS walue»"-^"'"+ltr1aCrcri«(«_»arr_place4)>+"*>'* 
append blank 

replace fl with ''<1n|Nit type-text namMiKtlv size«l valuea"+"'"+1tri«Crtrim(Bunarr^v»+*'>^ 

*=«EIIO MAMIibGE PttOCESSINC 
select 2 
append blank 

replace fl with "•Ars^rxINFur TVPC-siterit va1iies%-"*suaHtT DATA TO CEHEALOGf RGClsnnr* V 1db«ubaia nHie-8itelt3>* 
append blank 

replace fl with "t/fon^' 
append blai^ 

replace fl with "Vbody>" 
append blank 

replace fl with "'c/htjal>" 
****** 

RMSe_FILEs"PAC"<*RZOrrC''00000''-»1 tHllCSTR(PASE.CMT . 5» , 55*" .HXlT 
STORE rtri«CPR03ECrjIIRW\"4«lfiE_FILE TO HTMU_PACS_FXLe 
*store ''c:\vfoen2\pag«QD02.lifiar to fhtaU 
*fhtBl«''c :\vf oen2\paoe0002 .htnT 

7 HTML^ACOILE 

set heading off 
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cs\vfbenty\MJ»"MU.PWG 



•«l«ct 2 

sat console on 
skip 



PMXaXlRE HTHLl 



if «ntrw_type = "HO" 
select 3 
append blank 

replace fl with "HUSaAMD- 



«fidif 

If tntry.type « 
select 2 
append blank 

Htplace fl with ••<BR>«FE" 
endlf ^ . 

If entry_typ« ■ hp 
select 2 

JSSJe^'frJrith ''<BR>MUSB«l» F«T1ICR- 

if entryjtype o "wr 
select 2 

append blank . 
raplace fl with •<flR>HUSB«K» WTMER" 
endif . .. 

if entrv_type = WF 
select 2 

append blank _ . 

pbpTace fl Wlt4» "<8R>WFCS FATMER" 
endlf 

If entry_type ■ %ir 
select 2 

append blank „„.^„_ 
rimlace fl with •<BR>«FE5 mother 
endi'f 

♦if S0BSTRC«ntry_type,l,2) » "CH** 
if entrY_typ« = "cmOI 
select 2 

SplSJe^frwIth --«R>M1MT CHIUIREM OF PAREKTS- 
cndif 

Er=entry_type 

if personjno >0 
select 3 

lSS5JStr!5SS5ol""5SaA7iyE nipberihc is used 

31S5i!S!3!S?Sit-SM »tms is rr the "blmuC names that are added for unkmow* spouses and parents 

*||MIEJSTART_fWERFLakUOIffUlElfr» 
•||AMEJEIBLflVaknjnbS999 

«.indivJbHndi«a.indiv + iWtJSTARTjiAlli - 1 
«nU ndliMtrCindi vl.indi V, S) 
■i_imM v-strOa-indiv^, S) 

■i_lfHHeBYndi vl .1 neM 
OTMReelndivl .fhane 
«L.tit1sindivl.titl 
iLjSCX»ind1vl.8ex 
^.refnsi ndi vl . rcfh 

■Obdatecdndl tfl .bdate 
lOiyearsi ndi vl . byear 
nJmnth-i ndi vl .fanonth 
nLjtfdayidndivl.bdav 
QL^approKsindi vl .bapprox 

«J>p1 aceindi vl.bplac 
«J)pl accl^l ndi vl .bpl acel 
i«_bplace2-{ntfi vl .bpl ac«2 
iUiplace3^mHvl.bp1ace3 
iO>pl«ce4^«Kvl.bp1ace4 

mjddate=i ndi vl . ddate 
in^eaw ndi vl , dyear 
iq.jlMnth3i ndivl.dtoonth 
ii«_dday3i ndi vl . dday 
quiJapprox=1 ndi vl . dapprox 

m_dp1 ac^ ndl Vl . dpi ac 
Rudplacclslndl vl.dpl acel 
«Cdp1aee2»1 ndiyl.dplace2 
at dpi ace3-1 ndi Vl. dplaceS 
sudpl ece4^ndi vl . dpl«ce4 

■LJxjrdate«i ndi vl . burdate 
nJ>uryear*1 ndi vl. bu ryear 
■i_bunaontt^i mti vl . bu rmonth 
njburday=^ndi vl .burday 
n.burapprDX>in^vi.burapprox 

^JiurplsoH ndi vl.burpi ac 
nJjurpl acel^i ndi vl , bu rpl ecel 
^.burpl ac«2=i ndi vl, burp! ace2 
mjMJrpI ace3«i ndi vl. burpl aceS 
oUiurpl acc4-i ndi vl . burpl Ace4 
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iCchrd«y=Hn*Hvl.chrday 
■jdirapproRolndivl.chrapprDx 

■.chrpUo^ndivl.ehrelac 

HjchrplaceZ-lndi vl.chrpl acel 

«jctirflace4-1nd1ifl.chip1ace4 



ELSE 
«nd1f 



BUtitl-"* 



m-refo»- 
■ijxtotea— 

nJ>«pprox=> 

njtfyean-"" 

nudopprcwa 

iHjdplaco"" 
nt-dplacBl--- 

nubupdate—"" 
■Lburyeara"!] 
in_bo n»nth=" " 

iOwapproK-"" 

■utNirpI seals'' 2 
■(.burplacaSa 
nJjurplaceJa'"' 
sLburplace^s"" 



njehnrear-'*!!^ 
■jdi fiRon tt^" 
fll.chrdayw*" 



nL.chrplBC»'*"^_ 
PLChrplacal-^. 

m_chrp1ac«3="" 



*iB-*plao»"" 
^auMatfts"* 

•iOurdata»~ 

•auchpplae- 

endif 

*bu11d PEftSOM 

If softsrR(antry_type.l,2> = "ch" ^ 
ItKLjawbar""" 

IfiS-HU- -OR .eT--Wl- -OR .SUBSTWCITT ,1. 1>-CH- 

Sl2e*'ft'l5lth -<br.-*kiOp«cin^-^m>«NREG ID HWeER— UBT IM«E— FIRST MD OnW WMES -SEX-REFEREIICEVTTV- 

oidif 

Su2e*'n"lilth -Ar>-*ki«Ln«b«r.-<inpiit typ-t«t n—ld-^*" v.lue-V--*1tH«CrtH-(K.1r«Hv)5+->- 
SpU^a^^fTtith -«np«t type-wxt n«e-ln«-*cr*- sizM val «•."♦- -*rtri»OCl 
SJlSe^'frtith -<1npiit type-text c»-fn«--»€T*- s1za.2Q VRlua-"*— +rcrteO^-fi«)+"•>- 
S5l^e**fl^^th -<input typa«taxt na»a-t1tT4€T+- slze-OO ya1ue-%" VltHBCrtrt»(flL.t1tl)V >- 
yguJe^fltrtth -<1nput type=Aext n«««-*€T^- size»l v.lue=V— ♦1tH»(rtH «(•_»«))+->•' 
Su2«*'fl^t* -<lnput typa-tcxt n«^r^"*cr+- .1«e=15 v.lue--*--*ltri»Crtri»<m.rafh»*^-»- 
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C!\VfoenO\BU»fTWl .PKfi_ 



If ET=-wr .0» . ETa"Hl" .OR .SUBSPKCT.! .2)=W 

SS?«**frSith -<br>^---YEAR--w--DO-«»«ot--CEDaw oAJz-'-Oicuy- <2>a)iir*iY C3)STATE C4)cowa»YVn>- 

J^c'^frSlth -<BRxtt>BIR</«x!nput type-text n««-byear--^Er+- siz«=4 v1*.e=-+-"*ltH«Crrrl»<W*y«iO>->- 
?^u2o'*ff 5lth -<1npot typmMit iiwe=l«onth-^^- .ire^ value-V"* V^t^1»<rtrlloC^U»w^th>H-•>- 
Sp1l^e^}^Sith -<input type^t nsaedrfay-^CT*- si«»2 value=V-Vltri«Crtri»CpUMlay)>->- 
S5f;Je'*«"^th -<««p«t typo^ n»B=l«pp«)t-4€r+- s1»=3 value-"*" •-♦ltrtaCrtri«0»U»appr«i)>*-->- 
?SlS«''fr^th -<inp«it type^t naae-bdato »1«=dS va1u<»=%--*UHm(rtriH<«JHlate)H->- 
;!5T2e**ntlth -cinput type-text naoe-bcity-^ET^" »1ie-U val«e.-*- -+nri»(rtH»<pU>placal)>- >" 
Jgl2a'*n"£lth -<1nput type^ext nan«=*a»mty-^+- s«e-lS v.1«e-V— +ltri»CrtriBaU)place2)>K->- 
S?^I?e*'fl^ tft -<input type=texc n«e=bstate-^*- s1ze-15 yaliie-V—*ltrt«Crtri«(BU>place3)H-*>" 
SSlI^e^fl^th -oiiput type-text n«e-bcountry-*CT*- .iz«=15 val»»-V— +ltri»(rtH«0n_bplace4)H->- 



If ET-"MF-.0R.ET-'*»l".0R.ET='1tfr.0R.CT-"»l 

RETUftM 
EKDIF 



JSglSe'^fltlth -<BRxtt>0«^ttxinput typ«.text r«»e-chryear'^*- size-4 value-"*- "^IrHmCrt H«<w-Chry«ar»->- 
JSl!Sa'*fr^th -<input typc=t«tt name-chnaonth-iCT*- aize^ value-V--%ltrtm(rtrinOn.x*rwmt*i))*-'>- 
SSlJa^'ff^th -<1nput rype^text name=chrd-y"*€r*- s1ze-2 value--*— *Uri«iCrtH»0«Jiirday))+" 
^ll^^^ff tith -<input type^text na»e=chrappn»x"rfr*- «ize-3 valuer-*— *ltri«Crtri«(«_chrapprox))*->- 
?gT!Se**f5"£lth -<lnput typa-text iM»e«chrdate-*Er*- v*lue«-*-'-*ltrimCrt:riii<iftjrfirdate»*-*>- 

JS?TS^e*'fl"^th -<input typc^text n»»e=chrdty"*er*" si«-l5 value-"*" '-+1 tri-CrtHinOiL.chrpl«»l))+-*>- 
S?lSe'*n"^th "-clnput type^text n™e=chrcounty-^£T*- sire^lS value--*--*ltri«Crtri«(N.chipl.ca2))*->- 
«?U^e'*ff iith -<«nput type»t«xt naae^rstate"^*" sl2e==15 v»lue="*— *ltHfl,Crtrim0a^rplace3))*->- 
Sf2€**«"iHth -<inpMt typo-text r««-chrco«ntry-*CT*" sHze-15 value=-+-"*1trt«Cptr1nC«.chrpl«:e4)V->- 
*««*** 

SS?e*'«"^th -<»R>^OEA</ttxinput type-text r«»e^ear-*Er*- .i«=4 v«lue="+-"*ltHnCrtr1a.<m.dyear5)*->- 
SpTSe*'fl"Sith -onput type=text name-dmonth-^ET*- size-2 valo^-*--*ltHB.(rcrl«.Oiuifc»cy,th))*->- 
;^e^fi"^th -<iiiput type-text r»ne=(«ay-+CT*- value-"*— *ltrimCrtrimO«_riday)>->- 

J^e^'fTiltt -<lnput type-text naneNJappm^r^*' wiz^ value--*— ^lrri»CrtH«0aJappr«O>->- 
SSSe^'nSlth --dnput type-text maae-ddate-^CT*- si»-15 value-"*— +1trim(rtna<m-ddate»->- 

?S?l^e**ntith -<«nput type-text n«e=drtty-*CT*" »ize«lS v.W*— *lt^ioCrtnmOn_dp^acel))*->- 
^Sl«•^n^th -<i«put type-text na«8-dcoonty-4€T+- sIm^S value."*— +ltr1mCrtrt»0a_rfplace2))*->- 
J^we^'ntlth ■<input type-text na«lstate-H*r*- riz^as value-"*— *ltr1«Crtrf«<^l ace3))*->- 
?S?TSo**n^th -<input type^tet r-me-deountry-^*- sia^S value--*— *ltrt«CrtrtiiO»ulplace45)*->- 



?5lSo**fl"5lth -^RxtoeORVttxInput type-text o««=buryear-*CT*- «ze»4 value."*— *ltrtmCrtr1«0aJxirY«r»->" 
Jg^SL^ff^th -<4np«t: type=texi: name-bunnonth-^CT*" s1a-2 value-V---*ltrt«<rtri«OaJHmaDnth)>*-->- 
^w'^fT^th -<<nput type=text nan*=burday-4CT*- size-? value-"*— ♦ltr1»Crtri«C«L>urday))*->- 
;gl22e'*friith ••<input type-text namft-burwn>K-*CT*" .1ze=3 v.lue^"*- -*Urii»CrtH»Oa_burapprDX»*->- 
?SlJ2«*'n"ilth -<1np*it type-text na»ne=tourtate-«T*- f1ze-l5 value--*— *ltri»(rtH«C«J>unUt«)>*->- 
;Sl^e**n"^th -<irTput type-text na«e-bun:ity-tT*- aize-dS value=-*-'-*ltHBKrtr1i»0«LJ)arplacel)>*-->- 
I^lSe*'fltlth -<4nput typi^text n»pe«burcounty-+ET*- slze^S value-"*— ■.ltriBi(rtrimOOxirplace2))*- 
SlSe^n'tlth -<1r»ut typ»»text n«ae=buratate-*Er*- »ize=15 value--*— *ltriwCrt rim<mJ»un>lace3))*->" 
Sl£e^ft"5ith -<1fq»it type-text ««-*ura)untry-*€T*- s1ze»lS value--*— ♦ltriai( rtri«iC«jHirplace4»*->" 



.noteiw. cent, note 

select S 
note_cn&=0 

locate for not«rt..1nd1v-person^ 

do Mhlle 1^1 ttloop til all are done 

If fiMindO 

notccnti^te^cnt*! 

if notejcnt > 8 
exit 

ondif 

llOirtghtC"00"*l tr1iiiCstrCnote_cnt,2)) .2) 
cunotes-mtesl . noto 
cowtene-fiotesl.noteno 
in_cont>=note«l.cofit 
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select 2 

Sl^e*'n"iith -<brx1nput type-text n«.«K,te.-+Er*lC*- si2*-eO v.1u-V— -MmmiCFUiote*H->- 

Miect S 

continue 
elM 

«x1t 
«rNHf 



♦if fwtflL.cnt > 0 
Ml«ct 7 

■TSl«i*fi irith -<input type=text n«nc^te-cnt"+Er+" .ize^ valu«=V- -«^9ht(-O00%^trtBCstr(note^t,2)).2)*- 
•cndlf 

» MTES PROCESSING 



•append blank U this Is just to nak« sure the last line gets Included. 

I?EKI?e'*ntith -<BRx1nput type-text nawe^x %in^S value=-*«lei.countfy*->- 

♦cndlf 

RETVRII 

BOPROC 

♦PROCEDURE MARRIAGE 
«.^ART MARRIAGE PROCESSING 

t!d*^iii®ii^«*b»tween children and parents and vice versa. Create links between spouses. 

4i ?hlii is oSfrS SreXfTtSS a dunny record for tha nrissing parson. An -overfloT nuriier 

IiL!5*i»SlI**t!\Kil?llAks should take car* of all Inrer^ene rational link needs. _^ 

-i$?iKlish^se Sue and links to them before you can bootstrap your «ay on up. 
^terrthTnSes and links all exist and aril! aiitp«atic*lly be connected) . . . . 

«wh*P.^*4rBarent:s are blank, there will be no family record for the«, and they can be ignored. 

taS2il'tlS?-tS r!S;ntt needed on tte fbnw for »iy data processinB purpose, but 

♦only toshow the reader the reUtlonships. They could be dispensed with. 
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?*JtSS^SS of page oi«ber» - um to txncutt d*ta Input 



clow tables all 

•PROJECT j)iiu;^c:\VPGEiiJ\" 

^^SSStSctS^^i «»EiAnvE mmberuw is used 

VSStSSMuS^SM-iOOi Mmas is for the 'Bumr mms tmt me added rmi UNmoHN sitwses and iwRBfrs 

•1iWCJENDj0tfERFUM-S999 

PAGE_CffT-0 
«S«l«ct 5 

«uM c:\vfocn2\nDtes2 alias notes! 
*8«1ect 4 

•uw c:\vf gen2\f«a alias fail 

we'ln^v2 alias Indivl 
• 

select 2 
use hitmll 



2?«ct 1 

use tesUI alias testl3 



select 2 

appervd blank 

replace fl «rtth ■-<htJnl>" 

append blank 

rie^Bce fl with --<HEAIte.- 

5SlS2«**«*ilth -^Tl£>GHXMM TO HOiL DATA COIWERSIOH - SLMHWir P«iE«/rmE»- 
append blank 

replace fl irith "Vheao" 

append blank 

replace fl with -<body>" 

?SpUM*'ntith •'<H2XXOCXM TO MTW- WTA CONVERSION - SUMWWT PAC€</h2>" 

?5u?e^n'1rith "<M3>EHTCR DATA IMTO GENEALDCT REfilSTRV llfTERHCT aATABASE</H3>" 

*S^Se'*«"ilth -P*GE NUMBER HUSBAND IN FAMILY- 

*append blank 

♦replace fl with -<R)RM >" 

SELeCT 2 

{SScE^rtWTM "^ABLE aORDER><CAPTION>HTML PMSL NUMBERS R3R HEAP OF FMOLY</CAPaON>" 

RWuEE^rt*wrT« --aM>P*Se<TM>SURI»ME<nb'FlRST NAPC^OIMIRni YEAR<TH>ID NIMBER- 
♦ n^^^— — --— 

select 1 
♦qo 129 

*do while recnoO <139 

do wMle .not. ecfO 

•skip 

♦display 

•? husb 

PA5EJCIIT=FiftGE_On'*l 

♦select 2 
♦append blank 

♦fSlSJ n SiS "2^'tSfSl^^iSfo£^;-V/Ko™ na«ft»n*l>- 

select 1 

ii.lndiv*'- 

persoiuio^sb 

hu9h^ - m_1«Hv CKAPVURE FIMAL HUSBAND NUPBER, RCFURNED FROI PROCEDWE 

select 1 

skip 

enddo 

•_^TARr MRRIAGE PROCESSINO 

♦SEUECT 4 M6ET FMOLY FILE LOCATED ABOVE 

select 2 

•SplMs^fTiith "<brxbnxiMivr TVPE»subiit valu€=-+-SUBMrT DATA TO iZNEALOGV REmSTRY" V" Id^siMtl naiwsuhnfita>- 

♦?SSlace^w1th 'Kinput typcatext *1»«1S value.-+-t»tal p«* VltniBCrtHciO«-refn>>+"'>" 
append blank 

replace n with -</TAaLl»>- 
append blank^^ . ^ ^ . 
r^lace «. with •Vbody>" 
append blank , ^ 

replace fl with "</htjnl>- 

♦PACE_F1LE^'PAG"4MGMTC«»00*'+1«^'^«»CS1RC*'*«-Pir. 5)) , S)+" .HTVT 
page_fnc* "SiJNHPAGE.Hm'* 

STORE rtHB<PR0JECTJIIR3*-\--rt'AGE_FlL£ TO HTMLJWfiEJFILE 

•store "c :\vf gen2\pB9eO0O2 -htm" to fhtmll 
♦fhtnl e**c :\vfoen2\p8oe0002 .liln 

set heading off 
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c ; \vf B«nO\BUHnKL3 . pro 

select 2 

set console off 

list off to file 1«™lJ»ACC^LE 
set console on 

dost tables all 

■- I — I — — 

PROCEDWtE HfHLl 
if^cncrj.type - "HU" 
•append blank 

•replace fl with "musbmo*' 
cndlf 

Er-cntry.type 



If per3on_no >0 
select 3 ^ 

locate -ftp 1nd1v«=p«r9on_no 

niAMEJSTARTJVaM^l ftftRELATlVE HUNBERIHG IS USED 

^1S^::SSkt5!^rSS»=5001 UmaS IS FOR THE -BLMK- NMES THAT ME MXXD PW IMKNMM SPOUSES M» IWEJnS 

*»«Mt_STAJrrjC3VERFL0»<_ajRREllT= 

niAMEJEMOLPVCRFUW-S 999 

«_indivJfcrfndi^.in<Hv ♦ imM-STARTjwIN - 1 
«1- Indiv^rOndlvl.lndlv, S) 
iCrnd1v-strCp.1m»v_A. S) 

^.Inmeaindivl.lnaw 
«_f)nane>1 mH vl . f nane 
•ni_t1 tl ^ ndi vl . n t1 
•iii_seM>1 ndl vL . sex 
•iii.refn*i ndl vl . refVi 

Jbdate-1 ndl vl . bdace 
lyearal ndi vl . byear 



.^ay*1nd1Vl.bc_, 
«Mj>approxwl ndl vl .1 

else 

If entry typea"MU" .or- entry_type-'Vi" 

Ondi v=«tr(m_1 ndi v_* . SJ 
ELSE 

m_ln 



«_t1tl- 



•jrefri""" 

*HLj»datesi— 
n3year<i"~ 



eiMHf 

•build PERSON 



SELECT 2 

append blank 



REPUCE Fl MITN FlA+O^+flC 



•replace fl with *<mxA HiiErki--HTOJECr_DIR*-PAC-+RIOfT(-00000"H.Tra(stKP#6E_^ 



*Mbsp;«nbsp: '*4-ltrtBCrcrlii<NJ>yezr)} 



•dl"lni'lll!k"bettieen children and parents and vice ve«a. Create link* b€ti«cn «PO»»"- _ . ^ . ^ 
♦S there Is only one parent, then create a Ammf record for the ailssing person. An overfloir nunber 

^iheS*J«^t*w*cGil5*11iiks should take care of all intsrgeneiatlonal link nee ds 

•CoSy ff ^ 1« Boing up the chain frae the bottm do ^ links to parents beom a pmblan - you Mist 
•ertibllsh those Soeana links to the. before you can bootstrap y«irwy on up. 
•Here the nnes and links all exist and will autnnatically be cxnnected) ^ _ ^ . . 

•KJe bSth^eSS areblank. there will be no f«i1lY record for ttma. and they can be.lgnored. 
•5S^2Sd" and sfife's parents are not needed on the ™;.*o"«Jf»:,««y pmcessing p«niose. but 
•only to sho« the reader the celationahlps. They could be dispensed with. 
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C; \Vf Q«iO\»LC*CEV01 . PRG 



•^cniaS^kJy'fiU to coordinate creation of httil Irput pages 
♦if laZ 

dose tables all 
select 1 

u&e faail alias fma 

select 2 ... 

use indivl alias indivl 

*se1ect 3 - 

•use c:Vvfgen2\fnel alias filel 

select faiil.fai.io. f«l.husb. f«a.w1fe. Indlvl.lnwe as hlnaw, Indlvl-ftwro as hftiaae. Indivl.bdate as hbdate. indiwl.fwic as hfamc; 
frwB fBDO. left outer join Indivl; 
on fMl.husbiHmiivl.indiv ; 
into table testl 

•close tables all 

•select c:\vfiBenl\tesU alias cestl 

select testl.f-mo. testl.husb, testl.wife, tesU.hlnane. tcstl.hfium. t^stl.hbdate. testl.hf-*:. ; 
fMtl.husb as husbf. faml.aif^ as husfan; 
from testl left join faml; 
on testl. hf»iC«*f«a.fawio ; 
Into table test2 

^^rf«il.f«no. f«a.husb. faml.wlfe. indivl.lname as .Inane, indivl.fhame as srfhame. Indivl.bdate as wbdate. 1nd1vl.fa«c as wfanc; 
from f»l left outer loin Indivl; 
on fanl.wlfosindivl.lndiv ; 
into table testU 

•close tables all 

•select c;\vftoenl\testl alias testl 

select testU.fanno, testU.husb. tsestll.wlfe, ustll.wlnMe. testU.wfitwme. testll.iibdate, ttstll.wfmc,; 
fml.husb as irifef , faml-wilfe as wifew; 
from tesdl left join fml; 
on t«sm.wfaac=fanl.faiino ; 
into t^lc testlZ 



S!S2!SBlSt%est2.husb, ttst2.w1fe. testl.hlnwe. test2.hftu«e. testt-hbdate, test2.hft«c.j 

JSui'SlSierjSiS!!^. testU.-Klate. testa2.-f«c.; 
testis .wifef, testl? .wif em; 
froB te5t2 left join tescl2; 
on test2.fa«no-te$tl2.fanno ; 



;"r5Sr'b5'?eiS!i?iai^. testl.hbdat.. te.t2.hfn-.e 



•endif 



close tables all 
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C;\vfqenO\BROWSER.PRG . 



• browser.prg - created to let people browse their files on the client machines 
close tables all 

f -you^may'browe the following files:- 
? "Or enter EXIT to exit prooram 
? "gedcora2. indivl. indiv2, fml, fam2 
? *'notesl. noteextl, Icrosreg, fcrosrcf 
7 "testis, statsOOl^* 

accept "Give name of file to browse: " to f 

if upper(f)=*'EXrT'* 

exit 

endif 

use &f 

browse 

enddo 

close tables all 

*'gedcoro2 . 

♦?ndivl 

♦indiv2 

♦faml 

♦fam2 

*notesl 

*noteextl 

♦icrosreg 

♦fcrosrer 

♦testis 

♦statsOOl 



♦? "gedcom2, indivl, indiv2. fana, f«n2 
♦? -notesl, noteextl, icrosreg, fcrosref 
♦? "testis. StatsOOl* 
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Ci\vfqeno\KWO..PW6 _ 

* fail.prg 

• convert GEDCXM » "Mle^fcrwjt 

♦ 3i»t the faorily/cWld part of f*"^ 
*J/W/97 Mnt Huff 
close tables ell 
select 1 
use ftKL 
zap 

select 2 
use gedcomZ 
alflslenCfl) 



ff tl!bl?r(n?i.S=-0-.and.atr -,«ibstr(fl.7.1S)>>0 

mcMldidx-O 

select 1 

eppend blank 

select^2 

SSS"? ! substrCn .■a+l,wl fl-iat-lp-Hnl 

replace fanno with nfimio 

select 2 

skip 

SiSJ F-f :SLtrfn ,rsl-^l,«in;;aa-l>5^ 
B*)usb<^al CsubstrCfl,ail-^2,ai2-nd-2)) 
•display RCfKiry 
•wait 

select 1 ^ ^ ^ 

replace HUSB with NWSB 

select 2 

skip 

loop 

endTf 

if substr(fl.l.l>"l'.and. $ubstKfl,3,4)=-wlFr 

SSlS"? 'S»tr(fl^*l»«lfl-*l-l5 
!irif ml istd)st:r<fl*nil<^2 .n2-Wl-2)) 

replace wif* with nrlfe 
select 2 
skip 
loop 
emHf 

if subs"trCfl»l.lD="l"."«*-awb**»'<^»'t'>"""*^ 
ffldi v»substr(fl ,7 , 1) 
select 1 

resUce dfv with ndiv 
select 2 
skip 
endlf 

if subatrCtl.l,l)=''l".and. substrCfU .4>=~oaL- 
I!Stpf iSbstrffl , na+1 fl-«a-p)*flfl. 
«Khil^alC»ubstrCfl,ii>l+2.ii2-«l-23) 

ochildiebwnchildidx+l <dr increnwnt child cowitcr 
if fochildidx > 20 ^ 
wait -over twenfty children 
efMiif 

if mchildidx < 10 
»chil*l«-child''+str<«childidbc.l) 
nsl Qcata* si gc'-Mt rCpncM 1 di dn » 1) 
2l£SL-Ilocdate:iSr<-childiAt,W 
■slStn-"sl9Ctts?i-*strOBchildndx,l3 

I2hildpl-''ch11d-*str0>ch11didx,2) Aft field lume childl. ..ehildZO 
■wl9Ccns"»l9C-*»tr<pichndiAtj2) 
■sl?cdn--5l gcdace-*«trtachildi 
«j^tn--sl gct«j|)"+atrOnchil di (lx.2) 

select 1. 

replace 4mcM^dp^ with nchil 
select 2 

''''i*£S^?ckH^!2)*'^* 

•sefS"!***^ * * ^ , 
^replace taslgccn with mslgc 
select 2 
skip 

i!r*lSbstrCfl,ia)=-3' .and.siJbstrCfl.3.4)»-OATE- 

nsl acd=subs t r(fl .8 • 15) 

♦select 1 . ^ 

♦replace teslgcdn with onl god 

select 2 

Skip 

1f'sIbstr(fl.lil>»-3-.afid. «ibstr<fl.3.4)-'™p- 
«islact9=substrCTl, 8.15} 
•select 1 ^ , 
•replace teslgctn with aslgct 
select 2 



us 2002/0032687 Al Mar. 14, 2002 

240 



Ct\vfa«n»\Bi»ia.nis 



fkiD 

If s4jbstrCfI.l.l)e*'2".«nd. 5ubstr<fl.3,4>»-nATr 



if substrCfl.l.Uo"!*' - and. fubitrCn. 3.4>-"iiwi' 

sub»trCfl,l.l)>"l' 
"^".««" 
. . ,1S) 

select 1 

replace mebte iri th nendate 
•mmoBii^tm refennat routine experiflMn^Mi 
^mandate Is Input parameter to date^chop routine 

ndaceyears**** 
ndatedays**" 
oKia t eapp rox^" * 

00 DATEjCHOP INPUT PARM IS MEKOATE 

replace myear wit^ mdateyear 
replace nmonth with nmonthno 
replace mday intii oMdateda/ 
replace napprox witfi adateapprex 
■ I date refbmat routlna experlmi 



lOQp 

endif 

If »ul)itrCfl.l.i)«="2''.»nd. subctrCfa .3,4>="PtAC~ 
nenpl ac^subst rCfl , B . SO) 
select 1 

replace mplac «dth memplac 

*==p1ace rerfarwat ^.^. j- ' Miia^w:^^ ^. 

aplacpartl*"**- 

aplaqpar^""" 

iap1aqpart3s"** 

BRpI acpart4='"* 

DO PLACE_CHOP UrlNPirT PARN IS MEMPLAC 

replace nplacel with laplacpartl 
replace nplace? witfi mplacpartZ 
replace iipl«ce3 with iq>lacpart3 
replace mplace4 with i«placpBrt4 



select 2 
skip 
loop 
endTf 
enddo 
endif 



If Sllb5tP(fl.l,l)e"l''.*nd. SUb»trCfl,3.4)B-|IOTE" 

select 2 

skip 

loop 
cndTf 



If substr(fL.l,D*i"2'*.and. substrCfl,3,4)-"COirr 

select 2 

skip 

loop 
endif 



if substrC«..aa^"*l"'.and. «ubstr<fl, J.4)--SLCS- 
lM? gssSubstrCfLt 8. 10^ 
^select 1 

^replace si qs with nalgs 

select 2 

skip 

If 6ubstr(fl,l,l)--2".and.sUbstr(fll.3,4>«'Wr 
nst ^sdate=substrCfl • a , IS) 

* replace slgsdate with mslgsdate 
select 2 

endif 

if SMbstr(fl.l,l>"2".and.5v*$trCfl,3,4). 
nsl ^stORpBSUbstrCfl.a .15) 

•replace slgstenp with mslgstcnp 

select 2 
skip 
endif 

loop 
endif 



if «ubstrf«.,l,l)»"2"-«nd. substrCfl.3,4)»'*C0irr* 

select 2 

skip 

loop 
endif 



enddo Aft >0 
else 

select 2 

skip 
endif 
enddo &&1 



close tables all 
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C;VVfcanOVBAWl.PttG 



♦^«iid>f refbnnat routine < 



*m(late<Uys"" 

♦if bdate o ftp3C«C30> 
If .not. i>b1anfc(iMind«te) Mras mdate 
ndatcrtHm=rtrin(«aad&te) Aawaa ndate 
if lenCwtetertHBi)>3 SA try to grab year ^ , 

if .not. is*lphaCs«»)»trC«datertrim.len<^t»rtH«);3.« .mnd.; 
•not. 1*alphafsub»tpCndatertriii,1enO*tatertninV24 -and.; 
.not. iMlphaCwAstrfndatertinwJenfiwUtBrtino)-!.!)^ .and.; 
.not. lMlpha(sub»tP0adat«rtrtnJ«i(iid;tjrtnn)-O.»^ 
■d«teye«Mi£str0ndatertHni.1«n0MUitertHii)-3.4) Ufound year, x hope 
endir 
«nd1f 

iidat«ltrii»=ltrimCnBMUte) 

■idat€lcut»«1tHinOaemdate) 44 two fields start even 
if l«nCflidateltr1ra)>3 ftfr look for the approjdiMting prefix 
if «*strOndateltr1m,1.3J="BEr .or.; 

sutotrCwfatel trim , 1 , 3)a' AFT* .or.; 

tubstrprtbteltrlw , 1 , 35="Aar; 

Sl?S5SSi!S3bSK2dS"ti^i^.lenW^ » if find, shift left 

endif 
endif 

If lenAMUte1cut)< lenCmdateUHn) tttake the shortest one for further use 

mdateiJMatelcut 

else 

mdateLS^ateltrim 
endif 

nidateL4^ateL3 8A two fields start even 

^M*?^St!*lii?i*Ia<substrC«idateLS,l.l)) .and. substr<iKlateL3.2.1)=- " 
mdareday^*'0''«stifasrrOndateL3.1,l> Msingle dioit day, I hope 
indateL4=l t HmCsub str(j»dateL3 . 2 » 1 enOndateU) -1>5 

If'^^rwt. isalpbaCsubstrOndateLS.X.l)) -and- .not. isalphaCsubstrODdateL3,2.1)): 
.and. sub*trCindatcL3,3,l)=" *' 

mdateday=sub$trOiidateL3.1.2) «ftdouble digit day, 1 hope 
mdateL4=l trimCsub»tr0odateL3 . 3 .len(ndateL3)-2» 
endif 
endif 

if 1en<nMlateL4>< lenOndateLS) 

iMlateL5«ndatcL4 

e1t« 

nKj«teLSi«)dateL3 
endif 

^if'ilalphaCsuJstrOndateLS.l.l)) .end. isa1phaCsubstrCndeteL5.2»l)) I 

i!Siihi2S*5^C^i'lS2cl^^^?nt< atCwrCsul«trC«lat.lS.1.35).««rthlist) /3> *1.2)).2) 
endif 
endif 

•ndif &ft end date refonnat routine - skip If date is blank 

♦replace byear with tadateyear 
•replace fcmonth with nanonthno 
•replace bday with mdateday 
♦replace bapprox with mdateapprox 



»i ■ date refomat routine experiment 
*eansp1ace refvma^n 
PROCEDURE PLACejOOP 
•bplacpartl^'"* 
•in)1acpart2*"" 
«|«placpart3s"* 
*i8|)la£part4o*"* 



BictMi»ia3=0 

♦strategy - march across from comia to coania. adding incroaents of length checked 

If .not. isblankOmnplac) 

♦lenCpplac) 

mpl acrfe»rtriwOjiempl ec) 
Btconnal^tC t '.aipl«crti> 
if ncoanal > 0 

ttol acpartl^sub8tr(np I ac rt . 1 ,nco(nnal-l) 

iSoniiia2-at(" ,5ubstr<Bp1 acrt.mcofrnal+l JenOnplacrt)-mcorinaX)) ttrtwcomnal 

if w w-mnk i? > 0 

i«lacpart2«ftUbstrCirplacrt,aicocinal*l»motJBia2-l) 

naaiu^:«t (~ , " , substrCnplacrt .■«»wal-«BceoiBa2-fl, 1 enOnpl acrt>Hacoina2-«icainal)) 4iSpMicoana2 
if mcoomaS > 0 

Dpl acpart3x>subs trCnpl acrt ,incannal4«iconma2-»'l .aiceMna3-l) 
♦7^1 enC«f)l acrt)"+«trClenCF?»l ac rt) , 3> 
*7 **nxxaBia3="-tstr0ncon»a3'««KxiiiBa2'Miicaonal.3) 
♦wait 

1f lenCnplacrt)>mconna3-KncoinBa2'Hncamal , ^ , 

ml acpart4=sub&tr(Malacrt,mcoiiwal^tt C Ouii M 2-wa«Miiia3i-l, lenCByl acrt>-i 
*7 "inplacpart4a'*-Hnpiacpart4 
•wait 

endif t& pmrtA 
else 

if lenCa)plecrt)>iiicoinBa2-Hnconnal 

nplacpartSssubst rCiul acrt ,mcoiniial«acoBina2-fl , Icn 0Bplacrt>HRCDana2-ncoaRal) 
endif^ 
endif Ut part3 
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else 6Smconiiia2 > 0 
if l€nOnpl«crt)>incont«al , , , % 

mpl acpapt2asubstr(inpl acrt .mconnmal+l, 1 enOnpl acrtj-mcownalj 

endif 
endlf part2 

else ^ ^ - 

wpl acpartlasubst r(mp1 acrt » 1 , 1 en Cmpl ac rt)) 

endlf &&partl 
endif ttend of place check 
♦if isblank0nplacpart4) 
♦mplacpart4="usA- 
*cndif 

♦replace bplacel with mplacpartl 
♦replace bplace2 with mplacpartZ 
♦replace bp1ace3 with mplacpart3 
♦replace bplace4 with fnplacpart4 
RETURN 
ENDPROC 
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* 9/27/99 - new version for Gcnlteg - drop the ttnp^t »tuff 

* and expand other , ^ ^ 

* convert CHXDM to dbtM «!• fonnat 
*3/29/97 Kent Huff 

close tables all 

select 3 
use notesl 
zap 

gelect 1 
use indlvl 
zap 

select 2 
use gedcaiZ 
ulfl^lenCfl) 

do Wille -not. eofO ^„ . . _ - 

if substrCfl.lil)-"0".«nd-»t< IWI ",»ubstr<n,7,lS))>0 

select 1 

append blank 

select 2 

nlrttCV^iflO 

nZ-atCVj 5*i5trCfl,i«l+l,nilfl-«il-l))-t«l 

orindl wsval Csubstr(fi,ail<*-2 .■2hii1-2)> 

select 1 . . . 

rwlace indiv with nrindlw 

select 2 

sMp 

mnotecnt^ 

do idiile substrCfl.l.l^*;©" J^^,^ , 

if si*str(fl,l.l)=*a*-and. substrCfl.3.4>»-|««r 

■n2«etrr IsubstKf 

nl naisfrssUbstrCfl.isnl^l ♦«ri2 -nnl-l) 

nfn«»eBSUbstrCfl.S.nnl-ft> ^^mss -9 

*di splay memory 

•wait 

select 1 

replace Inam iMitli nTnaaie 

SI ace f^ame with mniaim 
ect 2 
skip 
loop 

endir 

*added to ^al with SDGDM 5.S with Its dVN and sui 

* just skip then at this point. 10/7/99 
if^substrCfl »1.U="2" .and . siAstrC-P1.3.45-"CIVM- 

sklp 

1?*^strCfl ,1,15*"2" -an**- substr(fil,3 ,4)»"SURM" 
sidp 
loop 

endlf 

*el5e 

* wait • Stop - name error 
•else 

If «Jbitr<n,X,l)«=T'.«nd. substK1^.3,3)="SEX- 

lBS«JI!:M^StrCfl ,7,1) 
select 1 

replace ftex trtth ns«x 
select 2 

skip 

■nd1$ 



• Must use «i inner loop here because there are duplicate OKTE and PUC \ 

* for birth, chHstenlng. death, and burial 

if substr<fl.l.l)»"l*' s«bstr<fl,3,4>"BiRT** 
skip 

do ihile sub5tK«.l,l)>"l" _ 

If sUbstr(fl,l.l)-'*2**.«nd. substr<fj., 3 ,4)- OWE 

mdatep-stibstrCfl • S i M) 

select 1 

replace bda.te with mdate ^ 

• d a te refonnat routine ejcpeH H ii Liit i ■ 

*iadate is input paraMeter to date_chop routine 



mdateyeat^" 
ndatedayat"* 
mdateapproxa*** 

00 OWTEJCHOP M INPUT PMW IS MDATE 

replace byear with mdateyear 
replace bnonth with Mmonthno 
replace bday with mdateday 
rralace bapprax with ndateapprax 
* date refomat routine expertnenQ=» 
select 2 
skip 
loop 
endir 

if si*strCfl.l.l>«"2-.and. «ubBtrCfl,3,4)«-Pl^ 
a«>l acssubs t r<fl , 8 , fiO) 
select 1 

replace bplac with irp'»c 

*■ ■ n- place Pefonpato i :s s^^b=s 

■placpartls"'' 
nplacpart^*"** 
»placpart3«;- 
■Dlacpart4«* 

00 PIACEJCHOP AfilNIVr PARK IS MPLAC 
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replace bpltcel with wplacparU 
replace bpUce2 witfi ifilacpara 
replace tolaceJ irtA eiilacparU 
replace bplKe« irfdi vplacpart^ 

■elect 2 

endlf 

cnddo Mend of birth loop 
efidlf 

If •ubltrcSIia)"'*!" • »ub»t rCfll, 3 . 3)=-0«* 
skip 

do »u!>»trCfia.l)>"l" ^ , 

If «ib»tKfl.l«i>=^ siAetrCfl.J.*^-!^^- 

iiidate»»ibstr(fL.8.aO) 

•elect 1 

replace chrdate with ndatx 
*ssssdate refonnat routine expenMefifc= 



■dateyear*'*" 
ndatedays*"* 
ladatespproxs 

DO mteIchop u input pam is mqntc 

replace chrycar with mdateyear 
replace chraooth irith unoirthno 
replace chrday wlth.eidateday 
replace chrapprox with ndateapprax 
^— ! refbre ia r — 



lat routine ex| 

Miect 2 
skip 

loop 

If sub«r<fl,l,l)="2'* suh4tr(fl.3,4)ss-PWC" 
R^l ac=substrCf 1 ,8 . 80> 
select 1 

replace chrplac with mplac 

♦caasplace reforeiat kj i ■ ■ 

nplacpartLa"" 

iiVlacpBrt2»'"' 

nplacpftPtBo"" 

inplacpart4»"" 

00 Ptact-CHOP MiHPtn- farm is wlac 

replace chrplacel with nplacpartl 
replace chrplace2 wlA qiplacpar^ 
replace chrp1ace3 erith nplacpar^ 
replace chrp1*c*4 with mplacpart* 

select 2 
skip 

endff 



endlf 

♦ 

• 

* 

♦ oust use an inner loop here because there are duplicate OATt and PtAC tags 

♦ for birth, christwiiog. death, and burial 

If 5UbstrCfl,l,l)-"l".and. Sii>Str<fl,3,4>- OE«r 
>k1p 

do lAile substrCfl,l.l)> 1 ^ . « — 

if »ub»tr(«,lil)--2-.and. sub5trCfl.3.<)-"QATE" 
B^tessubstrCrl.8 . 30> 
select 1 . 
replace dd&te with odate 

late refbnut routine cxperinen^-Bi 



■NtateyeaP"]^' 



DO fWTEjCNOP U INPUT P*RM IS l«*TE 

replace dyear with mdateyear 
replace dnonth with leaonthno 
replace dday with wdateday 
replace divprox with oMtateapprox 

• date refonnat rvutlne experi ment 
select 2 

skip 

ISSf 

If substr(fl.l.l)=-2".and. substrCfl.l.Os'PUC" 
■pl ac-substrCt 1 , 8 » 80) 
select 1 

replace dplac with npiac 

* place refon nat-. 
wplacpartls"" 
eplacpartZ**" 
nplacpartSa"* 
mplacpart^s'**' 

(DO PLACE_0«P a&THPUT PARH IS MPLAC 

replace dpiacel with nplacpart^ 
replace dp1ace2 with nvl«cinrt2 
rulace dpIaceS with nplacpartl 
replace dp1a£e4 with nplacpartl 



select 2 
skip 
loop 
endif 
enddo 
endlf 
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if sul»trCfl,l,15-"X".and. substKn.l.^V^BURI* 
skip 

d6 while «ubatr<fl,l,l^>"l" 

if aub»tr(fl. 1^1)3*2* .And. substr(fl.3.4>>*IMTE" 
■date-ftubstrCfl , S . 30> 
select 1 

replece faurdate with ndatc 

' ' refbrmtt routine mpert iotno ■ 



latcyun 
latcdays' 



iwt--" 

00 DMvtjcMar 4A imput mm is mmte 

rvplaca buryear with mdateyvar 
replace b uf wo n th with ranonttmo 
replace burday with mdateday 
replace burapprox with ndatcapp nox 
•ea«datc reroraat routine experinent^ss 
select 2 
skip 

S^Itstr(fl.l»l>"2-.«nd. iubstr(fl,3.4)=-PlAC" 
npl ac»siibstrCfi . 8 , ao) 
select 1 

replace burplac with ntplac 
•^s^lace reforeat>«-~*"^^^«""»^^^» 
mplacpartl**"* 
nplacpartSB"** 
mplacpartls"'* 
npl acpa rt4*'* ** 

DO PUICE.CHOP aUNPUr PARM IS MPLMC 

replace burplacel with aplacpartl 
replace burp1ece2 witit nplacpartl 
replace burpleceS with ivlacpartl 
replace burp1ace4 with ■placpartsi 



select 2 
skip 



-10/7/99 - SKIP "CHAWGEO" DATE AMD TIME 

:fi.i.i)="i- ' ^ ^ 



if substr<fl.l.l)="l".and. substrCfl,3,4>»-CHAir 
skip 

do while »ubstr(fl,l.l)>*'l- 
if substr(fl.l,l>="2-.and. $ubstr(fl,3,4>."0A7E" 
«ndate-siifostrCfl.8 .30) 
^select 1 

•replace buntote with aidate 
select 2 

iS?f 

if »ub»tr<fl,l^)»''3**.and. substrCfl,3»4>-TIIIE" 
•bb1 acssubat r<fl , A . 80) 
♦select 1 

^replace burplac with aplac 

select 2 

strip 

loop 

en?if 



♦if 1^:2 «A kill tawle stuff 
if s*i»strCfl.l,l)a=l*.and. substr<fl,3,4)»*8APL- 
nba^lssubstrCfl. 6 * 10) 

♦replace bapl witli niwpl 

select 2 

skip 

if s»i>BtrCfl.i.l}="2".and. substr(fl»3,4>«"naTr' 
ebapl tfatc»siibstrCfl.. 8 ,15} 
♦•elect I 

•replace bapl date arlth nd»ap1date 
select 2 

'!5d?f 

If substr(fl,l,l)*"2".and. substK11.3.4>»-TBir 
i^apl can^substr (fl, 8 » 10> 
♦select 1 

♦replace bapltnp with nbapltcqp 

select 2 
sMp 
cndif 

loop 
endif 



If ««ibstr€fl.l,l)-"l*.and. s«b»tKfl.3.4>-OlOL" 
■endl-sufcst rCn. 8 , 10> 
•select 1 

^replace endl with nendl 

select 2 

skip 

if *iiistr(fl,l,l)*»"2-.and. substr<fl,3.4>=-B«rr' 
tsendl dateaaubstr(fl , 8 , IS) 
♦select 1 

♦replace endldate with oKiidldate 
select 2 
skip 
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CfMKf 

if substcn.l.l)»''2''.and. »ub»trCfl.3.4)«TBV" 
nmdl tonp-subst rCf 1 » S » VO 
^select 1 

^replace endlteap wiih nendltenp 

select 2 

skip 
endtf 

loop 
cndlf 

^cndif U kill tenple stuff 



If s«Ascr(fl,l.l)»*'l".and. substrC«.,3.4)»'TTn," 
«ti tlss4i)str (f 1 . 8 , 2 S> 
select 1 

replace titi irtth ndtl 
select 2 
skip 
loop 
endif 



if substx(fl.IJ)-~l~'and. si)bstr(fL,3,4)-"liorrE' 
■notessubstrCfl * 
select 3 
append blank 

replace Intffv frith orirnHv 
replace note wtth mote 
omotecntesMnotecnt^l 
replace noteno with ntiotecnt 
select 2 
Skip 
loop 
endif 

i V subrt r(fi ' 1^)Z"2 ■ land I 9ubstr(f3. . 3 .4>i-C0inr 
■note - substrCrl • 8) 
select 3 
append blank 

replace indiv with mindlv 
replace note with emote 
MnotecntMWMtecnt^l 
replace noteno witii nnotecnt 
replace eont wfth *C" 
select 2 
skip 
loop 
endif 



1 f siibstr(fl , 1 , 1>-"1- . and . substrCfl. 3 .4>t"REFir 
auref Rs^ubstrCfl. 8 . 30) 
select 1 

replace refVi with nrefVt 

select 2 

skip 

JIS?I 
endiT 



if substr(fl.l.l>«'*l''.wid. substr(fL.3.4>-nMS" 
»l^tC"#".fl) 

nZ-atC'r* , siibstrCfI»na>l.n1fl-flil-l))-Ma 
BifaMssvml (subitrCfl,na^,>i2>id.-2)3 

select 1 

replace fam with erf^ns 

select 2 

skip 

loop 
endif 



if sid>strCfl,l,l>-"l'*.and. substrCfl. 3, 4>*FAIIC" 
*lx»trt*.fi> 

■2«atC*" . substrCfL«nl-^l.mlfl-eiL-l))-M(tl 
■faao^l (substrCfl.isl^ •b2-«I-23) 
select 1 



replace ftmc with 
select 2 

skip 
loop 
endif 

•nsadded below 10/7/99 

if s4A>stKfl.i.l)»'2*'.and. std>scrCft.3.4)«-PEiH- 
«pedit^str(fl.8.S) 
select 1 

replace pedi with npedi 
select 2 
skip 
loop 
endif 



if substKfl.l.l>"l''.aiid. sitbstrCn.3.3)e-AFir 
■ufmibstrCfiT? .10) 
select 1 

replace afn with mf^ 
select 2 
skip 
loop 
endif 



if swbstKfl.lil)="l".and. sii»str<fl.3.4)a-SOUa'' 
asoiin-substrCrL.6,10) 
select 1 

replace sour with naour 

select 2 

skip 

endif 

irsubttKnaTp-n-'imdra^ 3 , 3)»*'ssir Mskip 
•lusn-AiAstrCfl. 7 .11) 
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♦select 1 

♦replace aan with nssn 

select 2 

skip 

loop 

cndif 

iriiitr<fiIlI5--l-'iiSrsi^ »*Mp «vent» 

♦select 1 

♦replace ssn with nssn 
select 2 
skip 
loop 
endif 

1f~S4ib»tr(fiIxll)«"l".aJid. »Mb«tr<fa,3,J>-*JA- Mskip facts 
«tosifBSubstr(fl.7.lV) 
•select X 

•rcplaca ssn with nssn 

select 2 

skip 



«.J of 10/7/99 a<W1cion 

enddo M loop for an indivichial >0 
else ASr wirecognizable data - skip it. 
select 2 
Skip 

«nddD loop to end of file 
close tables all 



♦1 SW « 

♦2 DATE 21 OCT M19 _^ 

♦2 PL*C Eait Gwllliinbuiy.York.ontario 
U«4 

♦1 BURI 

♦2 DATE 2 NOV 1B64 



♦da case 
'case 



^1 lilt- refbnnat routine expcrimenb— 
PtOCEOURE WJTtjCHOP 

iienthl 1 st^" jANf oiNARAPnwr JWSULAUGSEPOcniavDEC 



•■dateyean-*"* 
•ndateday-'" 
^ndateapproxB 
♦if bdate o space(30) 
1^ .not. 1iblankCMd»t:0 
«datertrii*=rtrimCsidatO 

if 1enDndatertnni>>9 «» try to, grab year^ > , ^ . 

if .not. lBaliiha(»Mb»trCmdat«rtrnfi,lenCindatertHm)-3.W^ .and., 
.not, isalpl»<substr5»idatertrinJen(Bdatertrtm5-^ .and.; 
.not. isal3i»<«*»tr&>dat«rtrtm.len?«datertr1m5-^ .and.; 

.not. 1salpi»(si*str(pi£terTJ^i«Jen<wlatertr<«i)^^ 

^™^:.lr7.^jt^0iKlat«rtria.1cnCMAtertriia)-3.4) Ufound year. I hope 



indateltriiteltriraCBdate) _ _ 

oidatelcufc«1trwf Bdate) « two fields start ewan 
if len(nfaiteltrin>3 «& look for the approiriBating pre«n 
if substrCMdateltrin.X.B^-'BEr; .or.; 

substr<5idateUr1m,X.3>="AFr .or.; 

siAstra«tateltHni,XJ>"A»r 

agTSCS?S£cJiffi?0-i?lltJ^i^.^ " »Mft left 

endif 
endif 

if ltnfindateUut)< lenO«l»teltrin> Mtakc the shortest one for farther use 

ndateL&Rlatel cut 

else 

MdateLS^ndateltrln 

MlateL4d«lateL3 A* tm fields start even 

^^f*?S!?*iiJ^|*iic«ib»trOndateL3. 1.1)5 :«nd. jubstrforfetelJ^X)-- " 
■idateday=-0*+substrCindateL3,X,l5 A&single dimt day* I hope 
•dateL4=l tH«(subs tpO«l«teL3 , 2 . 1 cnOndatcL3)-X)) 

if^iLat. ise1phaC$ubstrOndateL3.1>l)) .«nd. .not. i»alpha(»ubitr(jDdateL3,2.D)i 
.and. substrOndateL3,3,l)»" ' ^± ^ » 

»dateday*sub$trCiiidatclJ.X.2) ,«ftdoMMe digit day, I hope 
ndataL4-1 trinCsubstrOndateLS .3 . 1en0ndateL3}-2)) 
endif 
endif 

If lenOBdateL4)< lenOndaceuS) 
ad«teLV«idateL4 



ell 

•dL„ 
endif 



^1f llS?f2cSltr<palateLS.l.l)) .and. 1salphaCsubstrO«!ateLS.2.1» I 
.«id. iMlphaCstib»tr0sdateLS,3,D> 
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■inonthno»Hght("00** ItHmCstrC intC at(upp€P(substr0wlatel5,1.3)),monthHst) /3) +1.2)), 2) 
endlf 
endif 



endlf && end date rcfonnat routine - skip If date is blank 

^replace byear with ndateycar 
^replace bnonth irlth mmnthno 
^replace bday wfth^mdateday 
*r^1ace bapprox nHth ndatcapprox 



* date rc fo n na t routine eacperiio en t 

* rplace reformats 

PROCEDURE PtACEjCTOP 
♦ttplacpartl^"" 
•«placpart2o'*" 
•wplacpartS-"" 
*mplacpart4ss"* 
noomnalsO 



*5trateay - march across from conma to conma, adding incrsnents of length checked 
If .not! isblankCnplac) 
MenOsplac) 
Blpl acrtBrtri mOnpl ac) 
mcoiiiBalF=at(" / .mpl acrt) 
if mcORRial > O , 
ncl acpartbssubstr Cnp1 acrt , l,nconnial-l) 

iiicoina2BatC* , ** , subs trCnp 1 ac rt , nconnal+l , 1 enCmpI ac rt) -ncoomal)) A&tfflcannaL 

nplacpart2«»substr(nplacrt,nc«mial+l,wcoiniia2-X> , , , ^ ^ , 

nconnaBsatC* , substKnpl acrt ,fncannial-Miicoaina24-l,l enCnpl acrt)-aicoaina2-mcoaraal)) A&4mcoiiina2 
if mranmaS > 0 

«p1acpart3BSubstrCmp1 acrt,nK»nnal-HiiCGRnia2-i-l,B)coiiitta9-l) 
♦T^lenOnpl acrt)--KStr(len(raplacrt) ,3) 
*? **mcainm3s'*-t4tr(ncoBiM3-4fnco(m»2-Hix:oinnal,3) 
•wait 

if lenOnplacrtJ^onmaS-HnojnnwZ-Hnconinal , . , . 

npl acpart4-isubst r (npl ac rt •inconniaItiBC3aiiiiia2-Hncoaiiia3+l , 1 enOqp 1 ac rt) -oicoainaS -nconna2-incoinnal> 

•7 -fflp1acpart4a"4«pUcpart4 

•wait 

endlf Aft part4 
else 

if 1enCinplacrt)>iDC0inroa2-HiicaRinal 

mplacpartS-substrCnpl acrt ,cncoiinial-«inaxBna2-i-l, 1 enOnpl acrt)-incoiiiiia2-incaainal) 
endif 
endif Aft part3 

else &Smcocnna2 > 0 

if lenCmpI acrt)>mconmal 

mpl acpart2>ssubstrCiiip1 acrt •mconnal+l. 1 enOaplacrt) -nconmal) 
endlf 
endif A& part2 

else 

mpl acpartlp^substrCmpI acrt, 1, 1 en(mp1 acrt)) 

endif &8f)artl 
endif AAend of place check 
*if 1sblankCmplacpart4> 
•npl ag)art4="USA- 
•endif 

•replace bplacel with nplacpartl 
-•replace bplace2 with mplacpartZ 
'•replace bplace3 witit mplacpartS 
-•replace bp1ace4 with iivlacpart4 
RETURN 



us 2002/0032687 Al Mar. 14, 2002 

249 



C ;\Vf qenO\NOTEEXn , PRC 

•notc«xtl.prg - note extract fo the fancy new notes .^^GOM V.5.5 

* the NI notes are numbered the smt as the related Individual and are 
•placed at the end of tN ^ 

•individual data, but »et off with a new 'O' 

♦ the T notes do not have the sane ranber as the Individual and are at 
♦the end of the file, apparently intended to be liootnotes that multiple 
•individual names can use. 

# , , ,1 1 III 

•INDIVl.PRG 

* 9/27/99 - new version for GenReg - drop the temple stuff 

♦ and expand other fields. 

• convert GEDOOM to dbase file fonnat 
♦3/29/97 Kent Huff 

close tables all 

select 3 
use noteextl 
zap 

•select 1 
•use indivl 
*iap 

select 2 
use gedcoffl2 
inlfl=len(fl) 

do while .not. eofQ 

•FIND INDEPENDENT NCTTES OF BOTH TYPES, MI AND T ^ ^ , , ,^-«r«N . 

if sub&tr(fl.l,l>"0-,and. C5ubstrCfl,3.3>"«a- .or. 8Ubstr<fl,3,2>-ffr) ; 

.and. at("N0TE**,substr(fl,7,l7))>O 
nnotecnt^ 

•do while sub5trCfl,l.l>"0" «il 

♦select 2 
•mlcatC"9".fl) 

♦m2=^tr«- . substr(fl.nil+l,ralflHnl-n>-HiiL 
•mindivsval Csubstr(ll,ral+2,ra2-«l-2» 
ral^tC«",fl) 

in2=atC"«- , substrCfl .iia+l,mlfl-«l-l))-«il 
ratypc=substr(fl, 4 , 1) 
i r rotypc— ''M** 

nnotemiaaval (8ubstr(fl .iia+3 .iii2-«l-3» 
else ^ ^ 

^ nmotenuBwral (subst r(fl ,inl+2 .aa-ffll-Z} > 
endif 
endif 

i!jnote=substrCfl, m2+l) 
select 3 
append blank 

replace notenum with nnotenum 

replace note with mnote 

innotecnt>4nnotecnt4^1 

replace noteno with mnotecnt 

replace type with wtype_ 

•replace fndiv with mlndlv 
select 2 
skip 

do while substrCfl. l,l)>-0" &&1 

ir^str<S^ia>=-r"andrCs^^ 
anote=substrCfl» 8> 
select 3 
append blank 

replace notenum with mnotenum 

♦ replace indiv with on ndiv 

replace note with mnote 

REPLACE TYPE WITH mtype 

iiinotecnt>4irK>tecnt-»l 

replace noteno with mnotecnt 

replace oont with "C* 

select 2 

skip 

loop 
endif 



enddo A&ehd note loop . , . 

else unrecognizable data - skip it. 
select 2 



skip 
endif 

enddo end outer loop 



close tables all 
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• before «h« KTHL pages are created. 



set safety off 
•select 1 
*usc notesl 

*iSe Indlvl 



accept -Enter working Directory, eunple cAgenrOOOl: " to ndirect 
set directory to indirect 9A designate a place for all existing fiels to be found. 
«"™«»nE„d all new or work files Co be crtated 

•accept " 



? "Begin COfwerslon of GEDC9M to xbase fornat" 
close tables all 
select 1 
use gedcomZ 

fess » *». fcn-t" 

•DO GET-VERSION AftflmJ GEDOW* file version 
close tables all 

♦the main difference is that ^ r i.„ «M»rai-« 

♦the old form has inline notes, while S. 5 has the notes separate. 

• do we need version that only take the iriniiMi data for the Index concept* 

• ? "using GEOOOM version S.S processing 

• do IndiviS 

• do fwSS 

•S^No version nudbcr found, assume version 2.2* 

• do Indivl 

• do fMll 
♦endif 

♦momw 

•b=8S=^ 
♦if 1^ 

I -Begin Conversion of individual Records to Xbase forwat- 

do Indivl Uconvert gedcdm to dbase file fonsats. indiv1*ial and notes files 

7 -FlBJhed^SSefslon of Individual Records to x&asa fonsat- 

? "Begin conversion of Fanily Records tt ^f**^^'^, 

do iSSl Mconvart geocom ro dbase file fbraats. fanrily file 

? -Finished Conversion of Family Records to Xbase fonac 

? -Begin conversion of Sepamte Note Records to Xbase fbrwaf 
do noteextl tAget separate notes » 

7 -Finished itowersion of Separate Note Records to Xbase fbnaat 

7 -Begin R«»nbeHng of individual and Family Records to orinlnixe nui*er ranges" 

• *MUSoi.prg - re-m-ber the family and individual ffleS to «rtn1«1a> 

7 -F;Si3*lSjSlSfl"SrLi?^ ^ni«i« m-*,er ^nges" 

7 "Becrin creation of Ktey File to coordinate creation of imtt. Input pages- 
do biKSyOl McreSe^ file » coonHnatecreatlon «^ h^Sj'?^^^^. 
? -SSshed creation of Key Pile to coordinate creation of HIM. Input pages 

7 -Begin collection of statistics needed for reserving name space, etc." 

*MSSo02.Dra collect the data needed for reserving ne»e space, ete. 
7 -Fi!li^ciSl5ction of statistics needed for reserving naoM space, etc." 

close tables all 
use statsOOl 
•list 

7 -T1» niober of m«ii nawss Is : "+stranain_cnt.6> 
7 SSSS of SWM n«es is: :«S'<«»S?*«?^'*> 
7 -The niiifcer of f^Hes Iss -♦«tKf"a-cnt,6) 

7 -use the Wdn and SPME nusbers as input to the internet epplication- 
7 -and receive die final ntD^er ranges *n«2»"J-^ „ • 
7 -The f1«l nueber ranges are used in prepaHng the imtt. paoes 
7 -for input t» the Intemet.* 

7 -Run prvgran called Part2 to prepare HTML pages." 

use 
•endif 



•Part a stuff 

•Register the data and get back the name maker range. 

•do bldhtnll ttcrwte html pages for input to GENREG server 

•do bldhtnl2 «• create page of page m«bers - use to execute data input 

PROCEDURE GCTJtfERSlON 
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C:\Vf Q€H0>PART1 . PRG 



*'mVZlVw'irw^y^t^'^^^ are duplicate DATE and PLAC tags 

♦ for birth, christening, death, and burial 

So S?le .not. eofO 
mlfl»1enCfl) 

if substr(fl,l,l>--r.and, $ubstr(fl,3.4)=-GEix:- 

do wRile sub$trCflj,lj,l)>'*l'* u ^ a -wcpc- 
if substr(fl,l,l)= 2".and. substr(f 1,3,4)= VERS 

nversssubstrCf 1. S , 3) 
♦select 1 , ^ ^ 

•replace bdate with mdate 

select 2 

skip 

loop 

if'iibstrCfl .and . subitrCfl, 3 .4>«-R>RM" 
mfx>rn>=subst rC*rl. • 1 15) 
^select 1 ^ , 
♦replace bplac urith mpiac 

•select 2 

skip 

loop 

endif ^ ^ . 

enddo Mend of inner loop 

endif &&1F gedc 

enddo &&OtnrER LOOP 
RETURN 
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•parcl.prg crMt« tfw HVML pag^ 

* partl.pra Tfris nra all tte preQrMS end setup for the GBXBH conversion 

* up to pare vhert comunf cAtlon with the server Is necessery. It stops 

* before the HTML peges ere created. 

•set safety off 
•select 1 
*u5e notesl 
*zap 

•use Ifidlvl 
*zap 

•accept "Inter Directory. cxMple c:\gcnrO0OLt " to sidlrect 

•set directory to tedirect A§ designate a place for all eirf sting flels to be found, 
•and all new or work files to be created 

•close tebles all 
•select 1 
•use gedooea 

•j^end f rora gedeom.ged type sdf 

•dD indivj Mconvert GEOOM to dbasc file foneats. Individual and notes files 
•do fwnl Uconvert GEDCON ro dbase file feraats. faerily file 
•do statsOOl 

^statsOOl.prg - re-maAier the faoilly and individual files to nininriie 
«the use or nuibcr space in the main server database. 

•do bldkeyOl Mcreate key file to coordinate creation of htail input pages 
•do stats002 

'•statsOGZ.prg collect the data needed for reserving none space, etc. 
close tables all 



•Part 2 stuff 



Xnt«met;^ddresss*ht tp z//mm .move . to/gtnreg/Pno j ect3_Locsl /i nputD20 . asp" 

7 "enter Cenealogy Registry Internet serwer Address C^RL), " 
? "for HTML -Irtput." 

? "Exartf)!*, http://«MMjnove.ts/gcnrefl/Project3j.ocal/input020.asp " 

7 ■current value i» interne t_«ddress 

? 

? "press EiTTER key to keep old internet address er^ 
accept "enter no* URL: * to ZA 
if lenOA)>0 
ZntemetLJiddress«XA 
endlf 
? 

7 "Enter Prolect NMnber or ZD, A digits, " 

accept "received from mtemet, exaaiple 0001; " to praject-nun 

acc«pt "Enter Main N«ae Range Beginning Kunber: " to onme^tartjsaln 
nane^startJBln ^Umnane^tartjnain) 

accept " Enter Main Maw Range ending Ninber: " lenaejendjaaln 
nane_end_iaa1n ^alCimaMe-end-oain) 

accept "Enter overflow Meie Range Beginning Nuober: " to wnwirjtartJhfernow 
nawe-Startjn^rnow ^val CnnBine.JstartJDverflo«0 

accept " Enter Overflow Nwm Range Ending Niaberi " to fWianajBndJSverflow 
nana_end.J)vernow ovalCnunsjendjOverflow) 



use StatsOOl M asstiaes you are already In the right directory 

replace praj.id with prDject-mn SA rei ' ^— 

replace inet^dd with Intemet-address 

PRDJECTjn RBrtriaiCstats001->pro1_di r) 

set directory to *projectLjtf1r iA probably unnecessary, but do It eiiyway 



replace praj^id with project-ntn iA record this entry 
replace inet^dd with Intemet-address 

PRDJECTjn RBrtriaiCstatsO01->pro1_di r) 

- ^ to I • 

if s tats001->n wne^cn t > nantejendjtain - nane^tartjnaln ; 

.or. »tata001-»spare_cnt > nane.jendLjoverf1ow - nawe-stert-overf) ow ♦ 1 
7 "NAME RMGCS ME NOT SUF=FiaENr TO FINISH THE PROCESS." 
7 "VOU MRY NEED TO RE-ENTER CR ftE-VERIRT TME PROPER NUMBER RANGES." 
RETURN 
EMDIF 

use M CLEAR FILE USE 



set safety off 

'Register the data and get back the name nunber range. 

? "Begin Building of tnw. pages (PAfiOOOOl.htnO for Entering Data Into Internet files'* 

do bldhtell Mcreate HTNL pBgcs for input to GENREG server 

7 "Finished Building of html pages for Entering Data Into Internet files" 

7 

7 "Begin Creating Sunsary Page Csiinipage.hrtn> ts use as Index to all HTML pages" 

do bloMwl? create page of page nuiJiers • use to execute data input 

7 "Finished Creating Summry Page (sumnpage.htsi) to use as index to all HTIO. pages" 

close tables all 

set safety on 
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CAVfocnaVSTATSOOl, PRC 



^•tatsOOl.prg - n-nmbtr the fnlly and IntfivlAiaY fflcs to orinlirizs 
*th« use of miiber space In rhe main server database. 

*statsOG2 get the data needed -for rtservlng nsne space » etc. 

*7 "Enter the project ZD, a 4-chBracter nunber." 

*7 "You should get this muter from tte GEOOM processfng Mnu" 

*7 **on the Genealogy Registry Internet systcn.** 

^accept "Project Nuober, example 0001: * to aprej-ld 

*7 "Enter the project directory description.** 
*accept 'Example ^C:\GENR0001* : " to iqpnij^lr 

select 5 

use fcrosref ALIAS FREF 
INDEX OH OLDHUH TD IFREP 

Select 4 

use Icrosrcf ALIAS IREF 



ON OLONUM TO HREF 



Sdex 

select 1 

use faal 

*copy to fma 

sort to fain? on fmma 

use fnaa alias fiSBiZ 

«IIIOEX ON FMMO TO IFAM3 

select 2 

use Indlvl 

*copy to indivZ 

sort to indivj on Indiv 

•select 7 

use 1ndiv2 alias IndlvZ 
•IM)CX ON INDIV TO IFILE3 

•select 3 
•use statsOOl 

is: 

* create Individual xref 
select 2 
•index on IimKv 
go top 

do whne .not. eofQ 
select 4 
■pp«nd blank 

replace oldnun with 1n<Kv2->-tnd1v 
replace neMum irith recnoQ 
telccc 2 
skip 



• create family jcrcf 
select 1 
•index on fatmo 

.not. eofO 

select S 
i^nd blank 

replace oldnun with FAM2->famno 

a lace newnun with recnoO 
ect 1 
sMp 



•USE individual cross reference file to change nuriiers 
select 1nd1v2 

£ S?le .not. eofO 

nrindivslndlv 
select IREF UA 

seek flrindiw &ftfi1e Is Indexed by the eld ranb«r» oldmn. 

select ind1v2 W2 

replace indiv with IREF-MiewnuB 

IF FAMS > 0 

mf«is«f«nft 

select FREF 8A5 

seek afvns 

select 1ndiv2 A&2 

replace fasis with FREF->newnuii 

ENOIF 

IF FAHC > 0 



select FREF us 

seek ■fame 

select 1nd1v2 M2 

replace fane wliii FR£F->fMwnuBi 

ENDIF 

SELECT 1nd1v2 
SKIP 



•use fanily cross reference file to change ninbers 
select FAM2 BAl 
oo top 
) while .not. eofO 



select FREF US 
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C : \Vf genO\5TATS001 . PRC 

seek nrfamno &&file is Indexed by the old number, 
select FAM2 &&1 

replace famno with FREF->newnum 

IF husb >0 
MHUSB=HUSB 

select iref 
seek mhusb 
*if foundO 
select fam2 

replace husb with i ref->newnum 
*endif 
endif 

it** 

IF wife >0 
Mwife=wife 
select iref 
seek mwife 
*if foundO 
select fani2 

replace wife with i ref->newnum 
♦endif 
endif 

X=l 

DO WHILE X<21 

xi=strCx,1) 

X2=STR(X,2) 
IF X<10 

MCHI LDNO="CHI LD"+X1 

ELSE 

MCHILDNO=r"CHI LD"+X2 
ENDIF 

IF &MCHILDNO >0 
MCHILDHOLD = &MCHILDNO 
select IREF &&5 
seek MCHILDHOLD 
select FAM2 

replace &MCHILDNO with IREF->newnum 

ENDIF 

X=X+1 

ENDDO 

SELECT FAM2 

SKIP 

ENODO 

♦RETURN 
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C!\VfQefiO\STATSOQ2 .PRG 

*stats002,pr9 get the data needed for reserving name space, etc- 

♦? -Enter the project ID, a 4-character number." 

♦7 -YOU should get this niiriber from the C^DCOM processing nenu 

♦7 "on the Genealogy Registry internet system." . 

♦accept "Project Niniber, example 0001: to wpnoj.id 

•7 -Enter the project directory description.- 
♦accept "Exttiiple C:\GEMR0001: " to iqproj^dir 

select 1 

use fani2 alias faiii2 
♦INDEX ON F/MNO TO IFAM3 

select 2 

use indivZ alias -indiv2 
♦INDEX ON INDXV TO XPILE3 

select 3 
use statsOOl 
zap 



select 1 

count to rafaiM-cnt ^ 

count to mfanunissjnfe for wnre < 1 

count to rafanLjnissJiusb for husb < 1 

select 2 

count ro mindiv^cnt 

imiax^O 

inn1n=99W9 



§2 



top 

while .not. eofO 



If Indiv > RRiax 

Dinax=indiv 
endlf skip 
if indiv < inirin 

inninvindiv 
endif 
skip 
enddo 



♦count to mfanuBiss^wife for wife < 1 
♦count to mf anuni ssJiusb for husb < 1 

select 3 

rcpl ace'^pro j_d1 r with indirect Aficomes from parti, Ut coimand «Amproj_dir 
♦replace proj«id with wproj^id 
replace namejcnt with mindiv^cnt 
replace max_iio with nwax 

replace rairuno with imrin 

replace fanucnt with mf am-cnt 

replace nrissjiusb with mfaiiL^ssJvu^ 

replace nriss_w1fc with mf awjBi ssjnTe 

replace mairucnt with maxjio &^0 

replace spare_cnt with missjKisb+missjnfe Afrt-20 

♦mrange=fliinax''iinii n 

♦msp read=4Brange/name_cnt 

♦♦if mspread > 1.5 && renuAer 

♦♦round up to next thousand 

♦inrounded=fliax.ji04' 

*inax_no if roaxjio > l-5^ namejcnt 

♦if max-no < 1000 
• rMax-JWsfnaxjw+SOO 



♦if max^ >1000 «and. niax.jio < 10000 
♦niiax_no=i otC0iiaX-/»o+1000)/1000)^1000 

♦maxjianies=fflax»no + missjiusb + missLjinfe + 20 
♦raain_cnt>ffla5L_no+20 ^ 
♦spare_cnt=«»i ss_husb4ffli ssjnf e+20 

close tables all 
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The subject matter claimed is: 

1. A genealogy registry system for collecting, summariz- 
ing, indexing, lineage-linking, and displaying all of the 
world's genealogy records information on a computer com- 
prising: 

(a) a central server database comprising 

(i) a plurality of contributors' data spaces for storing 
genealogical data in lincagc-Unkcd form, 

(ii) a submission link ^ace coupled to the plurality of 
contributors' data ^aces for making and storing 
links between genealogical data items in each of the 
plurality of contributors' data i^aces, and 

(iii) a third-party link space coupled to the plurality of 
contributors' data ^aces for making and storing 
links between geneakigical data items between the 
plurality of contributors' data ^aoe^ 

(b) a normal text and graphics interface coi^lcd to the 
central server database; 

(c) a basic data display coupled to the normal text and 

graphics interface; 

(d) a data status and management mechanism coupled to 
the normal text and graphics interface for monitoring 
quantity and quality of data; 

(e) a manual keying interface coupled to the central server 
database for inputting and correction of data; and 

(Q a data conversion and automated input coupled to the 
central server database for converting data into usable 
format and inputting large data files. 

2. The genealogy registry system of claim 1 further 
comprising (g) a workstation functions interface coupled to 
the central server database for converting and consolidating 
data into usable format. 

3. Hie genealogy registry system of claim 1 wherein the 
basic data di^lay comprises a mechanism for billing by 
segment of information displayed. 

4. The genealogy registry system of claim 1 wherein the 
plurality of contributors' data ^aoes has a capacity for 
storing up to 10 billion people. 

5. The genealogy registry system of claim I further 
comprising a plurality of interactive self-service internet 
terminals and centra] servers configured for accepting 
genealogical data from a plurality of publishers and di^lay- 
ing such genealogical data to a plurality of users. 

6. The genealogy registry system of claim 1 wherein the 
system is configured for internet transactions to allow 
updates and review by a plurality of selected persons. 

7. The genealogy registry system of claim 1 wherein the 
central server database comprises a stmcture for storing one 
or more data items selected firom the group consisting of 
basic identifying data, explanatory text, biographical text, 
source references, photographs, and images. 

8. The genealogy registry system of claim 1 further 
comprising a program permitting both minimal data display 
and update and full detail data display and update. 

9. The genealogy registry system of claim 1 further 
comprising a program and data structure configured for 
storing latitude and longitude indicators for aD major iden- 
tifying events, inchiding birth, death, marriage, and burial, 
such that tables, maps, and reports can be created for 
correlating such events with location. 
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10. llie genealogy registry system of claim 1 further 
comprising a program and data structure configured for 
storing place names by date arxi by latitude and longitude. 

11. The genealogy registry system of claim 1 further 
comprising a program and data structure configured for 
storing medical, genetic, and health history data. 

12. The genealogy registry system of claim I further 
comprising a mechanism for permanent storage of 
assembled data. 

13. The genealogy registry system of claim 1 further 
comprising a program and data structure for storing and 
processing data in a phirahty of languages using the lan- 
guage and characters of original records with transliteration 
and translation to English. 

14. The genealogy registry system of claim I further 
comprising a program and data structure for reserving and 
assigning to a single publisher creation and maintenance of 
a selected set of names based on at least one of time, place, 
surname, or record set, and indexes to such assigning for 
notifying others of current assignments. 

15. The genealogy registry system of claim 1 further 
comprising a program and data stmcture configured for 
permitting data submissions by a publisher to be stored 
independent of submissions by other publishers while being 
available for integration with other data submissions through 
a separate system of linking names that is accessible to such 
other publishers. 

16. The genealogy registry system of claim 1 further 
comprising a program and data stmcture for allowing a 
selected person to link names within or between one or more 
other publisher's submissions without changing the under- 
lying data. 

17. The genealogy registry system of claim 1 further 
comprising a program and data structure configured for 
permitting an authorized person to create shadow delete 
records wherein duplicate names can be removed from 
search lists and duplicate data can be hidden firom users 
without being deleted fi-om the database. 

18. The genealogy registry system of claim 1 further 
comprising a program for providing summaries by surname 
and oldest birth date linked to a user or nearest relative 
thereof. 

19. The genealogy registry system of claim 1 further 
comprising a program for identifying a closest common 
ancestor, if any, for two randomly selected people. 

20. The genealogy registry system of claim 1 further 
comprising a prc^am for displaying all relationships for a 
selected person. 

21. The genealogy registry system of claim 1 further 
comprising a read-only virtual reality user interface config- 
ured for permitting a user or group of users to receive 
immediate visual and aural access to the data in the database, 
wherein the data appear as objects in a three-dimensional 
world with which the user can interact. 

22. The genealogy registry system of claim 1 further 
comprising a virtual reahty user interface configured for 
permitting a user or group of users to receive immediate 
visual and aural access to the data in the database, wherein 
the data appear as objects in a three-dimensional world with 
which the user can interact, and whereby an authorized user 
can modify the database. 

23. The genealogy registry system of claim 1 further 
comprising a mechanism configured for allowing a publL^er 
or other authorized person to examine the database for 
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assessing completeness of coverage of a selected time, 
place, surname, or record set such that the publisher can 
discover what data are in the database and what data are 
missing. 

24. The genealogy registry system of claim 1 further 
comprising fiist-level indexes to names and source records 
such that measures of population and record coverage can be 
estimated. 

25. The genealogy registry system of claim 24 further 
comprising second-level cross references between source 
records and names such that measures of accuracy and 
duplication can be applied to the data, and measures of 
completeness of coverage of a record set can be estimated, 
and cross indexing can be accomplished between multiple 
versions or copies of the same record set. 

26. The genealogy registry system of claim 25 further 
comprising third-level cross references of source-to-dissimi- 
lar-source records sudi that the database can supply con- 
solidated cross reference indexes among multiple record 
sources linked through iq>ccific people. 

27. The genealogy registry system of claim 1 further 
comprising a program for automatic conversion of a user's 
lineage-linked data into a format suitable for automatic 
update of the database over the Internet. 

28. The genealogy registry system of claim 1 further 
comprising a program and data structure configured for 
capturing, converting, and consolidating lineage-linked 
genealogy data collections stored for public view on the 
Internet. 

28. The genealogy registry system of claim 28 wherein 
incoming lineage-linked data collections are automatically 
analyzed and divided into trees of interconnected names. 

30. The genealogy registry system of claim 1 further 
comprising a program configured for analyzing incoming 
lineage-linked data collections for consolidation with exist- 
ing data, eliminating duplicates, and finding and displaying 
missing linkages in incomplete pedigrees. 

31. The genealogy registry system of claim 1 fiirther 
comprising a program and data structure configured for 
supporting automated mass consolidation of unlinked source 
records into multi-generation lineage-linked form. 

32. The genealogy registry system of claim 1 further 
comprising a program and data structure configured for 
converting data from Ancestral File into a format compatible 
with the present system and for online review and correcting 
of such data. 

33. The genealogy registry system of claim I further 
comprising a program and data structure for consolidating 
data from International Genealogical Index into pedigree 
form, and for online review and correcting of such data. 

34. The genealogy registry system of claim I further 
comprising a program and data structure configured for 
automated comparison of overlapping lineage-linked gene- 
alogy files and removal of duplicates and merging of data. 

35. The genealogy registry system of claim 1 further 
comprising a program and data structure for coding of 
confidence levels or accuracy indicators on data elements 
selected from the group consisting of birth dates, birth 
places, and relationship links. 

36. The genealogy registry system of claim 1 further 
comprising a program and data structure configured for 
accounting of royalty payments to publishers of data based 
on use of such data and chaiging user fees to users of such 
data. 



37. llie genealogy registry system of claim 36 wherein 
parameters for royalty payments and user fees can be varied 
according to user, publisher, name, and data element. 

38. The genealogy registry system of claim 1 further 
comprising a program and data structure configured for 
allowing a user to separately select for viewing each item of 
data about a name. 

39. The genealogy registry system of claim I further 
comprising a program and data structure configured for 
billing a user only once for each item of data viewed, 
regardless of the number of times the item is viewed. 

40. The genealogy registry system of claim I further 
comprising a program and data structure configured for 
controlling a number of names accessed per unit time. 

41. The genealogy registry system of claim I further 
comprising a program and data structure configured for 
producing a copy of the central server database wherein said 
copy is configured such that data quality parameters can be 
different than for the central server database. 

42. The genealogy registry system of claim 41 wherein 
users of the copy are billed at a different rate than are users 
of the central server database. 

43. The genealogy registry system of claim 1 further 
comprising a program and database structure configured for 
producing a research coordination report for identifying 
areas of user interest based on user name selection and fee 
payment patterns and for facilitating research planning and 
contracting. 

44. The genealogy registry system of claim 1 further 
comprising a program and data structure configured for 
matching one or more publishers of research data with one 
or more users of such data. 

45. The genealogy registry system of claim 44 where in s 
aid one or more publishers can announce and register 
research plans and seek funding commitments, and said one 
or more users can make such funding commitments. 

46. A method for collecting, summarizing, indexing, 
lineage-linking, and displaying genealogical records infor- 
mation comprising: 

(a) providing a genealogy registry system on a computer 

comprising: 

(i) a central server database comprising 

(1) a plurality of contributors' data spaces for storing 
genealogical data in lineage-linked form, 

(2) a submission link space coupled to the plurality 
of contributors' data spaces for making and stor- 
ing links between genealogical data items in each 
of the plurality of contributors' data ^aoes, and 

(3) a third-party link space coupled to the plurality of 
contributors' data spaces for making and storing 
links between genealogical data items between the 
plurality of contributors' data spaces, 

(ii) a normal text and graphics interface coupled to the 
central server database, 

(ili) a basic data display coupled to the nonnal text and 
graphics interface, 

(iv) a data status and management mechanism coupled 
to the normal text and graphics interface for moni- 
toring quantity and quality of data. 
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(v) a maaual keying interface coiq}led to the central 
server database for inputting and correction of data, 
and 

(vf) a data conversion and automated input coupled to 
the central server database for converting data into 
usable format and inputting large data files, and 
storing genealogical data on the central server data- 
base in lineage-linked form; 

(b) establishing links between genealogical data items; 
and 

(c) displaying genealogical data in response to a request 
for data and billing a user for data displayed in response 
to the request. 

47. The method of claim 46 further comprising paying a 
royalty to a contributor of genealogical data that are dis- 
played in response to a request. 



48. A method for publishing lineage-linked genealogical 
data using a computer comprising: 

(a) receiving and storing lineage-linked genealogical data 
from a publisher; 

(b) inputting into the computer a payment identifier 
specifying a credit card account associated with a user; 

(c) permitting the user to access lineage-linked genealogi- 
cal data stored in the computer; 

(d) charging the credit card accoimt on a pay-per-view 
basis according to lineage-linked genealogical data 
accessed by the user; and 

(e) crediting a royalty payment to the publisher correlated 
with charges to the user for accessing Hneage-linked 
genealogical data received from the publisher. 

* * * • ♦ 



